| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сжатие Access [D7, Access]

Arkady ©   (2003-02-12 12:52:00) 

Как программно сжать базу данных Access?

---

Arkady   (2003-02-13 12:44:00) [1]

> sniknik © (13.02.03 11:03)

Большое спасибо, заработало.


> винда небось XP

Windows у меня стоит 98.


> а база от 97 офиса (признано самого глючного)

зато читается на всех машинах (не везде есть 2000)


> небось и соеденение через BDE.

Соединение через ADO

p.s. Надо равняться на самую слабую машину, чтобы все везде работало одинаково :).

---

sniknik   (2003-02-13 11:03:00) [2]

немного измени строку DestConnection (по умолчанию 5 - формат 2000го)

Jet OLEDB:Engine Type Indicates the version of the source database to open or the version of the new database to be created. The OLE DB engine types that you can use are:
1 for JET Version 1.0
2 for JET Version 1.1
3 for JET Version 2.x
4 for JET Version 3.x
5 for JET Version 4.x
If this is omitted for the destination database, it will default to 5. The value for the destination database cannot be a version prior to that of the source database.

т.е. поставь Jet OLEDB:Engine Type=4, (4 для 97, можеш попробовать и др.), можно вместо "Jet OLEDB:Encrypt Database=True" (реально не нужно криптование будет унаследовано).

p.s. удивляюсь я вам, D7, винда небось XP а база от 97 офиса (признано самого глючного) небось и соеденение через BDE.

---

Arkady   (2003-02-13 08:38:00) [3]

> sniknik © (12.02.03 19:35)


После выполнения PackAccess база не открывается. Выводится сообщение: «Нераспознаваемый формат базы данных». Использую Access 97.

---

sniknik   (2003-02-12 19:35:00) [4]

проимерно так

function TDMod.PackAccess(BaseName: string): boolean;
var je: Variant;
begin
result:= false;
sPath:= ExtractFilePath(BaseName);
try
je:=CreateOleObject("JRO.JetEngine");
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+BaseName+";",
"Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+sPath+"NewBase$$$.Mdb;"+
"Jet OLEDB:Encrypt Database=True");
DeleteFile(BaseName);
RenameFile(sPath+"NewBase$$$.Mdb", BaseName);
result:= true;
except
on E: Exception do DoIfError(E.Message);
end;
end;

---

SVM (Perm)   (2003-02-12 13:12:00) [5]

Можно, например, через автоматизацию. Поищи в MSDN.

---

Наверх