Tengo un problema con una sentencia SQL, lo cachondo del tema es que desde una consola de SQL funciona perfectamente, pero en el programa falla. El código es el siguiente:
Código Delphi
[-]
If correcto Then Begin
consulta := 'UPDATE REVPROY SET n_problema=:n_p, fecha=:f, problema=
, solucion=:s, solucionado='+sol;
consulta := consulta + 'WHERE cod_problema=:c_p;';
codigo := MDatos.IBDS_RevProy.FieldByName('COD_PROBLEMA').AsInteger;
With MDatos.IBQ_EjecutorConsultas Do
Begin
SQL.Clear;
SQL.Add(consulta);
ParamByName('n_p').AsInteger := StrToInt(LabeledEdit2.Text);
ParamByName('f').AsDate := AGDateTimePicker1.Date;
ParamByName('p').AsString := LabeledEdit1.Text;
ParamByName('s').AsBlob := memo1.Text;
ParamByName('c_p').AsInteger := codigo;
ExecSQL;
End;
End;
El error que da es este:
'Dinamic SQL Error
SQL Error code= -104
Token unknow - line1, char85
cod_problema'
y la estructura de la tabla es:
Código SQL
[-]
CREATE TABLE REVPROY (
COD_PROBLEMA INTEGER NOT NULL,
N_PROBLEMA INTEGER,
FECHA DATE,
PROBLEMA VARCHAR(200),
SOLUCION BLOB SUB_TYPE 0 SEGMENT SIZE 80,
SOLUCIONADO CHAR(1)
);