Копирокание БД

← →
Quart (2007-08-29 14:26) [0]

Задача: скопировать папку с БД (c:\1) в другую папку.
Проблема: во вновь скопированной БД не отображаются изменения(добавленные, удаленные записи), которые были сделаны в БД-оригинале
Вставка записи:
procedure TForm1.Button4Click(Sender: TObject);
begin
Table1.Post;
Table1.Refresh;
Копирование БД:
procedure TForm1.Button5Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
str : string;
begin
Table1.Refresh;
str := DateToStr(Date);
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "c:\1" );
SetCurrentDirectory( PChar( "c:\" ) );
StrPCopy( tobuf, str);
with OpStruc do begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMMKDIR and FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );
ПЖЛСТА, помогите!

← →
Anatoly Podgoretsky © (2007-08-29 14:31) [1]

> Quart (29.08.2007 14:26:00) [0]

База должна быть закрыта
Ну и процедура написано безобразно, могут быть любые проблемы.

← →
Quart (2007-08-29 14:44) [2]

Table1.Active:=False что ли?

> Quart (29.08.2007 14:44:02) [2]

Это таблица, а должна быть закрыта база.

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