| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирокание БД [D6, XP]
Quart © (2007-08-29 14:26:00)Задача: скопировать папку с БД (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 15:00:00) [1]> Quart (29.08.2007 14:44:02) [2]
Это таблица, а должна быть закрыта база.
Quart (2007-08-29 14:44:00) [2]Table1.Active:=False что ли?
Anatoly Podgoretsky (2007-08-29 14:31:00) [3]> Quart (29.08.2007 14:26:00) [0]
База должна быть закрыта
Ну и процедура написано безобразно, могут быть любые проблемы.
| |
