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

паковка *.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?

---

← →
A_N_D ©   (2004-11-17 13:23) [6]

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

---

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

Имя *.mdb?

---

← →
A_N_D ©   (2004-11-17 14:02) [8]

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

---

Страницы: 1 вся ветка

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



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