أستفسار حول ربط الفيوجل بيسك بالأكسس

ارفق مثال و سأقوم بالتعديل عليه كما تريد

اخي العزيز بالنسبة اللربط فهناك عددة طرق لربط قاعدة البيانات

وبالنسبة لجعل الليبيل يأخذ البيانات من قاعدة البيانات فهو سهل مثل التكست

وأفضل ان ترفق مثال ليتم التعديل عليه

هذا المثال وأتمنا أن تضعو شرح بالمشاركة أو ترفقوا الشرح في مفكرة مع الملف

تفاصيل الملف:

يوجد مجلدات 1-ملف الفيوجل :ويحتوي على الفورم وبه ما أريد أن يفعل البرنامج

2-ملف الأكسس: وهوا لذي أريد أن يربط بملف الفيوجل

ملاحظة : المطلوب عمله بالبرنامج في ملف الفيوجل

___________________.rar

أين أنت يا متأمل

أين أنت يا mmssk100

وضع المثال أين الحل يا أخوان

أعتذر للتأخر في الرد بسبب عدم دخولي للمنتدى

تجد الحل في المرفق مع الشرح

'ÊÕÑíÍÇÊ ÎÇÕÉ ÈÇáÇÊÕÇá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ
  Dim db As ADODB.Connection
  Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Private Sub Form_Load()

'ãÊÛíÑ áÊÍÏíÏ ãÓÇÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ
Dim DB_Path As String
DB_Path = App.Path & "\Db1.mdb"

'ÊÚííä ÇÊÕÇá ÞÇÚÏÉ ÇáÈíÇäÇÊ
  Set db = New ADODB.Connection
  db.CursorLocation = adUseServer
  db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DB_Path + ";Jet OLEDB:Database Password=;"

'ÊÚííä ãÕÏÑ ÇáÈíÇäÇÊ
  Set rs = New ADODB.Recordset
  rs.Open "select [ÇáäÕ ÇáãÕÏÑ],[ÇáäÕ ÇáãÓÊæÑÏ] from [ÌÏæá1]", db, adOpenStatic, adLockPessimistic

'ÇáÊÃßÏ ãä æÌæÏ ÓÌáÇÊ
If rs.RecordCount > 0 Then
	'ÊÚííä ÞíãÉ ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ Åáì ÇááíÈá ÇáÃæá
	Me.Label1 = rs.Fields(0).Value

	'ÊÍÏíË ÞíãÉ ÍÞá ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÇáÞíãÉ ÇáãæÌæÏÉ ÈÇááíÈá 2
	rs.Fields(1) = Me.Label2
	rs.Update
End If

'ÅÛáÇÞ ÇáÇÊÕÇá
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

11.rar