[ابومحمد1979]

بسم الله الرحمن الرحيم

الاخوة المبرمجين

السلام عليكم ورحمة الله وبركاته

لدي قاعدة بيانات اكسس اريد ان اريطها في الشبكة علما انني اعمل في شركة و الشركة لديها سيرفرات مربوطة مع بعظها علي مستوي المملكة حيث انني افكر ان اخذ مساحة خاصة علي السيرفر واضع فيها قاعدة البيانات لاكن الاشكال يكمن في :

طريقة ربطها بالكود
الاجراءات بعد الربط بالكود
الادوات المطلوبة او الصلاحيات

علما انني رباط قاعدة البيانات في Module بهذه الطريقة

Sub main()
On Error Resume Next
Set db3 = New Connection
db3.CursorLocation = adUseClient
so = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mycompany.mdb;Jet OLEDBatabase "
db3.Open so
Dim rs1 As Recordset
Set rs1 = New Recordset
rs1.Open so, db3, adOpenStatic, adLockOptimistic
rs1.Close
Form3.Show
End Sub