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 ..