Error SQL - UPDATE _ SET ...
 

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 //Si los campos son validos, se construye la consulta
    Begin
      consulta := 'UPDATE REVPROY SET n_problema=:n_p, fecha=:f, problema=:p, solucion=:s, solucionado='+sol;
      consulta := consulta + 'WHERE cod_problema=:c_p;';
  
      //showmessage(consulta);
      //Obtener el codigo del problema a editar.
      codigo := MDatos.IBDS_RevProy.FieldByName('COD_PROBLEMA').AsInteger;
  
      //Ejecutar la consulta
      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)
  );

Te dá el error justo en el signo de concatenación '+' :
'Dinamic SQL Error
SQL Error code= -104
Token unknow - line1, char85
cod_problema'


¿No será que olvidaste intercalar el signo : detrás del signo = inmediato anterior al valor de la variable col.? :confused:

Lo descubri
 

Era un espacio en blanco y unas comillas.

Código Delphi [-]
 consulta := 'UPDATE REVPROY SET n_problema=:n_p, fecha=:f, problema=:p, solucion=:s, solucionado=''+sol+''';
consulta := consulta + ' WHERE cod_problema=:c_p;';

Un saludo