[KIKO1992]

السلام عليكم ورحمة الله وبركاته 


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

ومشروع VB

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

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


  Dim Tab2cmd = New OleDbCommand("Insert Into fasl (ID,nom_analyse) values (ID,@nom_analyse) ", con)

[enjoy]

(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()