Скачать: 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 вся ветка

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



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