سؤال

في جملة الاستعلام ال sql يجب كتابة ما يلي:

Select * from namestable where name=" & txtname.text & "*"

في ال text1_Change

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

select * from namestable where name=م*

هناك اكثر من طريقه

لكن يجب ان تبين اي اداه تستخدم

هل هي الado

او الdao

اذا كنت تستخدم الاولى فاكتب الكود التالي

adodb1.recordsource='select * from <table name> where number =123654789"

او تعين تيكست بوكس اسمه text1.text

وتكتب الكود التالي:

Adodc1.Recordset.Find "اسم الحقل الذي تريد البحث عنه'" & text1.Text & "'", , adSearchForward, 1

واذا كنت تستعمل الdao

فاكتب نفس الكود الاول الخاص بsql

واذا كنت تريد البحث تعين تيكست بوكس اسمه text1.text

وتكتب الكود التالي

data1.recordset.index ("تكتب اسم الحقل هنا")
data1.recorfset.seek"=",text1.text
if data1.recordset.nomatch then
msgbox"لم يتم العثور على ماتريد"
data1.recordset.movenext

واي خدمه انا موجود

حاولت باكود عندي لكن هناك أخطاء تحدث دائما عندما أحاول

أن أنفذ البرنامج

ممكن تحمل الملف المرفق للبرنامج و تحل هذه المشكلة

إذا مافي غلبة...........

MyDataBase 2.zip