паковка *.mdb

← →
denis24 (2004-11-16 18:18) [0]

Подскажите пожалуста
Когда я делаю
tbl1.FieldByName("picture").Clear с поле ole object картинка удаляется на размер самого *.mdb не уменьшается.Это так надо или нужно делать сабж?

← →
aus (2004-11-16 19:59) [1]

нужно делать

← →
denis24 (2004-11-17 12:13) [2]

Как делать паковку *.mdb програмно?

← →
Соловьев © (2004-11-17 12:22) [3]

Возможно через OLE. Дергать DBEngine.CompactDatabase

← →
A_N_D © (2004-11-17 12:57) [4]

var JetEngine: olevariant;
NewName: string;
cnt, oldForm, oldTable: integer;
OldSize, NewSize:cardinal;
begin
try
cnt:=0;
NewName:=Options.BaseName+intToStr(cnt);
while FileExists(NewName) do
begin
cnt:=cnt+1;
NewName:=Options.BaseName+intToStr(cnt);
end;
JetEngine:= CreateOleObject("JRO.JetEngine");
JetEngine.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Options.BaseName+";",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ NewName +";");
JetEngine:=unassigned;
DeleteFile(Options.BaseName);
RenameFile(NewName, Options.BaseName);
except
on E:exception do MessageDlg("Îøèáêà ñæàòèÿ áàçû. "+E.Message, mtError, [mbOK], 0);
end;
end;

← →
denis24 (2004-11-17 13:20) [5]

Спасибо за процедуру to A_N_D
Но что такое в ней options.basename?

Это свой класс

← →
denis24 (2004-11-17 13:34) [7]

Имя *.mdb?

denis24 (17.11.04 13:34) [7]
Имя *.mdb?
да

паковка *.mdb Найти похожие ветки