Ver Mensaje Individual
  #3  
Antiguo 03-03-2011
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola, te sobra la línea active:=true si usas el método ExecSQL, o viceversa,
si haces active:=true, no debes usar ExecSQL.

Código Delphi [-]
function TServerMethods1.GetServerComandos(SQ: string): TSQLQuery;
begin
  with ServerComandos do
   begin
    active := false;
    sql.Add(SQ);
    ExecSQL;
    active := true; // Creo que te sobra esta línea
   end;
   result := ServerComandos;
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita