10 respuestas en este tema

[luk2009]

Hola a todos

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

delphi

  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

delphi

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?

[egostar]

Hola

No se pero presiento que la base de datos deberí­a de refrescarse, si tu base de datos permanece abierta durante todo el programa, dudo mucho que se muestren los valores que llegan, yo uso los componentes IBX y tuve el mismo problema además de un consumo exagerado de tiempo al grabar información a la base de datos, puedo decirte que esto es muy similar a lo que tu estas haciendo, cuando recibo una cadena disparo el proceso automatico para el procesamiento de datos.

delphi

procedure TLector.ApdComPort1TriggerData(CP: TObject; TriggerHandle: Word);
begin
  if TriggerHandle = CRTrig then begin
     DataModule1.DataBase1.Open; 
     DataModule1.Llamadas.Open;
     ProcesaInformacion;
     DataModule1.Llamadas.Close;
     DataModule1.IBTransaction2.Commit;
     DataModule1.DataBase1.Close;
  end;
end;

Salud OS

[luk2009]

Gracias Egostar por tu respuesta.

Primero me resolviste el problema del tiempo de grabacion, al  abrir  y luego cerrar la tabla en ejecucion el tiempo para grabar los datos es rapidisimo.

Estoy usando APDdatapacket y que hice fue esto:

delphi

if ApdDataPacket1.EndString =#20 then
begin
   Dmmonitoreo.ZTcentral.open;
   //proceso los datos y luego de hacer el insert y el post en la tablas
   Dmmonitoreo.ZTcentral.CommitUpdates;
   Dmmonitoreo.ZTcentral.Close;
 
end; 

hasta ahi todo bien, se guarda bien en la base de datos , pero en el programa que ejecuto en la red los datos no me cambian todavia.

Pero gracias por la primera porque no sabia porque tardaba tanto en grabar los datos, ya que con ado y sql server 2000 me funciona bien.

[egostar]

Hola

Entiendo que tienes dos programas uno que graba la información y otro que muestra la información, si me equivoco por favor actualizanos.

Ya resolvimos (de rebote ) el asunto de tiempo de procesamiento, para el asunto del refresh de los datos yo creo que hay un asunto de lógica, para lo cual es necesario mas información de lo que estas haciendo.

Tu programa (en red) ¿está permanentemente abierto o lo ejecutas para ver los datos de la base?

Salud OS

[egostar]

Bueno,

Este programa ya no tiene el problema, esta grabando en la base de acuerdo a los datos que llegan, el problema mas bien está en la aplicacion que monitorea por la red lo que llega a  la base de datos, creo que hay que ver en ese lo que estas haciendo.

Salud OS

[luk2009]

Gracias egostar por tu respuesta

Lo unico que estoy haciendo por ahora es lo que ves en el inicio de este tema.

ese es todo el programa por ahora, ya que lo que mi interes es establecer el monitoreo en red

[egostar]

Vamos a aislar el problema, comencemos por obtener toda la información de la base de esta forma:

delphi

  DMmonitorenred.ZQCentral.Close;
  DMmonitorenred.ZQCentral.sql.Clear;
  DMmonitorenred.ZQCentral.SQL.add('select ENTRADADATOS, buffer from central') ;
  DMmonitorenred.ZQCentral.open;
  DMmonitorenred.ZQCentral.last;

Si asi no ves los datos entonces buscamos por otro lado, si ves los ultimos datos que entraron, entonces el problema es tu sentencia SQL.

Salud OS

[luk2009]

hola de nuevo
Egostar el dato sale al inicio pero el problema es que no cambia el valor.  Debe haber algun update que hacer en el
programa del servidor para que esos cambios se reflejen.


Creo que te dije que lo que hago es

Dmmonitoreo.ZTcentral.CommitUpdates

 

porque no encontre commit solo, es lo mismo a qui hay un error. 

Por otro lado si puedes revisar el programa donde grabo los datos, para ver si el commit lo hago en el lugar correcto

gracias amigo  y espero que duermas bien, porque ya esta tarde para estar pensando

[luk2009]

Hola A todos

El problema era que en  Zconnection  tenia el TransactIsolationlevel en  ITNONE y gracias a Eduarcol  que me explico que tenia que estar en TIireadcommitted.

Gracias Egostar y disculpa haberte puesto a pensar tanto, y ademas gracias por resolverme de rebote el primer problema.

No hay mal que por bien no venga

Gracias Eduarcol de nuevo, por tu ayuda

[egostar]

Vaya que bien

Podemos concluir que al final el problema si era de lógica, como casi todo

Salud OS

[eduarcol]

Vaya que bien

Podemos concluir que al final el problema si era de lógica, como casi todo

Salud OS

hay que partir de una premisa, si el sistema no funciona el programador hizo algo mal, no vale hecharle la culpa ni al pc ni al lenguaje.

Basicamente lo que sucedia era que el nivel de aislamiento no tomaba en cuenta las transacciones en commit, habia que cerrar y abrir la conexion para que las viera.