[firebase-br] Copiar dados de um banco para outro

[marcelo - teflamar]

usei os componentes do zeoslib.
um ztable, um zconnection.
a rotina importa qualquer tabela ou seleção de dados para qualquer banco.

procedure TForm1.Button2Click(Sender: TObject);
begin
importaz(edit1.text,edit2.text);
showmessage('fim');
edit1.setfocus;
end;

procedure tform1.importaz(worigem,wdestino:string);
var I,x,y : integer;
    wcampo:string;
begin
zdatabase.Database:=edbanco1.text;
zdatabase2.Database:=edbanco2.text;
lb1.caption:=worigem;lb1.update;
tab.Close;
if checkzera.checked then
begin
    ztable.SQL.text:='delete from '+uppercase(wdestino);
    ztable.ExecSQL;
end;
tab.sql.text:='select * from '+edit1.text;
tab.open;
ztable.sql.text:='select * from '+edit2.text;
ztable.Open;
x:=0;y:=0;
while not tab.eof do
begin
ztable.append;
for I := 0 to tab.FieldCount - 1 do
begin
    if not tab.Fields[I].IsNull then
    begin
        ztable.Edit;
        wcampo:=lowercase(tab.Fields[I].fieldname);
        if wcampo='to' then wcampo:='para';
        if wcampo='end' then wcampo:='endereco';
        if wcampo='password' then wcampo:='senha';
        ztable.FieldByName(wcampo).Assign(tab.Fields[I]);
    end;
end;
inc(y);
if y=strtoint(edcomita.text) then
begin
    ztable.post;
    ztable.ApplyUpdates;
    ztable.close;
    ztable.open;
    inc(x,y);lb1.caption:=inttostr(x);lb1.Update;
    y:=0;
end;
tab.next;
end;
ztable.ApplyUpdates;//se a tabela estiver cachedupdates=true
try ztable.post except end;
ztable.close;
end;

----- Original Message ----- 
From: "Moked - Thiago (Brasil)" <thiago em moked.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, September 27, 2006 1:09 PM
Subject: [firebase-br] Copiar dados de um banco para outro




Pessoal,

Bom dia!!!

estou tentando copiar os dados de um banco para o outro, porém não estou 
coseguindo.

PS.: Estuo usando o IBpump (e ele não esta lendo arquivo .fdb)


Quem puder me ajudar

Thank's


Thiago Filiano - Suporte técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão Mokinf de Informática
PABX: (55-11) 5071-2748
thiago em moked.com.br <mailto:thiago em moked.com.br>
www.moked.com.br <http://www.moked.com.br/>
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa