delphi4arab منتديات دلفي للعرب

نسخة كاملة : انشاء جدول create table يأخذ إسم Edit
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام علكيم ورحمة الله وبركاته

اقوم بانشاء جدول عبر sql
باستخدام هدا الكود



كود :
ADOQuery1.SQL.Add('Create Table user2(name String, lastname String)'); ADOQuery1.ExecSQL;


حديث ال  user2 هو اسم الجدول اريد ان اضع edit1.text بدل user2 اي عند انشاء الجدول سياخد الاسم من edit1.text

وشكراااا
جزالكم الله خيراااا
كود :
قم بتعديل الكود بهذا الشكل  ADOQuery1.SQL.Add('Create Table'+Edit1.Text+' (name String, lastname String)');
شكرااا لمشارتك اخي الكريم
الكود لم يعمل


[صورة: jNULAOn.png]
جزاك الله خيرااا
سلام عليكم
هدا مثال مجرب على sql server

كود :
ADOquery1.SQL.Add('create table '+edit1.text+' '); ADOquery1.SQL.Add('(id int identity primary key ,Namee varchar(50))'); ADOquery1.ExecSQL; ADOquery1.SQL.Text := 'Select * from '+edit1.text+' '; ADOquery1.Open;
(24-03-2017, 12:53 AM)Mr.DOS كتب : [ -> ]سلام عليكم
هدا مثال مجرب على sql server

كود :
ADOquery1.SQL.Add('create table '+edit1.text+' '); ADOquery1.SQL.Add('(id int identity primary key ,Namee varchar(50))'); ADOquery1.ExecSQL; ADOquery1.SQL.Text := 'Select * from '+edit1.text+' '; ADOquery1.Open;

شكرااااا Mr.DOS الكود في المرة الاولة يعمل بعدها عندما اريد انشاء جدول مرتا اخرى لا يعمل

كود :
ADOquery1.SQL.Add('create table '+edit1.text+' '); ADOQuery1.ExecSQL;

يعطيني خطا
[صورة: jNULAOn.png]
لاكن عند غلق البرنامج وفتحه من جديد يعمل

المشكلة اانى لو راردت انشاء 10 جداول هل سأطر الى غلق وفتح البرنامج عشر مرات Angel

وشكرااا وجزاك الله خيراااا اخي Ms-dos
و عليكم السلام 
فقط اخي ضف هذا الكود لمسح الكيوري 
ADOquery1.SQL.Clear;
كود :
ADOquery1.SQL.Clear; ADOquery1.SQL.Add('create table '+edit1.text+' '); ADOquery1.SQL.Add('(id int identity primary key ,Namee varchar(50))'); ADOquery1.ExecSQL;
تم
شكرااا لكم من Mr.DOS و format82
جزاكم الله خيراا وجعلها في ميزان حسناتكم