إظهار نتيجة البحث في ListView - نسخة قابلة للطباعة

كود :
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