منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محتاج اضيف 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()

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

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

وشكرا

(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 "

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

(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()

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

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

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

شكرا

السلام عليكم

تفضل التعديل التالي

كود :

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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

dubai.eig

dubai.eig

مساعدة