المشاركات : 45
المواضيع 12
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 32 مرات في 2 مشاركات
10-09-14, 11:30 AM
السلام عليك
انا عمل على مشروع وجاهنى مشكلة فى طريقة حذف صنف من الليست بوكس متعبية من قاعدة بيانات اكسيس
اريد عند حذف الصنف من اليس بوكس يحذف من فاعدة البيانات
شكراااااا
المشاركات : 45
المواضيع 12
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 32 مرات في 2 مشاركات
الحمد للة انا استخدمت كود وعمل تمام
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
ولكن كيفية تحديث قاعدة البيانات فى اليست بوكس
شكرا