السلام عليكم ورحمة الله وبركاته
يا جماعة أريد مساعدة في جزئية لكي أنهي برنامجي
المطلوب طريقة ضغط و إصلاح قاعدة البيانات بطريقة ADO
انا أعرف الكود الخاص بذلك ولكن عن طريق الــ DAO وهو كالتالي :
1. ضغط قاعدة البيانات
Private Sub Command1_Click() 'ضغط قاعدة البيانات DBEngine.CompactDatabase App.Path & "\db1.mdb", "c:\db2.mdb" End Sub
2. إصلاح قاعدة البيانات
Private Sub Command2_Click() DataBase Pthe) DBEngine.RepairDatabase) End Sub
هذه الأكواد لا تعمل إلا مع قواعد بيانات 97 :unsure:
أنا أريد أن أقوم بنفس المهمة ولكن بالــ ADO
و جزاكم الله خيراً
