الاخ Ahmed_Mansoor انا استخدم الكود التالي للبحث داخل قاعدة البيانات
ارجو مراجعتة
ارجو مراجعتة
كود :
Private Sub Command9_Click()
On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where [StdName]= '" & Text5 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where [Class] LIKE '%" & Text5 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where [Div] LIKE '" & Text5 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where [" & Combo1.Text & "] LIKE '%" & Text5 & "%';"
End If
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Set DataReport2.DataSource = RS
DataReport2.Show
End Sub
