كود البحث المهم جدا في التعامل مع المشروع والمساعدة في إعداد أي منظومة بها عملية بحث فعالة

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

سنعرض اليوم بعض الاكواد المهمة في التعامل مع المشروع وسنبدأ بالاكواد الخاصة بعمليات التعامل مع عمليات البحث لأهميتها في أي منظومة أو أي مشروع

الكود يجب أن يكتب داخل مربع النص Text وفي الحدث تغيير Change

Private sub text1_change ()

if not vbcancel then

     adodc1.refresh

     adodc1.recordsource="select * form tab1 where f1 like '%" & text1 & "%' "

     adodc1.commandType=adCmdText

     Adodc1.Refresh

End If

end sub

هنا كتبنا الكود داخل الحدث تغير للأداة مربع النص وذلك لكي تتحسس كل تغير يطرأ عليها وهي بعد ذلك تغير محتوياتها بناء على المطلوب.

السطر الثاني هو لبناء شرط  

أما السطر الثالث فهو لإنعاش أداة الاتصال مع قواعد البيانات

السطر الرابع هو لتحديد فقط ما هو شبيه بما هو موجود داخل الأداة والتسمية tab1 تعني الجدول أما f1 فتعني الحقل الذي تريد البحث بداخله.

السطر الخامس وهو لتحديد أن البيانات يجب معاملتها كنص

السادس للإنعاش

السابع لإنهاء جملة الشرط

الثامن لإنهاء الكود