Actualizacion BD en Ado

[principiante22]

Saludos, Tengo dos TAdoQuery, 1 de ellos es en el que realizo una entrada y este en su evento AfterPost tiene el siguiente codigo:

Código Delphi [-]
procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
begin
Adoquery2.close;
Adoquery2.open;
Adoquery1.Close;
Adoquery1.Open;
end;

Pero el Adoquery2 (que tiene conectada un DataSource para presentar los datos en un dbgrid) no se actualiza de los nuevos datos, SOLO lo hace (actualizarse) de ves en cuando, no siempre .

Espero haberme explicado bien, muchas gracias y bye

[olbeup]

Si lo cambios lo realizas en el ADOQuery1, tiene que cerrar primero el que realizas los cambio y luego abrir las base de datos.

Un saludo.

[principiante22]

Aunque invierto el orden, obtengo el mismo problema

[donki]

Revisa el parámetro CursorType de la AdoQuery1. Si es de tipo ctUpdateBatch ("Creo que se llama asi") los datos no se actualizan directamente. Necesitas hacer una llamada antes. Canviar esta propiedad a ctStatic para que te haga el post en la BD y te actualize la AdoQuery2.

[principiante22]

Esta de tipo ctStatic y como quiera no funciona . Pero gracias por tu interes.

[donki]

Mira tambien que el locktype sea ltOptimistic.

Saludos

[principiante22]

Esta igual, el ADOQuery1 y el 2 tienen todas sus propiedades que vienen por default

[tefots]

al ejecutar el afterpost del adoquery1 no significa que se guarden los datos en la base de datos , simplemente es el afterpost del objeto tadoquery que estas usando. hasta que no finalices la transaccion , los datos no los vas a ver desde otros querys.


lo que quiero decir es que si no haces commit (en el afterpost o donde quieras) , cualquier otro adoquery que intente mostrar esos datos no los va a ver.

yo pondria algo como esto.

Código Delphi [-]
procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
begin 
 timer1.enabled:=true;
end;

y en el timer finalizas la transaccion ,
y cierras y abres el query para refrescar.

Código Delphi [-]
Procedure Tform1.Timer1OnTimer(Sender:Tobject)
Begin
If adoquery1.connection.intransaction then
  Adoquery1.connection.CommitTrans; 
Adoquery2.close; Adoquery2.open;
End;

de todas formas , yo no lo haria asi , aunque todo depende de com tengas hecha la aplicacion , y que controles tengas enlazados
Saludos.

[principiante22]

Gracias tefots por tu respuesta, pero no logro entender como es eso de:

Código Delphi [-]
If adoquery1.connection.intransaction then
  Adoquery1.connection.CommitTrans

Si me lo puedes explicar, seria un exito

[[Caral]]

Hola
La verdad no entiendo el problema, tampoco entiendo la necesidad de una transaccion para una sola tabla o query, me parece que es como matar moscas con un cañon.
Tengo un adoquery1, este lo que hace es hacer una insercion a modificacion o lo que sea de una o varias tablas.
Ahora tengo un adoquery2, este lo que hace es ver la tabla en el formulario.
Bueno, cual es el problema?.
Hago la modificacion o lo que sea con el primero, y lo ejecuto, o lo abro, cierro y vuelvo a abrir (mas trabajo).
Luego simplemente abro y cierro el segundo query.
Donde esta lo complicado o es que me pierdo de algo?.
Saludos

[principiante22]

Luego simplemente abro y cierro el segundo query.

Bueno Caral, ese es precisamente el problema, cuando lo cierro y lo abro (que lo hago para que se actualice el query) no obtengo lo deseado, no se actualiza, solo lo hace de vez en cuando.

[[Caral]]

Hola
Osea tienes el viejo problema del query perezoso.
Cuando se ejecuta un query el dato se guarda en la base de datos en segundos.
Cuando ejecuto el query1, el query2 si se cierra y luego se abre tiene por que tiene que ver el dato actualizado a no ser que como dije al principio, sea un query perezoso, pero creo que ya delphi los saco del sistema.
Muy raro, muy raro.
Saludos

[principiante22]

Bueno, con la idea de tefots pude hacer algo que se adapte a lo que necesitaba, me di cuenta de que al adoquery le tomaba 5.5 segs para actualizar la base de datos, asi que puse un timer con un interval:6000 y resuelto jeje. Bueno, gracias a todos por sus respuestas

[[Caral]]

Hola
Me alegro que lo resolvieras.
Solo para que te des una idea de como lo hago yo:

