طلب مساعدة ربط اكسس مع فيجوال

اية المشكلة ان يكون فيه اكتر من جدول مربوطين مع بعض بعلاقات وبعدين تربطهم بآداه ADO.NET

لمعرفة الطريقة ياريت تروح تسأل الجماعة بتوع قسم الــ ADO.NET

هتلاقي عندهم الحل ان شاء الله

أخي العزيز قم بالخطوات الآتية :

اضف Module جديد وأكتب الكود الاتي وظيفته ربط الاكسس مع الفيجوال بيسك عن طريق ADO:

Public db As Database

Public rst As Recordset

Public operationtype As Byte

Private Sub Main()

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "/database.mdb")

splash.Show

End Sub

مع الامنيات لك بالتوفيق