Ir para conteúdo
Fórum Script Brasil
  • 0

Backup E Restore Com Ib


Guest - ranilson -

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por fernando_vip
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...