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

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

Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 89 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 203 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,043 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 436 03-07-15, 05:54 PM
آخر رد: dlshad24
  [vb6.0] سوال حول البحث hadeel 6 568 02-02-15, 11:14 PM
آخر رد: مصطفى
  [vb6.0] سوال حول البحث عن الاسم الثلاثي او الرباعي hadeel 1 610 31-01-15, 08:21 PM
آخر رد: Amir_alzubidy
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 905 16-11-14, 02:04 PM
آخر رد: administrator
  [سؤال] البحث بكلمة من الجملة amrelgadaa 0 429 13-11-14, 11:22 AM
آخر رد: amrelgadaa
  تلوين كلمة البحث sameerhesen 13 2,088 26-08-13, 08:57 AM
آخر رد: VB_Coder
  مساعدة في زر البحث فيجوال بيسك t.s.h.khaled 1 1,050 17-08-13, 07:46 PM
آخر رد: AGASHE

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


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