Ver Mensaje Individual
  #7  
Antiguo Hace 2 Semanas
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No mencionas el mensaje de error que te devuelve la aplicación.
De todos modos, creo que se trata del "Open".
En el caso de que no se devuelvan datos, deberías utilizar ExecQuery.

Además, debes asignar los parámetros antes de ejecutar el query o abrir una tabla.

Código Delphi [-]

// Cierro el DataSet si esta abierto.
IbQuery1.Close

// Limpio la sentencia SQL
IbQuery1.SQL.Clear;

// Cargo la sentencia SQL que me interesa
IbQuery.Text:=' INSERT INTO TABLEX (CAMPO1, CAMPO2, CAMPO3 ...)
VALUES (:PCAMPO1, :PCAMPO2, :PCAMPO3 ...) ';

// Asigno valores a los parámetros
FieldByParam('PCAMPO1').AsInteger := StrToInt(Edit1.Text);

// Ejecuto Sentencia SQL
IbQuery.ExecQuery;

// Cierro el DataSet.
IbQuery1.Close;

// Commit de la transaccion ???
IbQuery1.Transaction.Commit;
...
Responder Con Cita