[أبو أحمد الحربي]

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

PHP كود :

Dim D As New DataSet
        D.Tables.Add("T").Columns.Add("Id")
        D.Tables("T").Columns.Add("Txt")
        Dim R As DataRow
        For x = 0 To 1000
            R = D.Tables("T").NewRow
            R.Item("Id") = x
            R.Item("Txt") = "هذا مجرد مثال"
            D.Tables("T").Rows.Add(R)
        Next
        Dim Cn As New SQLite.SQLiteConnection("Data Source=C:\Users\oop\Desktop\5\5.db")
        Cn.Open()
        Dim CMD As New SQLite.SQLiteCommand
        CMD.Connection = Cn
        CMD.CommandText = "Create Table TT(Id int,Txt Memo)"
        CMD.ExecuteNonQuery()
        Dim AD As New SQLite.SQLiteDataAdapter("Select * From TT", Cn)
        Dim B As New SQLite.SQLiteCommandBuilder(AD)
        AD.Update(D.Tables("T"))
        Cn.Close()