منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال بخصوص ALTER 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] سؤال بخصوص ALTER TABLE (/showthread.php?tid=19415)

سؤال بخصوص ALTER TABLE - dubai.eig - 25-02-17

محتاج اضيف  add field   ALTER TABLE جديد في التيبل 

وراح اضيف عدد 2 او 3

جربت هذا الكود


كود :
Dim sqlConnection As New SQLite.SQLiteConnection()
       Dim sqlCommand As New SQLiteCommand("", sqlConnection)
       sqlConnection.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db"
       sqlConnection.Open()
       sqlCommand.CommandText = "ALTER TABLE www ADD wde VARCHAR(30) NULL "
       sqlCommand.ExecuteNonQuery()
       sqlConnection.Close()

       Dim sqlConnectionq As New SQLite.SQLiteConnection()
       Dim sqlCommandq As New SQLiteCommand("", sqlConnectionq)
       sqlConnectionq.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db"
       sqlConnectionq.Open()
       sqlCommandq.CommandText = "ALTER TABLE www ADD sld VARCHAR(30)NULL "
       sqlCommandq.ExecuteNonQuery()
       sqlConnectionq.Close()


       Dim sqlConnectionq1 As New SQLite.SQLiteConnection()
       Dim sqlCommandq1 As New SQLiteCommand("", sqlConnectionq1)
       sqlConnectionq1.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db"
       sqlConnectionq1.Open()
       sqlCommandq1.CommandText = "ALTER TABLE www ADD club_sent VARCHAR(10) DEFAULT 'N' NULL"
       sqlCommandq1.ExecuteNonQuery()
       sqlConnectionq1.Close()
 

بس موب ضابط معاي ويضيف واحد فقط اما الاخرين ما يضيفهم


ممكن الكود الصحيح بارك الله فيكم

وشكرا

RE: سؤال بخصوص ALTER TABLE - dubai.eig - 25-02-17

(25-02-17, 05:47 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
الكود كامل بهذه الطريقة :
PHP كود :
Dim sqlConnection As New SQLite.SQLiteConnection()
       Dim sqlCommand As New SQLiteCommand("", sqlConnection)
       sqlConnection.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db"
       sqlConnection.Open()
       sqlCommand.CommandText = "ALTER TABLE www ADD wde VARCHAR(30) NULL,sld VARCHAR(30)NULL,club_sent VARCHAR(10) DEFAULT 'N' NULL "
       sqlCommand.ExecuteNonQuery()
       sqlConnection.Close() 



شكرا لك

جربت الكود وعطاني مسج

كود :
Additional information: SQL logic error or missing database

near ",": syntax error


بس عندما جربت اضيف واحد فقط نجح وضاف واحد فقط
كود :
"ALTER TABLE www ADD wde VARCHAR(30) NULL"

اما اذا حطيت اثنين او ثلاث يعطيني مسج الغلط
كود :
"ALTER TABLE www ADD wde VARCHAR(30) NULL,sld VARCHAR(30)NULL,club_sent VARCHAR(10) DEFAULT 'N' NULL "


بارك الله فيك وشكرا من جديد

RE: سؤال بخصوص ALTER TABLE - dubai.eig - 25-02-17

(25-02-17, 06:40 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
أعتقد أنك قد خلطت الأمور أنظر إلى جملة الإتصال واحدة تابعة لقاعدة بيانات من نوع SQL Server والثانية من نوع SQlLite، يا أخي وحد جملة الإتصال مع قاعدة البيانات
جملة الـ Alter صحيحة مئة بالمئة هكذا تكتب ويمكنك البحث عن ذلك والتأكد.
ما هي قاعدة البيانات التي تستخدمها؟


بارك الله فيك شكرا لك

عدلة في الكود بس لازالت المشكله
Smile
كود :
       Dim SQLiteconnect As New SQLite.SQLiteConnection()
       Dim SQLitecommand As SQLiteCommand
       SQLiteconnect.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db"
       SQLiteconnect.Open()
       SQLitecommand = SQLiteconnect.CreateCommand

       SQLitecommand.CommandText = "ALTER TABLE www ADD wde VARCHAR(30) NULL,sld VARCHAR(30)NULL,club_sent VARCHAR(10) DEFAULT 'N' NULL"
       SQLitecommand.ExecuteNonQuery()
       SQLitecommand.Dispose()
       SQLiteconnect.Close()


انا بعد متاكد ان اللي كتبته انت صح 

بس اكيد في غلط معين مني انا

اسمحلي تعبتك وشكرا على الرد اكيد في غلط مني احاول احصل الغلط واحله

شكرا

RE: سؤال بخصوص ALTER TABLE - مساعدة - 25-02-17

السلام عليكم

تفضل التعديل التالي
كود :
Dim sqlConnection As New SQLiteConnection("Data Source= " & My.Application.Info.DirectoryPath & "\ww.s3db")
Dim sqlCommand As New SQLiteCommand(String.Empty, sqlConnection)

sqlCommand.CommandText =
   "ALTER TABLE www ADD wde VARCHAR(30) NULL; " & _
   "ALTER TABLE www ADD sld VARCHAR(30)NULL; " & _
   "ALTER TABLE www ADD club_sent VARCHAR(10) DEFAULT 'N' NULL; "

sqlConnection.Open()
sqlCommand.ExecuteNonQuery()
sqlConnection.Close()