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

السلام عليكم

مطلوب تعديل كود فيجوال بيسك 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 & "")