[المبرمج العبقري]

(30-03-16, 09:02 PM)سعود كتب : ارجو ان تجد بالرابط التالي شيئا مماتريد
http://vb4arb.com/vb/thread-12996.html

أشكرك جزيلا أخي العزيز فقد وجدت الحل بعد معاناة ، وهو بعد تعديل هذا الكود
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.CommandText = "insert into c2(name) values(@name)"
       cm.Parameters.AddWithValue("@name", ComboBox_name.Text)
       If con.State = ConnectionState.Closed Then con.Open()
       cm.ExecuteNonQuery()

       cm.Parameters.Clear()

       cm.CommandText = "insert into c3(name) values(@name)"
       cm.Parameters.AddWithValue("@name", ComboBox_name.Text)

       cm.ExecuteNonQuery()

       cm.Parameters.Clear()
ولكن وقف معايا كود الحذف ممكن تفيدني