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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ list box في قاعدة البيانات اعينوني,,,,,,, (/showthread.php?tid=36690)



حفظ list box في قاعدة البيانات اعينوني,,,,,,, - KIKO1992 - 13-10-20

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

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

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


RE: حفظ list box في قاعدة البيانات اعينوني,,,,,,, - messry - 04-04-21

(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