منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حفظ list box في قاعدة البيانات اعينوني,,,,,,,

لدي قاعدة بيانات اكسيس اسمها myDatabase وجدول فيه اسمه MyTable

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

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

(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

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

KIKO1992

messry