Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Упаковка mdb-базы [Access2000]

Lola © (2002-06-21 15:14:00)
Для упаковки аксессовской базы использую код:
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".
Установка эксклюзивного доступа не помагает. Чего здесь не хватает?

Lola (2002-06-22 10:02:00) [1]

> aus © (21.06.02 22:15)

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

aus (2002-06-21 22:15:00) [2]
Это потому, что на форме стоял компонент ADOConnection, который был активен, я так думаю.

Lola (2002-06-21 20:43:00) [3]
Надо сказать, что проблема была не столько в коде а сколько в самой Делфе, которая во время отладки не давала закрыть базу. Когда закрыла Делфу и запустила ехе-шник - все сработало.

Lola (2002-06-21 17:36:00) [4]

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

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

ПИТОН (2002-06-21 15:47:00) [5]
http://delphibase.endimus.ru/?action=viewfunc&topic=baseaccess&index=1

Lola (2002-06-21 15:40:00) [6]

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

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

ПИТОН (2002-06-21 15:27:00) [7]
Закрой все таблицы и коннект к базе поставь в фалсе

Lord Warlock (2002-06-21 15:24:00) [8]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1022757400&n=1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »