أحتاج إلى كود يشغل الإستعلام من الفجول بيسك

السلام عليكم ورحمة الله

اخي السائل يجب ان تحدد ما هو نوع الاستعلام الذي تريد استخدامه في الكود

هناك طريقتان لعمل الاستعلام في الفيجول بيسك

الطريقة الاولى اذا كنت تستعمل الأوامر مثلInsert Into , Delete , Update وذلك بإتباع الخطوات التالية :

1. يجب تعريف متغير لقاعدة البيانات

2. فتح قاعدة البيانات

3. عمل الاستعلام

4. تنفيذ الاستعلام

ولفهم الطريقة اتبع المثال التالي:

1. Dim mydatabase As Database

2 mydatabase = opendatabase("c:\db.mdb")

3. Qury="delete * from Mytabel where no = 100 "

4. Mydatabese.Exlecute

واليك المثال كاملاً

Dim mydatabase As Database

Private Sub Command1_Click()

qury = "delete * from mytabel where Nophone ="&622398

mydatabase.Execute qury

End Sub

Private Sub Form_Load()

Set mydatabase = OpenDatabase("c:\db.mdb")

End Sub

**********************************

الطريقة الثانية عندما تستعمل جملة Select وذلك موضحة كما في المثال التالي

استعمل اداة Data Control لسهولة استخدامها

Data1.RecordSourc = "select * from Mytabel where Nophone ="&62239

Data1.Refrech

Text1.text = Data1.Recordset.fileds("Nophone")

Text2.text = Data1.Recordset.fileds("Name")

Text3.text = Data1.Recordset.fileds("Addres")

…..