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

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

← →
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]

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

---

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

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



Память: 0.45 MB
Время: 0.021 c