Сжатие Access

← →
Arkady © (2003-02-12 12:52) [0]

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

← →
SVM (Perm) (2003-02-12 13:12) [1]

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

← →
sniknik © (2003-02-12 19:35) [2]

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

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;

← →
Arkady © (2003-02-13 08:38) [3]

> sniknik © (12.02.03 19:35)

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

немного измени строку 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.

> sniknik © (13.02.03 11:03)

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

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

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

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

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

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

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

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

Сжатие Access Найти похожие ветки