Error ADOQuery con Parametros
 

Hola a todos.

Tengo el siguiente código y me da error al cargar los parametros(linea en rojo).
Me sale el mensaje
¿Alguien sabe que puede pasar?
Muchas gracias

Código Delphi [-]
    
cadena := 'Update Documentos set doc_apel1=:apel1 ,doc_apel2=:apel2';
cadena := cadena + ', doc_nombre=:nombre';
cadena := cadena + ', usuario=:usu, fechagrab=:Fecha';
cadena := cadena + ' where doc_id=:id and doc_NH=:NH';
ADOQVarios.Active:=false;
ADOQVarios.SQL.Clear;
ADOQVarios.SQL.Add(cadena);
ADOQVarios.Parameters.ParamByName('id').DataType := ftInteger;
ADOQVarios.Parameters.ParamByName('id').Value :=cod;
ADOQVarios.Parameters.ParamByName('apel2').DataType := ftString;
ADOQVarios.Parameters.ParamByName('apel2').Value := eApe2.text;
ADOQVarios.Parameters.ParamByName('apel1').DataType := ftString;
ADOQVarios.Parameters.ParamByName('apel1').Value := eApe1.text;
ADOQVarios.Parameters.ParamByName('Nombre').DataType := ftString;
ADOQVarios.Parameters.ParamByName('Nombre').Value := eNombre.text;
ADOQVarios.Parameters.ParamByName('NH').DataType := ftInteger;
ADOQVarios.Parameters.ParamByName('NH').Value :=StrToInt(eNH.text);
ADOQVarios.Parameters.ParamByName('Fecha').DataType := ftDateTime;
ADOQVarios.Parameters.ParamByName('Fecha').Value := Now;
ADOQVarios.Parameters.ParamByName('Usu').DataType := ftString;
ADOQVarios.Parameters.ParamByName('Usu').Value :=MFunciones.GetLoginName;
ADOQVarios.ExecSQL;

Justo despues de esta linea:

Código Delphi [-]
ADOQVarios.SQL.Add(cadena);

Prueba a poner esta otra:

Código Delphi [-]
ADOQVarios.Parameters.ParseSQL(Consulta,TRUE);

Gracias por tu respuesta.

Siempre lo he hecho de la misma forma, y nunca he usado ese método.
voy a probarlo.

De todos modos, puedes explicarme un poco más que es lo que hace exactamente??

Pues por cada parametro que encuentra en la consulta añade un nuevo objeto del tipo TParameter con el nombre del parametro.

He probado el código y parece que funciona, aunque no sé porque siempre me había funcionado sin ponerlo y ahora no:confused:


Otra vez muchas gracias

Primero generas una cadena con la instrucción y luego utiilzas "SQL.Add" para agregar esa cadena... mmm... eso es como cuando a un bebe le enseñan a comer con cuchara: primero agarra la comida con la mano, luego la pone en la cuchara.

Podrías ahorrarte la variable cadena y utilizar solamente "SQL.Add" para cada línea de tu consulta:

Código Delphi [-]
with ADOQVarios do begin 
If active then close; 
SQL.Clear; 
SQL.Add('Update Documentos set doc_apel1=:apel1 ,doc_apel2=:apel2,'); 
SQL.Add('doc_nombre=:nombre.'); 
SQL.Add('usuario=:usu, fechagrab=:Fecha'); 
SQL.Add('where doc_id=:id and doc_NH=:NH');
 ... 
Parameters.ParamByName('id').Value :=cod; 
... 
Open; 
end; //with