[مصمم هاوي]

تم بفضل الله تعالى نجاح هذا الكود في البحث بالتكست (بحث بجزء - بحث بالمطابقة)

كود :

Private Sub TextItmsSearsh_Change()
On Error Resume Next: Err.Clear
'..................................

If rs.State = 1 Then rs.Close
If OptionType(0).Value = True Then
If OptionTypeItms(0).Value = True Then
rs.Open "select * From TBL_Student WHERE ID LiKE '%" & Trim(TextItmsSearsh.Text) & "%'", DB, adOpenKeyset, adLockOptimistic
ElseIf OptionTypeItms(1).Value = True Then
rs.Open "select * From TBL_Student WHERE Name_Student LiKE '%" & TextItmsSearsh.Text & "%'", DB, adOpenKeyset, adLockOptimistic
End If
ElseIf OptionType(1).Value = True Then
If OptionTypeItms(0).Value = True Then
rs.Open "select * From TBL_Student WHERE ID ='" & Trim(TextItmsSearsh.Text) & "'", DB, adOpenKeyset, adLockOptimistic
ElseIf OptionTypeItms(1).Value = True Then
rs.Open "select * From TBL_Student WHERE Name_Student ='" & TextItmsSearsh.Text & "'", DB, adOpenKeyset, adLockOptimistic
End If
End If
ListView1.ListItems.Clear
If rs.RecordCount <> 0 Then
For n = 1 To rs.RecordCount
Call ItmsLoadSearsh
rs.MoveNext
Next
End If
End Sub


Private Sub OptionTypeItms_Click(Index As Integer)
Select Case Index
Case 0
LabelItms.Caption = "رقم الطالب"
Case 1
LabelItms.Caption = "اسم الطالب"
End Select
End Sub

Public Sub ItmsLoadSearsh()
On Error Resume Next: Err.Clear
'..................................
Set Item = ListView1.ListItems.Add
Item.Text = rs!ID
Item.SubItems(1) = rs!Sataus
Item.SubItems(2) = rs!CClas
Item.SubItems(3) = rs!Clas
Item.SubItems(4) = rs!Name_Student
End Sub

Private Sub Form_Load()
OptionTypeItms_Click 0
'..................................
Call Connect_DataBase
DoEvents
Call Get_Data
DoEvents
Fill
FillData
End Sub

وبقي البحث بالكومبوكس