[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