Error ADOQuery con Parametros

[ContraVeneno]

Empezado por drykea

cadena := 'Update Documentos set doc_apel1=:apel1 ,doc_apel2=:apel2';
cadena := cadena + ', doc_nombre=:nombre'; cadena := cadena + ',
cadena := cadena + ' where doc_id=:id and doc_NH=:NH';
//..........................
ADOQVarios.SQL.Add(cadena);

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