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

السلام عليك

انا عمل على مشروع وجاهنى مشكلة فى طريقة حذف صنف من الليست بوكس متعبية من قاعدة بيانات اكسيس

اريد عند حذف الصنف من اليس بوكس يحذف من فاعدة البيانات


شكراااااا

الحمد للة انا استخدمت كود وعمل تمام

Private Sub btn_dlet_maix_Click()
If rs.State = 1 Then rs.Close
Dim rs4 As New ADODB.Command
rs4.ActiveConnection = conn1
rs4.CommandText = "Delete * from com_maxi where name_max =" + "'" + Text1.Text + "'"
rs4.Execute

If rs3.Status = 1 Then rs3.Close

rs3.Open "select * from com_maxi where name_max", db1, 1, 2
Do While Not rs3.EOF
list_dlet_max.AddItem rs3("name_max")
rs3.MoveNext
Loop


ولكن كيفية تحديث قاعدة البيانات فى اليست بوكس

شكرا