Access сжатие????

← →
SKX © (2003-06-16 09:05) [0]

Доброго вам время суток!
Привет Мастерам!
Как программно достучатся до сжатие базы в Сервисе ?????????????
очень надо!!!!

← →
Kuusiniemi © (2003-06-16 11:05) [1]

JRO Вам поможет.

← →
sniknik © (2003-06-16 11:07) [2]

сжатие в сервисе не должно отличатся от использования в программе (теоретически). делай также.

← →
handra © (2003-06-16 13:18) [3]

procedure CompactAccessDatabase(DatabaseName,Password:String); Var TempName : Array[0..MAX_PATH] of Char; // имя временного файла TempPath : String; // путь Name : String; tmpDAO : OleVariant; begin try // получим ClassID try tmpDAO := CreateOleObject("DAO.DBEngine.36"); except try tmpDAO := CreateOleObject("DAO.DBEngine.35"); except raise; // что то нам неизвестное end; end; // получаем путь для временного файла TempPath:=ExtractFilePath(DatabaseName); if TempPath="" Then TempPath:=GetCurrentDir; //получаем имя временного файла GetTempFileName(PChar(TempPath),"mdb",0,TempName); Name:=StrPas(TempName); DeleteFile(PChar(Name));// этого файла не должно существовать :)) if Password <> "" Then Password:=";pwd="+Password; tmpDAO.CompactDatabase(DatabaseName,Name,0,0,Password); DeleteFile(PChar(DatabaseName)); // удаляем не упакованную базу RenameFile(Name,DatabaseName); // переименовываем упакованную базу finally tmpDAO := NULL; end; end;

← →
savva © (2003-06-16 14:36) [4]

> handra © (16.06.03 13:18)
вместо кода - дал бы лучше ссылку - может человек еще что найдет нужного...
http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10165

http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10303

← →
SKX © (2003-06-16 15:38) [5]

Спасибо Всем за участие!!!
Давно искал...
Еще не паробовал, но думаю добью....

Счастливого Всем программирования!!!

Savva спасибо за ссылку!!!

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