Ver la Versión Completa : pase de datos de access a interbase
perillan
27-02-2005, 12:19:33
Estoy empezando con Interbase y quiero pasar una Tabla en acces a otra con campos diferentes de interbase. Con debase lo he hecho algunas veces, pero a la hora de pasar los datos del ADO de access a interbase me pierdo.
Un saludo
buitrago_listas
02-03-2005, 15:13:45
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
perillan
03-03-2005, 20:55:30
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.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.