أريد تحميل محتوى حقل في list

رجااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااءً :huh: :( :wacko:

plz :(

:s

أخوي الموضوع سهل إن شاء الله ،،،

تأكد من إضافة المكتبة Microsoft DAO 3.51 Object Library إلى الـReferences. بعد ذلك إليك الكود الذي يقوم بتحميل محتويات حقل إلى List:

Dim db As Database

Private Sub Form_Load()
	Set db = DBEngine.OpenDatabase(App.Path & "\NWIND.mdb")
	Call LoadListFromDB
End Sub

Sub LoadListFromDB()
	Dim rsPhones As Recordset

	List1.Clear
	Set rsPhones = db.OpenRecordset("Customers", dbOpenTable)
	With rsPhones
		.MoveFirst
		Do While Not .EOF
			List1.AddItem !phone
			.MoveNext
		Loop
		.Close
	End With
End Sub