Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   pase de datos de access a interbase (https://www.clubdelphi.com/foros/showthread.php?t=18929)

perillan 27-02-2005 12:19:33

pase de datos de access a interbase
 
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

While
 
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

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.


La franja horaria es GMT +2. Ahora son las 00:35:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi