المساعدة من فضلكم في عملية البحث

يا ريت واحد يعبَّرني يا ولاد الحلال

/index.php?showtopic=80280

هنا مثالين جاهزين

يا ولاد الحلال واحد يحل المثال

جرب تكتب كود search in list تحت حدث ال text_change

Private Sub Form_Load()
    List1.AddItem "Hani"
    List1.AddItem "gmaa"
    List1.AddItem "550"
    List1.AddItem "gamal"

End Sub

Private Sub Text1_Change()
    On Error Resume Next
    For i = 0 To List1.ListCount
        If Text1 = List1.List(i) Then
            List1.Selected(i) = True
        End If
    Next

End Sub

ارجو ان يكون هذا الكود هو ما تريد !!

هل البحث في قاعدة البيانات ، ويظهر النتائج حسب البحث ،، ام ان البحث في البيانات الموجودة في الـList

:( :( <_<

يا أخوتي أنا أقصد أنه بمجرد الكتابة في التكست بوكس يظهر الاسم المطلوب في الليست بوكس

وعندما أتأكد من الاسم المطلوب ظهر في الليست بوكست اضغط عليه في الليست بوكس فتظهر جميع البيانات المرتبطة به في مربعات التكست بوكس الأخري

وكل هذا يتم باستخدام ado لأنني سوف أقوم بتشغيل البرنامج على أجهزة كمبيوتر ليس بها برنامج اكسيس

مع ملاحظة أن قاعدة البيانات التي سوف أعمل عليها تحتوي على أكثر من 15000 سجل

ولسيادتكم جزيل الشكر على سرعة الرد

وشكراً جزيلا لكل من تفضل بالرد ومن سوف يقوم بالرد

اقتباس

أريد أن اكتب الاسم في مربع الاسم وبمجرد كتابة الحروف يظهر الاسم في list1 وهكذا كلما انطبقت الحروف على الاسم يظهر الاسم المطابق في list1

في حدث change لمربع النص ضع الكود هناك

عليك بالمثالين الموجودين في المشاركة رقم 3 للأخ المهنا .. ففيهما الكفاية ..

هل هذا ما تريد اخونا الفاضل :rolleyes:

abbas.zip

في الموديول

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub ViewRecord()
    With Form1
        If Not rs.RecordCount = 0 Then

            .Text2 = ""
            .Text3 = ""
            .Text4 = ""
            .Text5 = ""
            .Text6 = ""

            If Not IsNull(rs![Name]) Then .Text2 = rs![Name]
            If Not IsNull(rs![Age]) Then .Text3 = rs![Age]
            If Not IsNull(rs![Adress]) Then .Text4 = rs![Adress]
            If Not IsNull(rs![Jop]) Then .Text5 = rs![Jop]
            If Not IsNull(rs![Telno]) Then .Text6 = rs![Telno]

        End If
    End With
End Sub
Sub ListRecord()
    With Form1
        '
        '
        '
        .List1.Clear
        '
        Do While Not rs.EOF

            .List1.AddItem rs!Name
            rs.MoveNext
        Loop
        rs.Requery                                         'ÇäÚÇÔ ÇáÓÌáÇÊ
    End With
End Sub

في الفورم

Private Sub Form_Load()
    'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ]
    db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path & "\info.mdb"
    rs.Open "select * from [Table1] order by name asc", db, adOpenStatic, adLockPessimistic

    Call ViewRecord
    Call ListRecord
End Sub


Private Sub List1_Click()
    rs.Find "[Name]= '" + List1.Text + "'", 0, adSearchForward, 1
    Call ViewRecord

End Sub

Private Sub Text1_Change()
    On Error Resume Next
    For i = 0 To List1.ListCount
        If Text1 = List1.List(i) Then
            List1.Selected(i) = True
        End If
    Next

End Sub

الملف مرفق

Abass2.zip

كود البحث في listview

Private Sub Text1_Change()
    ListView1.HideSelection = False
    Dim i As Integer
    For i = 1 To ListView1.ListItems.Count
        If Text1 = ListView1.ListItems.Item(i) Then
            ListView1.ListItems(i).Selected = True
            ListView1_Click
        End If
    Next


End Sub

انتهي

راجع الرابط التالي ان شاء الله يكون فيه ما تريد

/index.ph...topic=71912&hl=

شكرا جزيلا اخونا الكريم sunny علي الرابط و علي الدرس الجميل

لكن اخونا عباس رجب يريد استخدام ال list

وعلي فكرة انا بليد جدا في الداتا بيز بس بحاول