Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Упаковка 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)

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

---

← →
Lola   (2002-06-21 20:43) [6]

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

---

← →
aus   (2002-06-21 22:15) [7]

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

---

← →
Lola   (2002-06-22 10:02) [8]

> aus © (21.06.02 22:15)

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

---

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

Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх

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