Delphi+oracle

[supermanpy]

Buenas tardes,

Actualmente estoy trabajando con datos que migro de una DB Oracle.

Importar a mi base (FireBird) es fácil. El problema que estoy teniendo es exportar (insertar registros) al Oracle.

Uso Delphi 7 Enterprise, con DBExpress, por ahí alguno que haya tenido el mismo problema, si me pudiera dar una mano. Gracias.

Código Delphi [-]
ModPrincipal.SqlOracle.Close;
ModPrincipal.SqlOracle.Open;
SqlOrigenCabecera.Close;
SqlOrigenCabecera.Open;
CdsOrigenCabecera.Close;
CdsOrigenCabecera.Open;
CdsOrigenCabecera.First;
SqlDestinoCabecera.Close;
SqlDestinoCabecera.Open;
CdsDestinoCabecera.Close;
CdsDestinoCabecera.Open;
while not CdsOrigenCabecera.Eof do
begin
  CdsDestinoCabecera.Insert;
  CdsDestinoCabeceraCOD_EMPRESA.AsString :=
    CdsOrigenCabeceraCODIGOEMPRESA.AsString;
  CdsOrigenCabecera.Next;
  CdsDestinoCabecera.Next;
end;
CdsDestinoCabecera.Post;
CdsDestinoCabecera.ApplyUpdates(0);

Al darle "ApplyUpdates" no me graba nada, los permisos en el Oracle están correctos pues, con el SQLExplorer, puedo insertar sin problemas.

[Paoti]

Código Delphi [-]
while not CdsOrigenCabecera.Eof do begin
CdsDestinoCabecera.Insert;
CdsDestinoCabeceraCOD_EMPRESA.AsString := CdsOrigenCabeceraCODIGOEMPRESA.AsString;
CdsDestinoCabecera.POST;
CdsOrigenCabecera.Next;
end;

Esta mal la lógica, aparte, al origen destino no tienes que hacerle Next.



Saludos

[supermanpy]

Buenas Tardes,
Gracias Por La Sugerencia, Pero... Y Que Hay Con El Apply???

[Paoti]

el apply es muy buena onda, me cae bien....!




Ya en serio, lo desconozco, no uso DBEXpress, lo siento.