Cita:
|
Empezado por buitrago_listas
Por que no haces dos conecciones desde el mismo Delphi, y haces un While pasando todos los datos de un lado a Otro?
Creo que hasta es más rapido que ponerte a usar el DataPump
Saludos
Fer
|
He hecho la aplicación esta, pero solo pasa el primer registo y da un error en interbase, pasa el primer registro y no los siguientes.
Un saludo.
procedure TForm1.Altas1Click(Sender: TObject);
var
las variables que sean
begin
ADOQuery1.active:=true;
ADOQuery1.First;
While not ADOQuery1.Eof do
begin
NNOCa:=ADOQuery1NNOC.value;
CdigodelArtculoa:= ADOQuery1CdigodelArtculo.value;
NombredelMateriala:= ADOQuery1NombredelMaterial.value;
CdigodelArtculoa:= ADOQuery1CdigodelArtculo.value;
ADOQuery1.Next;
//Abro la base de Inerbase
TRY
IBTransaction1.Active:=true;
ibtable1.active:=true;
IBtable1.append;
//Empezamos a pasar datos
IBtable1NOMBRE.AsString:=NombredelMateriala;
IBtable1NNOC.AsString:=NNOCa;
IBtable1NCODIGO.AsString:=CdigodelArtculoa;
IBTransaction1.COMMIT;
EXCEPT
SHOWMESSAGE (' ALGO SALIO MAL ');
IBTransaction1.ROLLBACK;
END;
end;
end;
end.