برجاء المساعدة

من طرف عوض الله123 الجمعة فبراير 28, 2014 11:46 pm

طريقة البحث فى ado
والبحث فى اكثر من حقل
فى المثال لو عايز ابحث عن كل اسم ahmed
والسعر 30
مثلا

من طرف السنى السبت مارس 01, 2014 7:07 am

_ فى البداية نقوم بكتابة كود الاتصال بقاعدة البيانات على النحو التالى :

فى القسم العام

الرمز:

الكود:: Public DB As New ADODB.Connection Public Rs As New ADODB.Recordset

فى حدث تحميل النافذة

الرمز:

الكود:: DB.CursorLocation = adUseClient DB.Provider = "Microsoft.JET.OLEDB.4.0;" DB.Open App.Path & "\Data.mdb"

_ بعد ذلك يتم إستخدام عبارة SQL و تمريرها الى كائن السجلات R وذلك فى حالات عده وهى على النحو التالى :

الكود:: sql = "select * from Table1 where name = 'ahmed' AND pirce =30" R.CursorType = adOpenStatic R.CursorLocation = adUseClient R.LockType = adLockOptimistic R.Open sql, B, , , adCmdText If R.RecordCount > 0 Then Set DataGrid1.DataSource = R Else MsgBox "لايوجد نتائج للبحث" R.Close End If

فى الاستعلام أعلاه سيقوم بجب الحقول التى تحتوى على الاسم ahmed و السعر يساوى الرقم 30

من طرف السنى السبت مارس 01, 2014 7:08 am

للمزيد عن طرق البحث يرجى مراجعة المقال التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

رد: برجاء المساعدة