Backup E Restore Com Ib

[Guest - ranilson -]

amigos e amigas de delphi....bom dia

mais uma vez recorro a vocês.....alguém dispõe de uma rotina para backup e restore usando o interbase???

desde já....obrigado pela atenção.

[Churc]

opa ranilson,

Procure não ficar abrindo vários tópicos com o mesmo

tipo de conteúdo, no seu outro tópico ao invés de você

dizer obrigado pela orientação você poderia ter dito que

não te serviu ou que você não entendeu assim eu ou

outra pessoa postaria outros métodos...

De qualquer forma, eu encorajo você a utilizar a busca

do fórum, clique aqui.

Na página que aparecer, em Procurar por Palavra-chave

digite backup e clique em Pesquisar, vai aparecer

vários posts com este tipo de conteúdo, talvez te ajude...

abraço

[fernando_vip]

Boa tarde amigo

Com relação aos tópicos iguais procure não ficar pulando de tópico em tópico, isso é meio chato e não contribui para o bem do forum beleza??

Quanto à sua dúvida tenta isso :

//Para efetuar cópia

procedure TFormCopia.BitBtn1Click(Sender: tObject);
var
I: Integer;
Begin
Database1.Connect:=True; //DB para controle
Table2.DatabaseName:=DirectoryListBox1.Directory; 
//Seleciona local de destino da cópia
with Session1 do
begin
Active:=True;
GetTableNames('AliasName','*.*',True,True,Memo1.Lines);
//Retorna o nome das tabelas
end;
for I:=0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; //tabela origem
Table2.TableName:=Memo1.Lines[I]; //Tabela destino
BatchMove1Execute;
end;
end;

//Para efetuar restauração

procedure TFormRestaura.BitBtn1Click(Sender: tObject);
var
I: Integer;
Begin
Database1.Connect:=True; //DB para controle
Table2.DatabaseName:=DirectoryListBox1.Directory; 
//Origem da restauração
with Session1 do
begin
Active:=True;
GetTableNames(Table2.DatabaseName,'*.*',True,True,Memo1.Lines);
//Retorna o nome das tabelas
end;
for I:=0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; //tabela origem
Table2.TableName:=Memo1.Lines[I]; //Tabela destino
BatchMove1Execute;
end;
end;

Espero que ajude

Falow

Editado Fevereiro 6, 2007 por fernando_vip

[Guest Visitante]

OK companheiro....foi mau....só depois que eu inserí o 'post' é que notei que o meu estava embaixo. eu já tinha postado antes mas pensei que não tinha chegado por aí ou coisa assemelhada.

desculpe a falha.

Boa tarde amigo

Com relação aos tópicos iguais procure não ficar pulando de tópico em tópico, isso é meio chato e não contribui para o bem do forum beleza??

Quanto à sua dúvida tenta isso :

//Para efetuar cópia

procedure TFormCopia.BitBtn1Click(Sender: tObject);
var
I: Integer;
Begin
Database1.Connect:=True; //DB para controle
Table2.DatabaseName:=DirectoryListBox1.Directory; 
//Seleciona local de destino da cópia
with Session1 do
begin
Active:=True;
GetTableNames('AliasName','*.*',True,True,Memo1.Lines);
//Retorna o nome das tabelas
end;
for I:=0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; //tabela origem
Table2.TableName:=Memo1.Lines[I]; //Tabela destino
BatchMove1Execute;
end;
end;

//Para efetuar restauração

procedure TFormRestaura.BitBtn1Click(Sender: tObject);
var
I: Integer;
Begin
Database1.Connect:=True; //DB para controle
Table2.DatabaseName:=DirectoryListBox1.Directory; 
//Origem da restauração
with Session1 do
begin
Active:=True;
GetTableNames(Table2.DatabaseName,'*.*',True,True,Memo1.Lines);
//Retorna o nome das tabelas
end;
for I:=0 to Memo1.Lines.Count - 1 do
begin
Table1.TableName:=Memo1.Lines[I]; //tabela origem
Table2.TableName:=Memo1.Lines[I]; //Tabela destino
BatchMove1Execute;
end;
end;

Espero que ajude

Falow