كيف ابحث في 3 تكست بوكس عن طريق Ado مع لغة SQL؟

يا جماعة محدش رد عليه ليه

اريد مساعدتكم يا اخواني

كيف استخدم لغة الاستعلام SQL مع اداة الـ ADO عن طريق 3 Text boxes؟

المشروع مرفق اعلاه!!!

هاد الحل

general

dim db as databise

dim rs as recordset

Form_load

set db=opendata("c:=cc,mdb")

set rs=("rr")

Commcan1_Click

dim Sql_txt as string

sql_txt="select * from Emp where hh='" & text1.text & "*' and gg=......"

set rs=db.openrecordset(sql_txt)

وهان بتظهر البيانات إنتا عارف شو بدك تكتب بجمله الsql

هاي كل الطريقه

إذا مافهمت إحكيلي برجع وبعملك مثال

وشكرا

جزاك الله خيرا

هجرب و هقلك اخي

انا لا افهم الكود التالي يا اخ baster3

ارجو التوضيح اكثر

set db=opendata("c:=cc,mdb")

set rs=("rr")

وضعت الكود التالي

حيث:

phone book ---------> اسم الـ [خميثق الموجود في دريف ال c:

phone,.mdb -----------> اسم قاعدة البيانات

phonebook -----------> اسم الجدول

يا ريت تقلي ما هو الخطأ

بالاضافة اريد عرض النتائج في DATAGRID

genera----- l 

Dim db As Database
Dim rs As Recordset


Private Sub Command1_Click()
Dim SQL As String
SQL = " Select * From phonebook Where Name Like '*" & Text1.Text & "*' "
Set rs = db.openrecordset(Sql)

End Sub

Private Sub Form_Load()
Set db = opendata("C:\phone book=phone,mdb")
Set rs = ("phonebook")
End Sub

ارجو توضيح ما هو الخطا؟

و كذلك لما انفذ البرنامج تظهر رسالة:

compile error

user definded type not defined

ما هو السبب؟؟؟؟؟؟؟؟؟

اخي ارفق ملف من قبل ارجوا فتحه و و تغيير ما تقصده من شرح حتي يمكن فهم المثال !!!

و جزاك الله خيرا

محدش يا جماعة عايز يساعد؟؟؟؟؟

يا جماعة حد يعرف الي قلت عليه فوق؟

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

اتمني من المشرفين او من احد الاعضاء المساعدة!