Guest - ranilson - Postado Fevereiro 6, 2007 Denunciar Share Postado Fevereiro 6, 2007 amigos e amigas de delphi....bom diamais 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Fevereiro 6, 2007 Denunciar Share Postado Fevereiro 6, 2007 opa ranilson,Procure não ficar abrindo vários tópicos com o mesmotipo de conteúdo, no seu outro tópico ao invés de vocêdizer obrigado pela orientação você poderia ter dito quenão te serviu ou que você não entendeu assim eu ououtra pessoa postaria outros métodos...De qualquer forma, eu encorajo você a utilizar a buscado fórum, clique aqui.Na página que aparecer, em Procurar por Palavra-chavedigite backup e clique em Pesquisar, vai aparecervários posts com este tipo de conteúdo, talvez te ajude...abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Fevereiro 6, 2007 Denunciar Share Postado Fevereiro 6, 2007 (editado) Boa tarde amigoCom 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 ajudeFalow Editado Fevereiro 6, 2007 por fernando_vip Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Visitante Postado Fevereiro 7, 2007 Denunciar Share Postado Fevereiro 7, 2007 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 amigoCom 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 ajudeFalow Citar Link para o comentário Compartilhar em outros sites More sharing options...
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
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.