تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص ALTER TABLE
#1
محتاج اضيف  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()
 

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


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

وشكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
الكود كامل بهذه الطريقة :
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() 
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: dubai.eig
#3
(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 "


بارك الله فيك وشكرا من جديد
الرد
تم الشكر بواسطة:
#4
السلام عليكم أخي العزيز ورحمة الله وبركاته
أعتقد أنك قد خلطت الأمور أنظر إلى جملة الإتصال واحدة تابعة لقاعدة بيانات من نوع SQL Server والثانية من نوع SQlLite، يا أخي وحد جملة الإتصال مع قاعدة البيانات

جملة الـ Alter صحيحة مئة بالمئة هكذا تكتب ويمكنك البحث عن ذلك والتأكد.

ما هي قاعدة البيانات التي تستخدمها؟
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: dubai.eig
#5
(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()


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

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

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

شكرا
الرد
تم الشكر بواسطة:
#6
السلام عليكم

تفضل التعديل التالي
كود :
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()
الرد
تم الشكر بواسطة: ابو ابراهيم


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى قواعد البيانات احمد خطاب 1 13 منذ 2 ساعة مضت
آخر رد: asemshahen5
  سؤال حول عمل فولدر يومى تلقائى واسم الفولدر هو تاريخ انشائة Lathe1 3 86 منذ 7 ساعة مضت
آخر رد: asemshahen5
Wink [سؤال] سؤال حول عرض البيانات في كومبوبوكس ahmadpal 0 18 منذ 7 ساعة مضت
آخر رد: ahmadpal
Thumbs Up سؤال بسيط حول في المشغل حاتمي 0 42 اليوم, 12:04 AM
آخر رد: حاتمي
  سؤال فى الفيجوال والاكسيس احمد خطاب 8 151 أمس, 07:46 PM
آخر رد: الوايلي
  سؤال فى الفيجوال احمد خطاب 1 41 أمس, 03:01 AM
آخر رد: Rabeea Qbaha
  سؤال حول البحث ahmadpal 6 91 20-03-19, 11:37 PM
آخر رد: ahmadpal
  سؤال في حماية البرنامج Emam emam 2 57 20-03-19, 06:42 PM
آخر رد: fouadhdfouad
Wink سؤال عن خصائص الكومبوبكوس ahmadpal 1 41 19-03-19, 10:42 PM
آخر رد: 5000
  [VB.NET] استفسار :- بخصوص serial number dubai.eig 0 45 19-03-19, 09:32 PM
آخر رد: dubai.eig

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم