منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
افضل طرق البحث بـ ado - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : افضل طرق البحث بـ ado (/showthread.php?tid=9862)

افضل طرق البحث بـ ado - derbaliammar - 31-07-13


[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]


افضل طرق البحث بـ ado - عبدالله الصافي - 31-07-13

شرح رائع ولوممكن ارفاق مثال عملي علي الشرح.

افضل طرق البحث بـ ado - derbaliammar - 31-07-13

ان شاء الله عما قريب

افضل طرق البحث بـ ado - bushramalla - 21-08-13

[COLOR="#0000CD"]شرح اكتر من رائع بارك الله فيك اخي ممكن مثال وجزاك الله الف خير [/COLOR]

افضل طرق البحث بـ ado - AGASHE - 21-08-13

بصراحة شرح سهل و جميل جداً بارك الله فيك

RE: افضل طرق البحث بـ ado - haider kh - 10-08-19

احسنت بارك الله بك

RE: افضل طرق البحث بـ ado - ahmed.m - 12-08-19

بوركت اخي الكريم