Скачать: CL | DM;

упаковка Access - базы...   Найти похожие ветки 

← →
koks   (2003-09-01 15:02) [0]

Уважаемые мастера, упаковываю БД Access 2000. Формат базы - 2000, на машине - Office XP.

uses JRO_TLB, ActiveX

...

procedure TdmShared.CompactDB;
var
DBFileName: string;
DBTempName: string;
AEngine: IJetEngine;
SourceConnection: string;
DestConnection: string;
begin
DBFileName := ExtractFilePath(Application.EXEName) + "data.mdb";
DBTempName := ExtractFilePath(Application.EXEName) + "data_.mdb";
SourceConnection := "Privider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
DBFileName + ";";
DestConnection := "Privider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
DBTempName + ";";
DeleteFile(DBTempName);
CoInitialize(nil);
AEngine := CoJetEngine.Create;
AEngine.CompactDatabase(SourceConnection, DestConnection);
DeleteFile(DBFileName);
MoveFile(PChar(DBTempName), PChar(DBFileName));
DeleteFile(DBTempName);
CoUninitialize;
end;

При вызове CompactDatabase вылетает:

EOleException with message "Невозможно найти установленный ISAM".

Господа, просвятите - что это значит...

---

← →
sniknik ©   (2003-09-01 16:50) [1]

замени строки на эти
SourceConnection := "Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+DBFileName+";";
DestConnection := "Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+DBTempName+";";
копированием отсюда!(судя по тому как пишеш, руками не судьба) и в следуюший раз внимательней переписывай.
что называется найдите 10 отличий :о)) (пробелы не в счет)

---

← →
koks   (2003-09-02 15:15) [2]

нда.... сказалась усталость...

sniknik - спасибо за терпение...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c