البحث عن طريق textbox و عرض النتايج عن طريق dataGrid والربط بستخدام إداة Adodc

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

الحقيقة السؤال مختصر و غير محدد و على ما يبدو المطلوب هو أسلوب كتابة الكود أو الفكرة

مثلا لو كان عندي قاعدة بيانات فيها جدول اسمه Item يخزن معلومات المواد في المخزن و يتألف هذا الجدول من الحقول التالية:

1. ID ,معرف السجل

2.Name , اسم المادة

3.Price , سعر المادة

و لدينا وادجهة فيها Textbox , Command Button و Grid

نريد عرض جميع المواد التي تحتوي على أحرف معينة في ال Grid بعد كتابة مفتاح البحث في ال textbox

مثلا كتبنا في الtextbox الأحرف التالية "مي" عند الضغط على الcommand button سوف تظهر النتائج التالية مثلا

مياه غازية

مياه معدينة

ميونيز

سو فنقوم بتركيب جملة sql عند الضغط على command buttonو تنفذها و عرض النتائج في الgrid

sub command1_Click
dim sql as string
sql = "Select * from Item where Name Like ""%" & text1.text & "%"""
dim RS as recordset
set rs = myConnection.execute (Sql)' note:بدل myconnection بإسم الإتصال الصحيح الموجود لديك
grid.rows =1
do until rs.eof
grid.addnew rs!name
rs.movenext
end sub

لقد تم كتابة جملة استعلام sql تبجث عن اي سجل يتضمن محتوى ال textbox و لكن حسب نوع قاعدة البيانات فيجب التأكد من التعليمة Like هل تعمل مع الرمز % او الرمز *

كما قلت هذه فكرة للعمل و ليست الحل فيجب ان تطبع شبيها لها حيب كود برنامجك

الحمد لله رب العالمين