كيف اربط قاعده بيانات ب list1

اذا كنت تربطها عن طريق خاصية ٌRecordsource فلن اقل شيئا هذا اذا كانت لها هذة الخاصية

لربطها بحقل معين

Privae sub linnk()
'اذا كنت تستخدم مكتبة 
Dim r as recorset
do untill r not EOF
list1.additem r
loop

مع العلم ان ال EOF method تقوم بارجاع القيمة المنطقية True اذا كان ال r على اخر سجل

اخي انا مش فاهم قوي ممكن مثال لكي يتوضح لي الامر

حته تفاريحى من واحد بيكره قواعد البيانات.

Option Explicit
'Using the DAO reference
Private Const DBName As String = "db1.mdb" '<-- Database name
Dim DFP As String '<-- Database full path

Dim DB As Database
Dim RS As Recordset
Dim WS As Workspace

Private Sub cmboNames_Change()
cmboNames_Scroll
End Sub

Private Sub cmboNames_Click()
cmboNames_Scroll
End Sub

Private Sub cmboNames_Scroll()
Set RS = DB.OpenRecordset("Select * from " & "جدول1" & " where " & "Name" & " = '" & Trim(cmboNames.Text) & "'")
RS.MoveFirst
txtAge.Text = RS("Age")
txtPhone.Text = RS("Phone")
txtAddress.Text = RS("Address")
End Sub

Private Sub Form_Load()
DFP = App.Path
If Right$(DFP, 1) <> "\" Then DFP = DFP & "\"
DFP = DFP & DBName

If FileExists(DFP) = False Then
	Dim Path As String
	Path = OpenDialog(Me, "Microsoft DataBases (*.MDB)|*.mdb", "Select a DataBase")
	If Path <> "" Then
			DFP = Path
		Else
			MsgBox "Database was not found", vbCritical + vbSystemModal, "Error...!": Unload Me
	End If
End If

Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase(DFP)

Set RS = DB.OpenRecordset("جدول1", dbOpenTable)

If RS.RecordCount <> 0 Then
	RS.MoveLast	 ' <--.
					'	 |- Refresh the database to get a correct count.
	RS.MoveFirst	' <--'

	Dim L As Long

	For L = 0 To RS.RecordCount - 1
		List1.AddItem RS("Name")
		RS.MoveNext
	Next
End If
End Sub

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

أعمل بحث المنتدى ممتلئ بهم

اخي بحثت و لم اجد ارجو افادتي بسرعة لاني محتاج الكود بشده

ومش عارف اتقل الData الموجوده في الListbox لل Database واخزنها

كيف أجعل Combo1 يحفظ البيانات

أستخدام (Linked List) فى تحميل جدول قاعدة البيانات إلى الذاكرة (Cache)

شكرا لك

حلوة الحتة التفاريحى بتاعتك خلاص دى اخر رسالة هرد عليها الان ساعتكف على مشروعات

اعزرونى