[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

[أبو عمر]

يعتمد عليك أنت تركب أوفيس 2003 أو أعلى
وتفتح الثاعدة ثم تقوم بتحويلها أنت
اذا تم تحويلها من قبل أي عضو هنا
واخذتها أنت
لن تستفيد في حال اردت تعديل على الجدول باضافة أو حذف حقل مثلا
موفق

[Ahmed_Mansoor]

أهلا أخي الكريم , هذا اللي أعرفه بخصوص عملية التحويل بالكود وهو أنك تستخدم سطر الأوامر Command Line الخاص بالأكسس المثبت على جهازك , وأمر تحويل قاعدة بيانات إلى تنسيق الأكسس المثبت على الجهاز طبعاً بعد تشغيل شاشة الدوس أو CMD :

كود :

"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" C:\db97.mdb /convert C:\New.mdb

[مسار ملف برنامج الأكسس على جهازك] مسافة [مسار قاعدة التي بتنسق 97] مسافة convert/ مسافة [مسار الملف الجديد الناتج بعد عملية التحويل]

- ملاحظه : إذا كان يوجد مسافات في أي من المسارات لابد من وضعه داخل علامتي تنصيص مزدوج .

[hamada salah90]

شكرا لكل من قام بالرد