Estoy usando Zeos y Firebird
Tengo esta consulta la cual obtiene los datos de una base de datos en un servidor conectado en red local
DMmonitorenred.ZQCentral.Close; DMmonitorenred.ZQCentral.sql.Clear; DMmonitorenred.ZQCentral.SQL.add('select first 1 distinct ENTRADADATOS, buffer from central') ; DMmonitorenred.ZQCentral.SQL.Add('where entradadatos > :bus '); DMmonitorenred.ZQcentral.SQL.Add('order by entradadatos desc'); DMmonitorenred.ZQCentral.open; DMmonitorenred.ZQcentral.ParamByName('bus').AsInteger :=buscentral; showmessage('este es el contador que pongo en el onshow valor = '+ (inttostr(buscentral))); showmessage('valor del campo con la nueva consulta deberia variar=' + (DMmonitorenred.ZQcentralENTRADADATOS.Asstring));
y en onshow del formulario inicializo el valor del campo
procedure TFRMpendientes.FormShow(Sender: TObject); begin DMmonitorenred.ZQCentral.Open; buscentral:=DMmonitorenred.ZQCentralentradadatos.AsInteger; showmessage(inttostr(buscentral)); end;
En el servidor van llegando datos y cuando llega uno nuevo, la consulta no me devuelve ningun valor en el campo
[shadow=red,left]entradadatos[/shadow]
Hice la prueba con IBexpert y la misma consulta y me funciona bien, alguna idea?