+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اعينوني بارك الله فيكم (/showthread.php?tid=36520)
اعينوني بارك الله فيكم - KIKO1992 - 25-09-20
السلام عليكم ورحمة الله وبركاته
عندي قاعدة بيانات اكسس
ومشروع VB
في الفورم عندي LISTBOX
اريد عند الضعط على زر واحد يحفظ كل سطر في ليست بوكس بسطر في القاعدة
Dim Tab2cmd = New OleDbCommand("Insert Into fasl (ID,nom_analyse) values (ID,@nom_analyse) ", con)
RE: اعينوني بارك الله فيكم - enjoy - 25-09-20
(25-09-20, 07:00 PM)KIKO1992 كتب : السلام عليكم ورحمة الله وبركاته
عندي قاعدة بيانات اكسس
ومشروع VB
في الفورم عندي LISTBOX
اريد عند الضعط على زر واحد يحفظ كل سطر في ليست بوكس بسطر في القاعدة
Dim Tab2cmd = New OleDbCommand("Insert Into fasl (ID,nom_analyse) values (ID,@nom_analyse) ", con)
على أساس أن ID ترقيم تلقائي وبالتالي لا داعي لكتابته في أمر الإضافة
PHP كود :
Dim Tab2cmd = New OleDbCommand("Insert Into fasl (nom_analyse) values (@nom_analyse) ", con)
If con.State <> ConnectionState.Open Then con.Open()
For Each t As String In ListBox1.Items
Tab2cmd.Parameters.Clear()
Tab2cmd.Parameters.AddWithValue("@nom_analyse", t)
Tab2cmd.ExecuteNonQuery()
Next
con.Close()