Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.02 c
2-1188116137
Daedr
2007-08-26 12:15
2007.09.23
Чтение из файла


2-1188199309
арпывапр
2007-08-27 11:21
2007.09.23
паыметры зупускаемого приложения.


2-1188472951
@!!ex
2007-08-30 15:22
2007.09.23
AV при обработке MM таймера.


3-1179408936
Mysql
2007-05-17 17:35
2007.09.23
любая последовательность кавычек и символов в добавляемом тексте


2-1188446065
Vitaliy_____
2007-08-30 07:54
2007.09.23
Проверка клавиш сдвига