Fórum Importa dados de outro Banco de dados #363711

Olá faça duas conexoes com o banco de dados:

1- TConnection (componente DataWare qualquer que vc use pra conexao o
banco 1 (fonte de dados);;

1.1 - Outro , porém pra a conexao com o banco2(destino dos dados);;

2- Inicie um Loop no Banco 1;
p.e:


with frmOrigem do
begin
Table1.Open;
Table1.First;

while Table1.Eof = false do
begin
try
Screen.Cursor := crSQLWait;


frmDestino.IBQuery1.Close;
frmDestino.IBQuery1.SQL.Clear;
frmDestino.IBQuery1.SQL.Add(´INSERT INTO PROCEDIMENTO campo1,
campo2, campo3, campo4)

VALUES (:p1,:p2,:p3,:4,)´);

frmDestino.IBQuery1.ParamByName(´p1´).AsString := Table1CODNOV.AsString;
frmDestino.IBQuery1.ParamByName(´p2´).Value := Table1DESCRICAO.Value;
frmDestino.IBQuery1.ParamByName(´p3´).AsString :=Table1FAIXAETARI.AsString;
frmDestino.IBQuery1.ParamByName(´p4´).Value := Table1VALORDOPRO.Value;



frmDestino.IBQuery1.Prepare;

frmDestino.IBQuery1.ExecSQL;

frmDestino.IBTransaction1.CommitRetaining;


Table1.Next;
except

Screen.Cursor := crDefault;
showMessage(´Erro ao Importar´);
exit;
end;
end;
Screen.Cursor := crDefault;
frmDestino.IBQuery1.Close;
ShowMessage(´Importação concluída´);

end;
end;


Assim, é somente um exemplo... siga esse raciocinio, que dá certo.

Abracos++