Secuencia para grabar Oracle

[pruz]

Hola Amigos, tengo el siguiente problema
necesito saber la secuencia exacta de comandos para grabar en Oracle 8i, tengo la DB conectada con ADO, la veo, la leo, y tengo todos los atributos necesarios para grabar de usuario, pero no graba, estoy usando metodo transaccional para grabar.
Solo necesito saber que instrucciones usar.


atte,
PAto

[[poliburro]]

Empezado por pruz

Solo necesito saber que instrucciones usar.

Código SQL [-]
Insert
  InTo Tabla
         (List of fields)
   Values( List of values);

[pruz]

ok, eso lo tengo
pero cuando llego a la instruccion SQL.EXECSQL, para grabar me el error que 'LA OPERACION NO APLICABLE', por eso creo que estoy usando una instruccion que no corresponde

[[poliburro]]

Podrias indicarme que componentes de ADO estás usando?
y la cadena de conexión que utilizas?

Saludos

[[AzidRain]]

me huele a que el usuario no tiene permisos de escritura... pero bueno no soy experto en Oracle.

[pruz]

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;

[[poliburro]]

Me permito darte un par de consejos.

- No uses BDE. En su lugar Usa ADO
- No uses ODBC usa OLEDB (Oledb aplica si decides migrar a ADO)
- No uses el driver de microsoft, mejor descarga el de oracle.
- aprovecha las caracetristicas de oracle y utiliza SPS.

Prueba la consulta de la siguiente manera:

Código Delphi [-]
   
DbOracle.StartTransaction;
 
QOraCab.SQL.Text :=
  '   INSERT ' +
  '       INTO XXRI_AR_DOCTOS_INTERFACE '  +
  '              (TATUS, INTERFACE_FUNCTION, INTERFACE_COUNTRY) ' + 
  '  VALUES  ( :STATUS, :INTERFACE_FUNCTION, :INTERFACE_COUNTRY )';
 
QOraCab.Parambyname('STATUS').AsString := 'NEW';
QOraCab.Parambyname('INTERFACE_FUNCTION').AsString := 'SQL';
QOraCab.Parambyname('INTERFACE_COUNTRY').AsString := 'CL';
QOraCab.ExecSQL;
 
DbOracle.Commit;
 
except;
  DbOracle.Rollback
end;

Saludos. (Oracle es de mis favoritos)