[messry]

(13-10-20, 11:08 AM)KIKO1992 كتب : لدي قاعدة بيانات اكسيس اسمها myDatabase  وجدول فيه اسمه MyTable  

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

اعينوني بارك الله فيكم ,,,,,,,,

السلام عليكم





تفضل أخي



أتمنى يكون طلبك

كود :

       Dim cn12 As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\myDatabase.accdb")
       cn12.Open()
       For i As Integer = 0 To ListBox1.Items.Count - 1
           Dim cm As New OleDbCommand("INSERT INTO MyTable(Field1) VALUES('" & ListBox1.Items(i) & "')", cn12)
           Dim da1 As New OleDbDataAdapter(cm)
           Dim ds1 As New DataSet("MyTable")
           Try
               da1.Fill(ds1, "MyTable")
           Catch ex As Exception
               MessageBox.Show(ex.Message)
               Exit Sub
           End Try
       Next