Помощь - Поиск - Пользователи - Календарь
Полная версия: Копирование БД
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Крастb
Нужно автоматическое коирование бд. СУБД - 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;
Крастb
ни кто не знает в чем проблема?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.