تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
افضل طرق البحث بـ ado
#1

[1]أختيار مكتبة الأداةADO في الخطوات التالية :

من قائمة
Project
ثـــم
References


Microsoft ActiveX Data Object 2.X Library
ملاحظة : X ترمز لنوع الاصدار وسنستخدم هنا الاصدار التالي
Microsoft ActiveX Data Object 2.6 Library

[2]كود الاتصال بقاعدة البيانات بالكود التالي
قم بأضافة مديول Module واكتب الشفرة التالية بداخله


كود :
Public DB As New ADODB.Connection 'تعريف لقاعدة البيانات
Public Rs As New ADODB.Recordset  '  تعريف لسجلات القاعدة

ثم ضع شفرة الاتصال في حدث تحميل الفورم Form Load


كود :
DB.CursorLocation = adUseClient  ' فتح قاعدة البيانات
        DB.Provider = "Microsoft.JET.OLEDB.4.0;"
        DB.Open App.Path & "\Data.mdb"
   '
        Rs.Open "Table1", DB, adOpenStatic, adLockPessimistic  ' فتح الجدول

عملية البحث بخواص الاداة نفسها ADO

- البحث بالجزء الأخير من الأسم
كود :
Rs.Find [XXX]  Like '%" & Trim(Text1.Text) & "%'",0, adSearchForward, 1


ملاحظة : حيث XXX اسم الحقل المراد البحث فيه .
0, adSearchForward, 1 للبدأ بعملية البحث من أول سجل
- البحث بأي جزء من الأسم

كود :
Rs.Find [XXX]  Like '%" & Trim(Text1.Text) & "%'",0, adSearchForward, 1
البحث بالجزء الأول من الأسم
كود :
Rs.Find [XXX]  Like '%" & Trim(Text1.Text) & "'",0, adSearchForward, 1


البحث بمطابقة الأسم

كود :
Rs.Find [XXX]  = '" & Trim(Text1.Text) & "'",0, adSearchForward, 1

البحث بمطابقة حقل رقمي

كود :
Rs.Find [XXX]  = " & Trim(Text1.Text) & "',0, adSearchForward, 1

عملية البحث بخاصية Select أو جمل SQL
- البحث بأول جزء من الأسم

كود :
Rs.Open "Select * From Table1 Where  XXX Like '" & Trim(
Text.Text) & "'%", DB, adOpenStatic, adLockPessimistic

البحث بين تاريخين
كود :
SELECT * FROM Table1 Where Date1 between  Format("& Text1.Text &", "mm/dd/yyyy")
Date1 Format("& Text2.Text &", "mm/dd/yyyy") and

ملاحظة : XXX اسم الحقل المراد البحث فيه


أما عند البحث في حقلين تستخدم خاصية And أو OR كما يلي

كود :
RS.Open "SELECT * FROM Table1 WHERE [F1] = '" & Trim(Text) & "' OR [F2] = '" & Trim(Text2) & "'", db, adOpenStatic, adLockPessimistic
[ATTACH=CONFIG]3570[/ATTACH]


الملفات المرفقة صورة/صور
   
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}
تم الشكر بواسطة: princeofislam , حامد محمد
#2
شرح رائع ولوممكن ارفاق مثال عملي علي الشرح.
الرد }}}
تم الشكر بواسطة:
#3
ان شاء الله عما قريب
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}
تم الشكر بواسطة:
#4
[COLOR="#0000CD"]شرح اكتر من رائع بارك الله فيك اخي ممكن مثال وجزاك الله الف خير [/COLOR]
الرد }}}
تم الشكر بواسطة:
#5
بصراحة شرح سهل و جميل جداً بارك الله فيك

العاب من برمجتي  

Smile
الرد }}}
تم الشكر بواسطة:
#6
احسنت بارك الله بك
الرد }}}
تم الشكر بواسطة:
#7
بوركت اخي الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,083 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 2,144 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 3,266 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 3,048 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 3,776 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 2,740 03-07-15, 05:54 PM
آخر رد: dlshad24
  [vb6.0] سوال حول البحث hadeel 6 3,305 02-02-15, 11:14 PM
آخر رد: مصطفى
  [vb6.0] سوال حول البحث عن الاسم الثلاثي او الرباعي hadeel 1 2,873 31-01-15, 08:21 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم