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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اظهر نتائج البحث في كريستال ريبورت princeofislam 7 1,143 31-08-20, 11:39 AM
آخر رد: Nasa_use
  البحث بين تاريخين mohfar 13 3,383 25-07-20, 11:08 PM
آخر رد: مصمم هاوي
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 415 16-07-20, 03:22 AM
آخر رد: hasanqo
  برجاء المساعدة فى listview ahmed eldouskey 5 418 14-07-20, 05:22 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في عملية البحث برقم السيارة من قائمة الليست فيو وادي العوضي 13 984 24-05-20, 09:36 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في عملية البحث برقم التسلسل وادي العوضي 2 461 24-05-20, 01:44 PM
آخر رد: وادي العوضي
  كيفيه البحث عن نص في اكثر من ملف في فجول بيسك 6 حسين فتحي 7 796 12-03-20, 05:44 AM
آخر رد: سعود
  اريد البحث في الكومبوبوكس بدلاله كومبوبوكس اخرى mhareek 8 988 14-01-20, 05:19 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخ باستخدام ادة calender date.ocx gonm64 4 635 05-01-20, 12:15 AM
آخر رد: Ahmed_Mansoor
  كيف البحث ب not like gonm64 2 572 22-11-19, 07:12 AM
آخر رد: gonm64

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


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