list

السلام عليكم

أخى الكريم

هناك عده وسائل للاتصال بقاعدة بيانات فى Visual Basic 6

مثل ADO و DAO أو باستخدام الأدوات مثل Data Control

أنا أفضل ال ADO :lol: لذلك سأشرح لك بال ADO

أولا : أضف مكتبة Microsoft ActiveX Data Objects 2.1 Library من ال References

ثانيا : اعمل Module جديد و اكتب فيه هذا الأمر

Global Cn As ADODB.Connection


Private Sub Main()
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=systemwindows98; Data Source=" & App.Path & "\database.mdb"
Form1.Show
End Sub

من خصائص المشروع اجعل بداية المشروع من Sub Main

اعمل فورم جديد سميه Form1

اضف List1 و اضف Command1

اكتب الكود التالى لل Command1

Dim Rs As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT Person_name FROM Table1"
Rs.Open SQL, Cn, adOpenDynamic, adLockPessimistic
Set Rs = Cn.Execute(SQL)

Dim I
For I = 1 To 100000
  If Rs.EOF = False Then

    List1.AddItem Rs("Person_name")
    Rs.MoveNext


   Else
    Exit For

   End If
Next

طبعا تغير اسم الجدول ،، أنا فرضت اسم الجدول Table1

و فرضت اسم الحقل المطلوب عرضه List1 هو Person_name

تمام يا باشا

و اى خدمة انا موجود معاك :D