Сохранение БД

← →
Quart (2007-09-26 12:39) [0]

Написал код для архивирования БД, но в скопированной базе нет самой последней измененной записи, а предыдущие есть. Почему так происходит?

procedure TForm1.FormDestroy(Sender: TObject);
var
a:string;
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
Table1.Refresh;
Table1.Active:=False;
a:=DateToStr(Date);
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "c:\1" );
SetCurrentDirectory( PChar( "C:\" ) );
StrPCopy( tobuf, a );
with OpStruc do begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_MULTIDESTFILES or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_NOCONFIRMATION;
fAnyOperationsAborted := False;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );

end;

← →
Desdechado © (2007-09-26 12:52) [1]

FlushBuffers
И не забывать закрывать TDatabase перед архивированием.

← →
Германн © (2007-09-26 13:40) [2]

DbiSaveChanges

← →
Quart (2007-09-26 14:03) [3]

Работает!!! Спасибо

Сохранение БД Найти похожие ветки