الســـــــــ عليكم ــــــــــلام
أرجـــــــو مساعدتي في إظهار نتيجة البحث في أداة (ListView) بطريقتين:
أولاً: البحث بـــ (Combo) وذلك عند إختيــار صفة القيد (CombCategory) والصف (CombClass) والشعبة (CombCClass).
ثانياً: البحث بـــ (Text) وذلك عند إختيــار مجال البحــث من أداة (CombSearchs) - ثم الكتابة في أداة (TextSearchs)
فأرجو المساعدة لضعف خبرتي؛ بل لعدم خبرتي في أداة (ListView)
تم تحديث المثال [
attachment=24147]
تم بفضل الله تعالى نجاح هذا الكود في البحث بالتكست (بحث بجزء - بحث بالمطابقة)
كود :
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
وبقي البحث بالكومبوكس