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;
|