31-07-13, 05:48 AM
[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