Текущий архив: 2007.09.23;
Скачать: CL | DM;
Вниз
Копирокание БД Найти похожие ветки
← →
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 что ли?
← →
Anatoly Podgoretsky © (2007-08-29 15:00) [3]> Quart (29.08.2007 14:44:02) [2]
Это таблица, а должна быть закрыта база.
Страницы: 1 вся ветка
Текущий архив: 2007.09.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
