منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الساده الأعضاء والمشرفين

تحية طيبه وبعد

أرجو إيضاح طريقة الربط بين جداول الأكسيس والفيجوال بيسك 6

السلام عليكم

اخي راجع هذا المثال

المثال

طريقة الرابط مع مكتبة ado
If cn.State = 1 Then cn.Close
'cn.Open "provider=microsoft.jet.oledb.4.0;data source=gymsys.mdb"
'rs.Source = "member"
'
'rs.ActiveConnection = cn
'rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic
'rs.CursorLocation = adUseClient
'rs.Open
طريقة الربط بمكتبة ال dao
Set db = OpenDatabase("gymsys.mdb
Set rs = db.OpenRecordset("member