Error al refrescar el Query

[Rc96]

Saludos,
Llevo rato intentando resolver el siguiente problema pero aun no encuentro nada , luego de cada insert, update o delete que realizo en la base de datos ingreso el siguiente codigo para refrescar el Query:

Código Delphi [-]
Query.DBGrid.DataSource.DataSet.Refresh;

el problema esta en que, aunque realiza la rutina sql correctamente, me genera el siguiente error:

Query: cannot perform this operation on a closed dataset.

Espero puedan ayudarme, gracias de antemano.

[Ñuño Martínez]

Comprueba que la propiedad Active del DataSet sea TRUE. Ten en cuenta que algunas operaciones pueden cerrarlo así que revisa lo que haces y, en última instancia, usa el método Open.

[Rc96]

Empezado por Ñuño Martínez

Comprueba que la propiedad Active del DataSet sea TRUE. Ten en cuenta que algunas operaciones pueden cerrarlo así que revisa lo que haces y, en última instancia, usa el método Open.

El Dataset esta activo, intente con el metodo open luego del rutina pero genera el siguiete error:

Cannont Open / define command use Execute / ExcSql

Código Delphi [-]
procedure Guardar;
  var
  BD_Codigo:String;
begin
  with Modulo.DMBox.FDQCategoria do
  begin
    Close;
    SQL.Text:='select * from inv_gpo_prod where "codigo"=:c';
    ParamByName('c').AsString:=MCategoria.E_Codigo.Text;
    Open;
    BD_Codigo:=FieldByName('codigo').AsString;
    if IsEmpty then
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into inv_gpo_prod ("codigo","descripcion","clasificacion","lote","observacion","status")');
      SQL.Add('values (:c,:d,:clasif,:l,:ob,:s)');
      Param_Guardar; ExecSQL; DMBox.FDConexion.Commit;
    end
    else
    begin
      Close;
      SQL.Clear;
      SQL.Add('update inv_gpo_prod set "codigo"=:c,"descripcion"=:d,"clasificacion"=:clasif,"lote"=:l,"observacion"=:ob,"status"=:s');
      SQL.Add('where "codigo"=:c');
      Param_Guardar; ExecSQL; DMBox.FDConexion.Commit;
    end;
  end;
end;

[Soa Pelaez]

Prueba cerrando y abriendo el query, aunque tambien puedes revisar que sentencia sql tiene tu query, que de pronto no se quede pegado con tus sentencias de update o insert y que este si tenga la de algún tipo de select de datos.

[[ElKurgan]]

¿No será que en alguna función, como el paramguardar o el ExecSQL lo estás cerrando sin querer?

Saludos

[Rc96]

Empezado por Soa Pelaez

Prueba cerrando y abriendo el query, aunque tambien puedes revisar que sentencia sql tiene tu query, que de pronto no se quede pegado con tus sentencias de update o insert y que este si tenga la de algún tipo de select de datos.

Buen día Soa, la unica forma de refrescar es realizando una rutina select despues de el insert, update o delete. Con esto resuelvo, aun asi me gustaria entender la causa de este error, debido a que estaba funcionando correctamente.



Gracias a todos por sus respuestas.

[Casimiro Notevi]

Empezado por Rc96

Buen día Soa, la unica forma de refrescar es realizando una rutina select despues de el insert, update o delete. Con esto resuelvo, aun asi me gustaria entender la causa de este error, debido a que estaba funcionando correctamente.
Gracias a todos por sus respuestas.

Es el tipo de pregunta que resulta casi imposible de contestar si no vemos el código fuente implicado en el caso.
Sólamente podemos intentar averiguar.

[[Al González]]

Empezado por Rc96

[...]estaba funcionando correctamente.

¿Exactamente con ese mismo código?

Porque así, como se ve, después de hacer el Insert o Update ningún Refresh funcionaría con el objeto Modulo.DMBox.FDQCategoria.

Y concuerdo con Casimiro: ¡No uses With en ningún caso! Tiene un enorme defecto de fábrica.