Problema con Query

[anonymous]

Buenas tengo el siguiente error :
qGeneral : No SQL statement provided

Código Delphi [-]
procedure TflistadoClientes.bEliminarClick(Sender: TObject);
var
id:Integer;
begin
  if Application.MessageBox ('Esta accion eliminara a El Cliente Esta Seguro?','Drugstore',MB_YESNO+MB_ICONQUESTION)= IDYES
    then

  begin
  fModulo.qGeneral.Close;
  fModulo.qGeneral.Active := True;
  fModulo.qGeneral.SQL.Clear;
  fModulo.qGeneral.SQL.Add('update clientes set estado = 0');
  fModulo.qGeneral.SQL.Add('where idclie = :id');
  fModulo.qGeneral.ParamByName('id').AsInteger := fModulo.qClientes['idclie'];
  fModulo.qGeneral.ExecSQL;


end;
   fModulo.qGeneral.Refresh;
end;

Muchas gracias desde ya ..

[ecfisa]

Hola anonymous.

Quita la línea:

Código Delphi [-]
    fModulo.qGeneral.Active := True;

Saludos

[anonymous]

Me tira error igual .. dice que no se puede resolver con un data set Cerrado ..
Debo activarlo si o si ..
Por ahi no va el error creo .. o si ?

[ecfisa]

Hola

Empezado por anonymous

Me tira error igual .. dice que no se puede resolver con un data set Cerrado ..
Debo activarlo si o si ..

No, el componente query debe estar cerrado cuando lanzas la consulta de actualización. El error que mostraste en el primer mensaje se produce por que el componente está abierto (Active = true).

El motivo del nuevo error debe ser otro, ¿ Que DB estas usando y mediante que componentes te conectas ?

Saludos

[anonymous]

Estoy utilizando MySql ... El componente es TDBGrid .. Tengo el DataSource .. el Query y la tabla

[ecfisa]

Hola anonymous.

¿ Podrías copiar y pegar el texto exácto del mensaje de error ?
¿ Has podido localizar en que parte del código y línea se produce el error ? (usando breakpoint y trace into)

Saludos