و بالنسبة للذي يريد عرض نتائج البحث في form2 باستعمال كود شامل لقاعدة البيانات ؟؟  مع اعطاء الكود المناسب للبحث  مع جزيل الشكر

khasd كتب:و بالنسبة للذي يريد عرض نتائج البحث في form2 باستعمال كود شامل لقاعدة البيانات ؟؟ مع اعطاء الكود المناسب للبحث مع جزيل الشكر

أهلا وسهلا الاخت الفاضلة khasd



فمهت من سؤالك أن برنامجك مكون من عدد 2 نموذج ...النموذج الاول خاص بالعمليات الرئسية على قاعدة البيانات مثل الاضافة و الحذف و التعديل و الحفظ و أيضا أوامر التنقل بين السجلات .......و النموذج الاخر 2 خاص بنتائج البحث .....مثل الصورة التالية :







وعند الضغط على زر البحث كما فى الصورة السابقة يأتى نموذج الثانى ...وهو نموذج البحث كما فى الشكل التالى :











مع العلم بأن تقنية الاتصال بقاعدة البيانات هى مكتبة ado وليس أداة ado الذى سألتى عنها فى مشاركة سابقا ...فأن كنتى تقصدين هذا فاليكى الحل :



الخطوة الاولى : هى أضافة وحدة برمجية للمشروع Module وذلك عن طريق القائمة Project ثم نختار add Module كما فى الشكل التالى :

الكود:

Sub egy()
If B.State = adStateOpen Then B.Close
B.Provider = "Microsoft.JET.OLEDB.4.0;"
B.Open App.Path & "\project1.mdb"
End Sub

الكود:

Private Sub datashwo()
If R.RecordCount < 1 Then Exit Sub
Text1.Text = R!ID
Text2.Text = R!Name
Text3.Text = R!TEL
Text4.Text = R!ADRS]

End Sub

الكود:

Call egy
R.Open "[table1]", B, adOpenStatic, adLockPessimistic
Call datashwo


الكود:

Private Sub SelectField()
    Select Case Combo1.ListIndex
        Case 0
            sField = "ID"
        Case 1
            sField = "Name"
        Case 2
            sField = "tel"
        Case 3
            sField = "adrs"
     
    End Select
End Sub


الكود:

Private Sub Full()
    Select Case Combo2.ListIndex
        Case 0
            sFull = "Full"
        Case 1
            sFull = "StartWith"
        Case 2
            sFull = "Contain"
        Case 3
            sFull = "EndWith"
    End Select
End Sub


الكود:

If Text1.Text = "" Then
MsgBox "عفوا نص البحث فارغ", vbInformation, "البحث"
Text1.SetFocus
Exit Sub
End If

الكود:

Call Full
Call SelectField


الكود:

If R.State = adStateOpen Then R.Close


الكود:


Select Case sFull
 
Case "Full"

   sql = "select * from Table1 where " & sField & " = '" & (Text1.Text) & "'"
          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


Case "StartWith"

        sql = "select * from Table1 where " & sField & " like '" & (Text1.Text) & "%'"
           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
          
Case "Contain"


          sql = "select * from Table1 where " & sField & " like '%" & (Text1.Text) & "%'"
            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
End Select


حفظك ربي ورعاك شكرا على الشرح اقدر لك مجهوداتك وشكرا لك

الربط لا يعمل

روعة روعة روعة 
ولكن الرابط لا يعمل

الرابط لا يعمل ياريت ترفع المثال مره اخري