supermanpy
08-02-2006, 21:27:22
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.
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.
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.
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.