Behzad_Asharkhan
سه شنبه 13 اردیبهشت 1384, 15:23 عصر
سلام
با استفاده از OLEVariant میخوام یه فایل mdb رو Compact and Repair کنم
با استفاده از این کد:
Var
DAO: OLEVariant;
AppDir: String;
begin
AppDir := ExtractFilePath(Application.ExeName);
DAO := CreateOleObject('DAO.DBEngine.36');
DAO.CompactDatabase(AppDir + '_Matab.mdb', AppDir + '_Matab1.mdb');
// DAO.RepairDatabase(AppDir + '_Matab1.mdb');
کد مربوط به Repair کار نمیکنه. :گیج: ( همونجا که rem شده )
کسی میدونه برای Repair چه کار کنم؟
مرسی.
.
با استفاده از OLEVariant میخوام یه فایل mdb رو Compact and Repair کنم
با استفاده از این کد:
Var
DAO: OLEVariant;
AppDir: String;
begin
AppDir := ExtractFilePath(Application.ExeName);
DAO := CreateOleObject('DAO.DBEngine.36');
DAO.CompactDatabase(AppDir + '_Matab.mdb', AppDir + '_Matab1.mdb');
// DAO.RepairDatabase(AppDir + '_Matab1.mdb');
کد مربوط به Repair کار نمیکنه. :گیج: ( همونجا که rem شده )
کسی میدونه برای Repair چه کار کنم؟
مرسی.
.