Текущий архив: 2003.09.22;
Скачать: 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 вся ветка
Текущий архив: 2003.09.22;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.011 c
