Упаковка mdb-базы

← →
Lola © (2002-06-21 15:14) [0]

Для упаковки аксессовской базы использую код:
var
dbSrc : WideString;
dbDest : WideString;
begin
dbSrc := "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\...\Def.mdb";
dbDest := "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\...\Def_compact.mdb";
if FileExists("c:\...\Def_compact.mdb") then
DeleteFile("c:\...\Def_compact.mdb");
JE.CompactDatabase(dbSrc,dbDest);
JE:=Nil;
end;

Выдает ошибку:"You attemented to open a database that is already opened exclusively by user "admin" on machine "XXX".
Установка эксклюзивного доступа не помагает. Чего здесь не хватает?

← →
Lord Warlock © (2002-06-21 15:24) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1022757400&n=1

← →
ПИТОН (2002-06-21 15:27) [2]

Закрой все таблицы и коннект к базе поставь в фалсе

← →
Lola © (2002-06-21 15:40) [3]

> ПИТОН (21.06.02 15:27)

Аналогично, к сожалению.

← →
ПИТОН (2002-06-21 15:47) [4]

http://delphibase.endimus.ru/?action=viewfunc&topic=baseaccess&index=1

← →
Lola © (2002-06-21 17:36) [5]

> ПИТОН (21.06.02 15:47)

Спасибо, этот вариант сработал.

Надо сказать, что проблема была не столько в коде а сколько в самой Делфе, которая во время отладки не давала закрыть базу. Когда закрыла Делфу и запустила ехе-шник - все сработало.

Это потому, что на форме стоял компонент ADOConnection, который был активен, я так думаю.

> aus © (21.06.02 22:15)

Нет, такого компонента совсем нет. Но, видимо, потому что на форме стояли TTable и TDatabase оба активные и в коннекте (это я не о том, что вы подумали).

Упаковка mdb-базы Найти похожие ветки