منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] لخبراء قواعد البيانات create table - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] لخبراء قواعد البيانات create table (/showthread.php?tid=21752)



لخبراء قواعد البيانات create table - dubai.eig - 18-09-17

السلام عليكم ورحمة الله 

اعزائي اريد ابني قاعدة البيانات وداخلها عدد 2 table 
مثال
[attachment=15474]

حاولت بس ما نفع معاي
كود :
  SQLiteConnection.CreateFile("C:\Users\sa\Documents\BKHAMLOG\DBb.s3db")
           Dim sqlConnection As New SQLiteConnection()
           Dim sqlCommand As New SQLiteCommand("", sqlConnection)

           sqlConnection.ConnectionString = "Data Source= C:\Users\sa\Documents\BKHAMLOG\DBb.s3db"
           sqlConnection.Open()
           sqlCommand.CommandText = (CREATE TABLE DBTABLE1 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)
           sqlCommand.CommandText = (CREATE TABLE DBTABLE2 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)    

       sqlCommand.ExecuteNonQuery()

           sqlConnection.Close()

اتمنى احصل الكود الصحيح


وشكرا لكم على مساعدتنا


RE: لخبراء قواعد البيانات create table - محمد كريّم - 18-09-17

ما نفع يعني كيف؟ هل طلع عندك خطأ او شيء آخر
بالمعاينة فقط دون التجربة افترض ان الكود سينتج جدول واحد فقط وهو الجدول الثاني DBTABLE2 لانك تستبدل نفس الاستعلام بأمر جديد قبل التنفيذ


RE: لخبراء قواعد البيانات create table - dubai.eig - 19-09-17

(18-09-17, 09:55 PM)محمد كريّم كتب : ما نفع يعني كيف؟ هل طلع عندك خطأ او شيء آخر
بالمعاينة فقط دون التجربة افترض ان الكود سينتج جدول واحد فقط وهو الجدول الثاني DBTABLE2  لانك تستبدل نفس الاستعلام بأمر جديد قبل التنفيذ


ماطلع لي غلط بس مثل ما تفضلت يتم بناء جدول واحد فقط


RE: لخبراء قواعد البيانات create table - محمد كريّم - 19-09-17

بالضبط هذا ما قصدته
انت عندك sqlCommand واحد فقط وترفق له نص استعلام مرتين قبل ان تنفذ الاول بالأول
sqlCommand.CommandText
لهذا يستبدل النص القديم بالجديد
تستطيع انشاء اكثر من sqlcommand وترفق لكل واحد نص انشاء جدول معين
او تستطيع استخدامه نفسه ولكن تنفيذه اول بأول
مثال ارجو ان يشتغل لاني لم اجربه

PHP كود :
SQLiteConnection.CreateFile("C:\Users\sa\Documents\BKHAMLOG\DBb.s3db")
           Dim sqlConnection As New SQLiteConnection()
           Dim sqlCommand As New SQLiteCommand(""sqlConnection)

           sqlConnection.ConnectionString "Data Source= C:\Users\sa\Documents\BKHAMLOG\DBb.s3db"
           sqlConnection.Open()
           sqlCommand.CommandText = (CREATE TABLE DBTABLE1 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)
           Dim reader sqlCommand.ExecuteNonQuery()
           sqlCommand.CommandText = (CREATE TABLE DBTABLE2 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)    
           sqlCommand
.ExecuteNonQuery()
           sqlConnection.Close() 



RE: لخبراء قواعد البيانات create table - dubai.eig - 19-09-17

(19-09-17, 01:02 AM)محمد كريّم كتب : بالضبط هذا ما قصدته
انت عندك sqlCommand واحد فقط وترفق له نص استعلام مرتين قبل ان تنفذ الاول بالأول
sqlCommand.CommandText
لهذا يستبدل النص القديم بالجديد
تستطيع انشاء اكثر من sqlcommand وترفق لكل واحد نص انشاء جدول معين
او تستطيع استخدامه نفسه ولكن تنفيذه اول بأول
مثال ارجو ان يشتغل لاني لم اجربه

PHP كود :
SQLiteConnection.CreateFile("C:\Users\sa\Documents\BKHAMLOG\DBb.s3db")
           Dim sqlConnection As New SQLiteConnection()
           Dim sqlCommand As New SQLiteCommand(""sqlConnection)

           sqlConnection.ConnectionString "Data Source= C:\Users\sa\Documents\BKHAMLOG\DBb.s3db"
           sqlConnection.Open()
           sqlCommand.CommandText = (CREATE TABLE DBTABLE1 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)
           Dim reader sqlCommand.ExecuteNonQuery()
           sqlCommand.CommandText = (CREATE TABLE DBTABLE2 (Qso_id INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,DateNumber VARCHAR(50)  NULL)    
           sqlCommand
.ExecuteNonQuery()
           sqlConnection.Close() 


بارك الله فيك

نعم هذا المطلوب وشغال تمام  شكرا لك   Wink