كيف ممكن أعرض ما بداخل قاعدة بينات في LisBox

Private rs As ADODB.Recordset

Dim rsin As New ADODB.Recordset

Private Sub Form_Load()

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select emp_no from emp", cn, adOpenKeyset, adLockOptimistic

Do Until rs.EOF = True

DoEvents

If Not IsNull(rs.Fields) Then

List1.AddItem rs.Fields(0)

rs.MoveNext

End If

Loop

End Sub

Private Sub List1_Click()

If rsin.State = 1 Then rsin.Close

rsin.Open "emp", cn, adOpenDynamic, adLockOptimistic

rsin.Find "emp_no =" & Val(List1.Text), 0, adSearchForward, 1

If Not rsin.EOF Then

Text1 = rsin!Name

Text2 = rsin!adrress

Text3 = rsin!city

Text4 = rsin!suta

Text5 = rsin!certificate

Text6 = rsin!experience

Text7 = rsin!phon

Text8 = rsin!start_date

Text9 = rsin!department

End If

End Sub

اتمنى ان يكون هذا طلبك.

وهذا كود كامل عند الضغط على رقم الموظف من اللست بوكس سوف يقوم بعرض بيانات الموظف في التكس المحدد له.

طبعا سوف يعرض ارقام الموظفين في اللست بوكس عند التحميل.

أخي الكريم شكراً لك على المساعدة

ولكن الكود لم يعمل معي

لو تستطيع أن ترفق لي مثال يكون أفضل وجزاك الله خيراً .

يا جماعة أريد مساعدة أو توضيح للكود السابق .

أخي الكريم إبراهيم الطيب

هذا الرابط يتكلم عن Combo وأنا أريد أن أعرض الموجود في قاعدة ما داخل أداة List .

وليس عدم تكرار البيانات داخل ComboBox .

السلام عليكم

طيب إذاكانت المشكلة في انك تريد أن تعرض البيانات في

List و ليس كمبو ؟ إذا كان كذلك الكود يعمل للأثنين فقط عليك تغير

الـ List بالكمبو تبعك .....

أخي الكريم ما فهمت عليك

أنا جربت الكود ولم يعمل :blink:

وقمت بالتعديلات اللازمة . :wacko:

السلام عليكم

طيب جرب الكود :

في قسم التعريفات

Private Sub FillList()
List1.Clear
SQL = "Select CustID from Tbl_Cus "
Set t = d.OpenRecordset(SQL)
With t
   Do Until .EOF
      List1.AddItem !CustID
      .MoveNext 
   Loop
   .Close
End With

End Sub

و يستخدم لعرض ارقام العملاء CustID في List1 من جدول العملاء Tbl_Cust

و بدون تجميع , أي يكرر الارقام إن تكرر الرقم في الجدول ...

و لاستخدامه فقط اكتب FillList في الحدث المناسب

شكراً لك أخي إبراهيم الطيب :wacko: :wacko:

COMFORT مثال في المرفق وآسف على التاخير .

لست بوكس.rar

شكراً لك أخي devloper

مثال واضح ووافي بالغرض .

أشكرك مرة أخرى

وأشكر الأخ إبراهيم الطيب على المساعدة .

(h) (h) (h) (h)

للفائده أكواد جمعتها من اعضاء هذا المنتدى من مشاركات مختلفه ...

    Dim Rs As New ADODB.Recordset
    Dim SQL As String
    
    SQL = "SELECT Name FROM Table1"
    Rs.Open SQL, DB, adOpenDynamic, adLockPessimistic
    
    Dim I
    For I = 1 To 100000
        If Rs.EOF = False Then
            List1.AddItem Rs("Name")
            Rs.MoveNext
        Else
            Exit For
        End If
    Next

وهذا كود آخر :

'ضع هذا الجزء في موديول
Public Sub FillComboBox(Comboboxname As ComboBox, SQL As String, Fieldname As String)
   
    Dim ado As ADODB.Connection
    Dim rsTemp As ADODB.Recordset
    
    Set ado = CreateObject("ADODB.Connection")
    
    
    ado.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
       
    Set rsTemp = CreateObject("ADODB.Recordset")
           
    With rsTemp
        .LockType = adLockReadOnly
        .CursorType = adOpenForwardOnly
    
        .Open SQL, ado
    End With
    
    
    Comboboxname.Clear
    
    Do While Not rsTemp.EOF
        Comboboxname.AddItem rsTemp(Fieldname)
        rsTemp.MoveNext
    Loop
    
    
    rsTemp.Close
    Set rsTemp = Nothing
    
    Comboboxname.ListIndex = 0
    
    ado.Close
    Set ado = Nothing
   
End Sub

'وهذا الكود مثال للإستدعاء
Call FillComboBox(Combo2, "Select ProductName from Products", "ProductName")

تحياتي للجميع هنا وخصوصا أبراهيم الطيب

بارك الله فيك أخي محمد "النبهاني "