25-07-13, 07:56 AM
السلام عليكم
مطلوب تعديل كود فيجوال بيسك 6
لحذف جميع البيانات اللي تطابق الشرط وهو عام 2011
من الجدولasnaf في قاعدة البياناتwewdata حقل العام في الجدولno
Dim db As Database
Set db = OpenDatabase("wewdata.mdb")
Set db = ";pwd=wew2000"
db.Execute ("DELETE from asnaf where no=" & Text1.Text & "")
مطلوب تعديل كود فيجوال بيسك 6
لحذف جميع البيانات اللي تطابق الشرط وهو عام 2011
من الجدولasnaf في قاعدة البياناتwewdata حقل العام في الجدولno
Dim db As Database
Set db = OpenDatabase("wewdata.mdb")
Set db = ";pwd=wew2000"
db.Execute ("DELETE from asnaf where no=" & Text1.Text & "")