Ver Mensaje Individual
  #6  
Antiguo 06-06-2008
pruz pruz is offline
Miembro
 
Registrado: sep 2003
Posts: 225
Reputación: 23
pruz Va por buen camino
Talking Adjunto Codigo

PERDON ESTOY USANDO LA ODBC ESTANDAR DE MICROSOFT..

CODIGO FUENTE


DbOracle.StartTransaction;

with QOraCab.SQL do begin
Clear;
Add(' INSERT INTO XXRI_AR_DOCTOS_INTERFACE ');
Add(' (TATUS, INTERFACE_FUNCTION, INTERFACE_COUNTRY) VALUES ');
Add(' ( :STATUS, :INTERFACE_FUNCTION, :INTERFACE_COUNTRY ) ');
end;
QOracab.Prepare;
try
QOraCab.Parambyname('STATUS').AsString := 'NEW';
QOraCab.Parambyname('INTERFACE_FUNCTION').AsString := 'SQL';
QOraCab.Parambyname('INTERFACE_COUNTRY').AsString := 'CL';
QOraCab.ExecSQL; //aqui me da error
except;

end;

DbOracle.Commit;
Responder Con Cita