10-01-15, 09:40 PM
بسم الله الرحمن الرحيم
الاخوة المبرمجين
السلام عليكم ورحمة الله وبركاته
لدي قاعدة بيانات اكسس اريد ان اريطها في الشبكة علما انني اعمل في شركة و الشركة لديها سيرفرات مربوطة مع بعظها علي مستوي المملكة حيث انني افكر ان اخذ مساحة خاصة علي السيرفر واضع فيها قاعدة البيانات لاكن الاشكال يكمن في :
طريقة ربطها بالكود
الاجراءات بعد الربط بالكود
الادوات المطلوبة او الصلاحيات
علما انني رباط قاعدة البيانات في 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
الاخوة المبرمجين
السلام عليكم ورحمة الله وبركاته
لدي قاعدة بيانات اكسس اريد ان اريطها في الشبكة علما انني اعمل في شركة و الشركة لديها سيرفرات مربوطة مع بعظها علي مستوي المملكة حيث انني افكر ان اخذ مساحة خاصة علي السيرفر واضع فيها قاعدة البيانات لاكن الاشكال يكمن في :
طريقة ربطها بالكود
الاجراءات بعد الربط بالكود
الادوات المطلوبة او الصلاحيات
علما انني رباط قاعدة البيانات في 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