Форум: "Базы";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз
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]Спасибо Всем за участие!!!
Давно искал...
Еще не паробовал, но думаю добью....
Счастливого Всем программирования!!!
← →
SKX (2003-06-16 15:42) [6]Savva спасибо за ссылку!!!
← →
savva (2003-06-17 16:05) [7]> SKX © (16.06.03 15:42)
> Savva спасибо за ссылку!!!
всего лишь за ссылку?:)) а за функции?:))))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
