Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

паковка *.mdb [D6, acces]

denis24 © (2004-11-16 18:18:00)
Подскажите пожалуста
Когда я делаю
tbl1.FieldByName('picture').Clear с поле ole object картинка удаляется на размер самого *.mdb не уменьшается.Это так надо или нужно делать сабж?

A_N_D (2004-11-17 14:02:00) [1]
denis24 (17.11.04 13:34) [7]
Имя *.mdb?
да

denis24 (2004-11-17 13:34:00) [2]
Имя *.mdb?

A_N_D (2004-11-17 13:23:00) [3]
Это свой класс

denis24 (2004-11-17 13:20:00) [4]
Спасибо за процедуру to A_N_D
Но что такое в ней options.basename?

A_N_D (2004-11-17 12:57:00) [5]
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;

Соловьев (2004-11-17 12:22:00) [6]
Возможно через OLE. Дергать DBEngine.CompactDatabase

denis24 (2004-11-17 12:13:00) [7]
Как делать паковку *.mdb програмно?

aus (2004-11-16 19:59:00) [8]
нужно делать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »