03-11-15, 05:28 PM
(آخر تعديل لهذه المشاركة : 03-11-15, 07:43 PM {2} بواسطة hamada salah90.)
السلام عليكم ورحمة الله وبركاته
أريد كود لتحويل قاعدة البيانات
GG.mdb
من تنسيق أكسس97
إلى أكسس2003
ثم نسخها إلى مجلد البرنامج
ولكم جزيل الشكر والتقدير لمجهوداتكم العظيمة
مرفق مثال للتعديل
هذا كود الإتصال بقاعدة البيانات
Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset
Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic
End Sub
أريد كود لتحويل قاعدة البيانات
GG.mdb
من تنسيق أكسس97
إلى أكسس2003
ثم نسخها إلى مجلد البرنامج
ولكم جزيل الشكر والتقدير لمجهوداتكم العظيمة
مرفق مثال للتعديل
هذا كود الإتصال بقاعدة البيانات
Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset
Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic
End Sub
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah