Access y Post lento

[[Waldo]]

en la parte dodne almaceno la factura y dodne tengo el problema es el siguiente:

Código Delphi [-]
 
begin
 g.tiempo:=0;
 progres:=tprogres.Create(self);
 try
 progres.bar.Progress:=0;
 progres.mensaje.Lines.Clear;
 progres.mensaje.Lines.Add('Guardando la factura, espere...');
 progres.show;
 progres.Refresh;
 Application.ProcessMessages;
 progres.bar.MaxValue:=8;
 M.TFactura.Open;
 progres.bar.Progress:=1;
 M.TFactura.Refresh;
 progres.bar.Progress:=2;progres.Refresh;Application.ProcessMessages;
 
//// aqui lozalizo el folio de la factura previamente almacenada para aplicar o editarla y meter los campos restantes
 

 IF M.TFactura.Locate('Folio',folio.text,[]) then
  BEGIN
///// de aqui en adelante es dodne biene el problema, considerando la lentitud cuando se hace el post.

   m.TFactura.Edit;
   progres.bar.Progress:=3;progres.Refresh;Application.ProcessMessages;
   M.TFactura.Fields[3].Value:=TOTALT.Value;
   M.TFactura.Fields[4].Value:=memo1.TEXT;
   M.TFactura.Fields[5].Value:='NO';
   progres.bar.Progress:=4;progres.Refresh;Application.ProcessMessages;
   M.TFactura.Fields[7].Value:='NO';
   M.TFactura.Fields[9].Value:=IVAT.Value;
   M.TFactura.Fields[10].Value:=SUBTOTALT.Value;
   progres.bar.Progress:=5;progres.Refresh;Application.ProcessMessages;
   IF MEMO2.Text<>'< ESCRIBA AQUI LAS OBSERVACIONES >' THEN
    M.TFactura.Fields[8].Value:=MEMO2.TEXT
   ELSE
    M.TFactura.Fields[8].Value:='';
   progres.bar.Progress:=6;progres.Refresh;Application.ProcessMessages;
 
 
////// aqui es donde se pdemora en hacer el post
   m.TFactura.Post;
//////
   M.TFactura.CLOSE;
   progres.bar.Progress:=7;progres.Refresh;Application.ProcessMessages;
  END;
 progres.bar.Progress:=8;progres.Refresh;Application.ProcessMessages;
 progres.bar.Progress:=0;
 progres.Close;
 finally
 progres.Free;
 end;
 
 
/// de aqui en adelante, es solo un mensaje si desea imprimir o no la factura ya guardada, de aqui para abajo lo hace con la velocidad normal.

Podria ser que en lugar de locate, aplique una consulta SQL buscando la factura con el foli a editar? a caso eso resolveria el problema?

[[Caral]]

Hola
La verdad es que sigo pensando lo mismo.
Usas una tabla, localizas unos campos de la misma, los editas, les asignas unos valores y luego los guardas.
Todo esto se puede hacer en un solo paso con un adoquery y una sentencia sql con un update.
Algo asi:

Código Delphi [-]
 DataModule1.AC1.BeginTrans;
      try
          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;

Esto no tiene que ver con ti codigo, es de mi programa, pero te explica como hacer un update, mas o menos.
Saludos

[[Waldo]]

Hola que tal Carl, te comento por fin encontre la solucion, y es la misma que propones, no lo hice asi exactamente como tu lo dices, simplemente hago una consulta a la tabla, localizo el registro edito la consulta y la guardo.

lo implemente y wow Lo hizo en menos de un parpadeo de ojo, jejej por fin resolvi el problema, ojala le pueda ayudar a muchos mas que he leido que tienen el mismo problema.


El punto es evitar de alguna forma abrir toda la tabla, que e slo mas facil, pero a la larga sera muy lento y satura los recursos, es mejor traducirlo en una consulta de manera que solo saque los datos que se necesitan de la tabla,... los demas para que?.... en fin ahora puedo decirles que si funciona perfectamente ha y lo cheque en red.


Agradezco a Caral, Carlos por averme ayudado a resolver este problema , Gracias, su amigo Waldo.

[[Caral]]

Hola
Me alegro que resolvieras el problema.
Saludos