ZReadOnlyQuery Refresh

[Kreyser]

Hola amigos,

Se me plantea un problema con una consulta por parametro, conectada a un DBGrid. Dicha consulta, toma los datos del parametro de un ComboBox y su ejecución esta ligada al evento OnClick de un determinado boton, según el codigo q sigue...

procedure TvtBusqInmuebles.Button1Click(Sender: TObject);
var
  sql: string;
begin
  //Lanza qry
  DataModule1.zroqQRYBuscaInmueble.Close;
  DataModule1.zroqQRYBuscaInmueble.ParamByName('PZona').AsInteger:=cbZona.ItemIndex;
  DataModule1.zroqQRYBuscaInmueble.SQL.Clear;
  sql:='select * from inmuebles where id_zona = :PZona ';
  DataModule1.zroqQRYBuscaInmueble.SQL.Add(sql);
  DataModule1.zroqQRYBuscaInmueble.Open;
end;

Pues bien, la consulta se ejecuta y muestra de manera correcta en la primera ejecución, no mostrandose dato alguno en las sucesivas.

He probado diversas combinaciones de Open, Close, así como Refresh sin exito. Agradeceré cualquier, sugerencia o comentario al respecto.

Gracias por adelantado. Saludos.

Trabajo con Delphi 7, contra MySql-3.23 mediante Zeos 6.1.5.

[roman]

Lo que realmente no entiendo es como es que funciona si quiera la primera vez. No puedes asignar parámetros antes de poner la consulta. El orden correcto sería:

Código Delphi [-]
DataModule1.zroqQRYBuscaInmueble.Close;
DataModule1.zroqQRYBuscaInmueble.SQL.Clear;
sql:='select * from inmuebles where id_zona = :PZona ';
DataModule1.zroqQRYBuscaInmueble.SQL.Add(sql);
DataModule1.zroqQRYBuscaInmueble.ParamByName('PZona').AsInteger:=cbZona.ItemIndex;
DataModule1.zroqQRYBuscaInmueble.Open;

// Saludos

[Kreyser]

Gracias roman, a la primera como siempre...

Empezado por roman

Lo que realmente no entiendo es como es que funciona si quiera la primera vez.

No te sabria decir, pero si que funciona... tengo el parametro PZona creado de manera manual y la propiedad ParamCheck a True... es correcto, no??...

Mil gracias nuevamente.

Un saludo.