تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار نتيجة البحث في ListView
#1
الســـــــــ عليكم ــــــــــلام
أرجـــــــو مساعدتي في إظهار نتيجة البحث في أداة (ListView) بطريقتين:
أولاً: البحث بـــ (Combo) وذلك عند إختيــار صفة القيد (CombCategory)  والصف  (CombClass) والشعبة (CombCClass).
ثانياً: البحث بـــ (Text) وذلك عند إختيــار مجال البحــث من أداة (CombSearchs) - ثم الكتابة في أداة (TextSearchs)

فأرجو المساعدة لضعف خبرتي؛ بل لعدم خبرتي في أداة (ListView)

تم تحديث المثال
.rar   إظهار نتيجة البحث في الليست فيو.rar (الحجم : 1.61 م ب / التحميلات : 35)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
تم بفضل الله تعالى نجاح هذا الكود في البحث بالتكست (بحث بجزء - بحث بالمطابقة)
كود :
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

وبقي البحث بالكومبوكس
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [vb6.0] البحث في القائمة المنسدلة haitham farooq 0 158 31-12-23, 03:06 PM
آخر رد: haitham farooq
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  البحث بين السنوات Abdellah 2 446 16-06-23, 11:27 AM
آخر رد: Abdellah
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
  البحث بقاعدة البيانات المختارة من الكومبوكس مصمم هاوي 6 908 15-07-22, 03:42 AM
آخر رد: سعود
  البحث في ملفات Pdf Alhootti1 2 661 03-07-22, 03:26 PM
آخر رد: Alhootti1
  إظهار طلبة الدور الثاني حسب مواد الرسوب مصمم هاوي 12 1,704 19-11-21, 09:09 AM
آخر رد: مصمم هاوي
  اريد البحث فى حقل يحتوي على الاسم رباعي الحزين اوى 0 873 19-06-21, 12:15 AM
آخر رد: الحزين اوى
  هل يمكن إظهار أداة DatePicker فارغة مصمم هاوي 4 1,504 28-03-21, 08:56 PM
آخر رد: مصمم هاوي
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 1,072 04-01-21, 06:52 PM
آخر رد: aboezzat84

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم