[مساعدة]

السلام عليكم

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

كود :

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