Cita:
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;