Código Delphi [-]
 DataModule1.AC1.BeginTrans;
      try
         If Nueva then
         QTemp.SQL.Text := 'Insert Into OrdenProd (Codorden, FechaInicio, FechaRequerido, CodUsuario, Comentarios, CodCliente, Prioridad, Enrutada, OrdenCompra) '+
                           'Values (' +Edit2.Text+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', '+
                            QuotedStr(Edit5.Text)+', '+QuotedStr(Memo1.Text)+', '+Edit3.Text+', '+IntEdit1.Text+', True, '+QuotedStr(Edit7.Text)+')'
         else
         QTemp.SQL.Text := 'Update OrdenProd set FechaRequerido = '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', Comentarios = '
                            +QuotedStr(Memo1.Text)+', CodCliente = '+Edit3.Text+', Prioridad = '+IntEdit1.Text+
                            ' Where CodOrden = '+Edit2.Text;

         QTemp.ExecSQL;
         guardada := true;
         IF Nueva  then
         begin
            QOrdProd.Requery();
            QOrdProd.Last;
         end
         else begin
                bok := QOrdProd.Bookmark;
                QOrdProd.Requery();
                QOrdProd.Bookmark := bok;
              end;
         DataModule1.AC1.CommitTrans;
         If Nueva then If MessageDlg('Orden Guardada.'+#13+'¿Desea agregar items a la orden?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
         Nueva := False;
         QOrdProd.Close;
         QOrdProd.Open;
       except
         on E:Exception do DataModule1.AC1.RollbackTrans;
      end;//try
end;

Saludos

[principiante22]

Talvez dentro de algunos 30 años yo este a ese nivel

[[Caral]]

Hola
Que va, no te subestimes, el mas Novato aqui soy yo, con solo un par de años en esto.
Pronto harás cosas de verdad, mucho mejor que estas.
Saludos

[tefots]

me alegro que funcionara.

todas formas eso de esperar 6 segundos para poder ver los datos desde otro query es mas que raro , rarisimo.
en teoria cuando finalizas la transaccion , los datos ya deben estár inmediatamente disponibles y debes poder verlos desde la propia aplicación o desde otra.


lo del

If adoquery1.connection.intransaction then
Adoquery1.connection.CommitTrans

lo que hace es mirar si la conexion asociada al adoquery tiene una transaccion abierta , tonces hace commit de la transaccion.

lo logico seria hacerlo directamente con el adoconnection , pero como no se si tienes algun adoconnection enlazado por eso lo puse asi.

que base de datos utilizas ?.

tienes algun adoconnection enlazado , uno por cada adoquery o uno para los dos ? , alo mejor esta ahi el problema

por cierto , lo de los querys perezosos yo nunca lo habia oido ni nunca me ha pasado , a lo mejor es que los datos se paran a tomar un café antes de que esten 'disponibles'.

saludos.

Empezado por principiante22

Bueno, con la idea de tefots pude hacer algo que se adapte a lo que necesitaba, me di cuenta de que al adoquery le tomaba 5.5 segs para actualizar la base de datos, asi que puse un timer con un interval:6000 y resuelto jeje. Bueno, gracias a todos por sus respuestas

[principiante22]

tefots, use una base de datos de access y no tengo ningun adoconnection, pero despreocupate, aunque dure 6 segs para estar disponible, para lo que necesito, esta mas que bueno. Gracias de nuevo por tu interes

[koalasoft]

Empezado por Caral

Hola
Me alegro que lo resolvieras.
Solo para que te des una idea de como lo hago yo:

Código Delphi [-]
 DataModule1.AC1.BeginTrans;
      try
         If Nueva then
         QTemp.SQL.Text := 'Insert Into OrdenProd (Codorden, FechaInicio, FechaRequerido, CodUsuario, Comentarios, CodCliente, Prioridad, Enrutada, OrdenCompra) '+
                           'Values (' +Edit2.Text+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', '+
                            QuotedStr(Edit5.Text)+', '+QuotedStr(Memo1.Text)+', '+Edit3.Text+', '+IntEdit1.Text+', True, '+QuotedStr(Edit7.Text)+')'
         else
         QTemp.SQL.Text := 'Update OrdenProd set FechaRequerido = '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', Comentarios = '
                            +QuotedStr(Memo1.Text)+', CodCliente = '+Edit3.Text+', Prioridad = '+IntEdit1.Text+
                            ' Where CodOrden = '+Edit2.Text;

         QTemp.ExecSQL;
         guardada := true;
         IF Nueva  then
         begin
            QOrdProd.Requery();
            QOrdProd.Last;
         end
         else begin
                bok := QOrdProd.Bookmark;
                QOrdProd.Requery();
                QOrdProd.Bookmark := bok;
              end;
         DataModule1.AC1.CommitTrans;
         If Nueva then If MessageDlg('Orden Guardada.'+#13+'¿Desea agregar items a la orden?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
         Nueva := False;
         QOrdProd.Close;
         QOrdProd.Open;
       except
         on E:Exception do DataModule1.AC1.RollbackTrans;
      end;//try
end;

Saludos

Estimado, me podrias explicar para que usar el Recuery y por que para cuando actualizas usas esos parámetros?
Gracias !!

[ecfisa]

Hola.

Empezado por koalasoft

Estimado, me podrias explicar para que usar el Recuery ...

Ví que en otro hilo consultaste sobre la funcionalidad del método Requery, espero que esta traducción de la ayuda de Delphi conteste tu duda:

...
Llame a Requery para actualizar el conjunto de registros. Requery actualiza el conjunto de datos al volver a ejecutar el comando original o la instrucción SQL que produjo el conjunto de registros.

Los efectos de Requery son los mismos que llaman el método Close del dataset y luego su método Open. Sin embargo, hay circunstancias en las que un medio de actualizar el conjunto de registros es mejor que el otro. Los valores en propiedades como CursorLocation, CursorType y LockType no se pueden cambiar mientras el conjunto de datos está abierto, por lo que Requery sólo puede actualizar el conjunto de registros utilizando los valores existentes en estas propiedades. Para actualizar el conjunto de registros utilizando valores diferentes para estas propiedades, efectúe la actualización mediante los métodos Close y Open.
...

Saludos