IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Копирование БД, Paradox
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Саша

Репутация: -  0  +


Нужно автоматическое коирование бд. СУБД - Paradox.
Вот так осуществляю его, но почему то не копирует 2е таблицы, это table12 и table8. Подскажите в чем может быть проблема пожалуйста.

procedure TForm19.BitBtn3Click(Sender: TObject);
var
BD: string;
Dir: string;
Sr: tsearchrec;
Count: integer;
Result: integer;
InFname, OutFname: string;

begin
If edit2.Text='' then
begin
ShowMessage('Не указан путь для копирования базы данных!');
exit;
end;
DataModule3.Table1.Close;
DataModule3.Table2.Close;
DataModule3.Table3.Close;
DataModule3.Table4.Close;
DataModule3.Table5.Close;
DataModule3.Table6.Close;
DataModule3.Table7.Close;
DataModule3.Table8.Close;
DataModule3.Table9.Close;
DataModule3.Table10.Close;
DataModule3.Table11.Close;
DataModule3.Table12.Close;

DataModule3.Query1.Close;
DataModule3.Query2.Close;
DataModule3.Query3.Close;
DataModule3.Query4.Close;
DataModule3.Query5.Close;
DataModule3.Query6.Close;
DataModule3.Query7.Close;
DataModule3.Query8.Close;
DataModule3.Query9.Close;
DataModule3.Query10.Close;
DataModule3.Query11.Close;



DataModule3.Table1.Open;
DataModule3.Table2.Open;
DataModule3.Table3.Open;
DataModule3.Table4.Open;
DataModule3.Table5.Open;
DataModule3.Table6.Open;
DataModule3.Table7.Open;
DataModule3.Table8.Open;
DataModule3.Table9.Open;
DataModule3.Table10.Open;
DataModule3.Table11.Open;
DataModule3.Table12.Open;

DataModule3.Query1.Open;
DataModule3.Query2.Open;
DataModule3.Query3.Open;
DataModule3.Query4.Open;
DataModule3.Query5.Open;
DataModule3.Query6.Open;
DataModule3.Query7.Open;
DataModule3.Query8.Open;
DataModule3.Query9.Open;
DataModule3.Query10.Open;
DataModule3.Query11.Open;

Animate1.Visible:=true;
Animate1.Active:=true;
Dir:=Edit2.Text;

Count:=1;
Result:=FindFirst(form1.session1.PrivateDir+'\*.db',faAnyfile,Sr);
while Result=0 do
begin
Result:=FindNext(Sr);
Count:=count+1;
end;
FindClose(Sr);
Progressbar1.Max:=count;
Progressbar1.Position:=1;

Result:=FindFirst(form1.session1.PrivateDir+'\*.db',faAnyfile,Sr);
InFname:=form1.session1.PrivateDir+'\'+sr.Name;
OutFname:=dir+'\'+sr.Name;
SetLength(OutFname,100);

SetLength(InFname,100);
CopyFile(pchar(inFname),pchar(OutFname),true);
while Result=0 do
begin
Result:=FindNext(Sr);
InFname:=form1.session1.PrivateDir+'\'+sr.Name;
OutFname:=Dir+'\'+sr.Name;
Setlength(OutFname,100);
Setlength(InFname,100);
CopyFile(pchar(inFname),pchar(OutFname),true);
Progressbar1.Position:=Progressbar1.Position+1;
end;

FindClose(Sr);
Progressbar1.Position:=0;
Animate1.Stop;
Animate1.Visible:=false;
ShowMessage('Копирование базы данных завершено!');


end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Саша

Репутация: -  0  +


ни кто не знает в чем проблема?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 17:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name