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

نسخة كاملة : اعينوني بارك الله فيكم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 


عندي قاعدة بيانات اكسس

ومشروع VB

في الفورم عندي LISTBOX 

اريد عند الضعط على زر واحد يحفظ كل سطر في ليست بوكس بسطر في القاعدة 


  Dim Tab2cmd = New OleDbCommand("Insert Into fasl (ID,nom_analyse) values (ID,@nom_analyse) ", con)
(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()