Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c