Optimizacion de actualizacion de Campo

webmasterplc · #1 20-10-2020

Buenas mi consulta tiene que ver mas con optimización de esta consulta que aunque hace lo que requiero que este caso es actualizar precios calculándolos en base a una tasa, una la hago general o por clasificación aquí adjunto mi código uso firebird 2.5 con firedac,

Código Delphi [-]case rgtipoajuste.ItemIndex of
    0: begin
           with datos.sqlproductos do
          begin
           Close;
           SQL.Clear;
           SQL.Add('SELECT * from productos');
           Open;
          end;

          while not datos.sqlproductos.Eof do
          begin
             precio1:=datos.sqlproductos.FieldByName('PRECIO1').AsCurrency;
             precio2:=datos.sqlproductos.FieldByName('PRECIO2').AsCurrency;
             precio3:=datos.sqlproductos.FieldByName('PRECIO3').AsCurrency;
             precio4:=datos.sqlproductos.FieldByName('PRECIO4').AsCurrency;
             precio5:=datos.sqlproductos.FieldByName('PRECIO5').AsCurrency;
             precio6:=datos.sqlproductos.FieldByName('PRECIO6').AsCurrency;
             vcodigo:=datos.sqlproductos.FieldByName('CODIGO').AsString;
             nprecio1:=((precio1 / tasa_old) * tasa_new);
             nprecio2:=((precio2 / tasa_old) * tasa_new);
             nprecio3:=((precio3 / tasa_old) * tasa_new);
             nprecio4:=((precio4 / tasa_old) * tasa_new);
             nprecio5:=((precio5 / tasa_old) * tasa_new);
             nprecio6:=((precio6 / tasa_old) * tasa_new);

               with datos.sqlactualizar do
               begin
               Close;
               SQL.Clear;
               SQL.Add('UPDATE productos set PRECIO1 = :nprecio1, PRECIO2 = :nprecio2, PRECIO3 = :nprecio3, PRECIO4 = :nprecio4, 
                            PRECIO5 = :nprecio5, PRECIO6 = :nprecio6 ');
               SQL.Add('WHERE CODIGO = :CODIGO');
               ParamByName('codigo').AsString:=vcodigo;
               ParamByName('nprecio1').AsCurrency:=nprecio1;
               ParamByName('nprecio2').AsCurrency:=nprecio2;
               ParamByName('nprecio3').AsCurrency:=nprecio3;
               ParamByName('nprecio4').AsCurrency:=nprecio4;
               ParamByName('nprecio5').AsCurrency:=nprecio5;
               ParamByName('nprecio6').AsCurrency:=nprecio6;
               ExecSQL;
               end;


             datos.sqlproductos.Next;
          end;
          MessageBox(Handle, 'Precios Actualizados', PChar(Caption), MB_OK);

       end;
    1: begin
       with datos.sqlproductos do
          begin
           Close;
           SQL.Clear;
           SQL.Add('SELECT * from productos');
           SQL.Add('WHERE ID_LINEA = :linea ');
           ParamByName('linea').AsString:= lkclinea.Value;
           Open;
          end;

          while not datos.sqlproductos.Eof do
          begin
             precio1:=datos.sqlproductos.FieldByName('PRECIO1').AsCurrency;
             precio2:=datos.sqlproductos.FieldByName('PRECIO2').AsCurrency;
             precio3:=datos.sqlproductos.FieldByName('PRECIO3').AsCurrency;
             precio4:=datos.sqlproductos.FieldByName('PRECIO4').AsCurrency;
             precio5:=datos.sqlproductos.FieldByName('PRECIO5').AsCurrency;
             precio6:=datos.sqlproductos.FieldByName('PRECIO6').AsCurrency;
             vcodigo:=datos.sqlproductos.FieldByName('CODIGO').AsString;
             nprecio1:=((precio1 / tasa_old) * tasa_new);
             nprecio2:=((precio2 / tasa_old) * tasa_new);
             nprecio3:=((precio3 / tasa_old) * tasa_new);
             nprecio4:=((precio4 / tasa_old) * tasa_new);
             nprecio5:=((precio5 / tasa_old) * tasa_new);
             nprecio6:=((precio6 / tasa_old) * tasa_new);

               with datos.sqlactualizar do
               begin
               Close;
               SQL.Clear;
               SQL.Add('UPDATE productos set PRECIO1 = :nprecio1, PRECIO2 = :nprecio2, PRECIO3 = :nprecio3, 
                            PRECIO4 = :nprecio4, PRECIO5 = :nprecio5, PRECIO6 = :nprecio6 ');
               SQL.Add('WHERE CODIGO = :CODIGO');
               ParamByName('codigo').AsString:=vcodigo;
               ParamByName('nprecio1').AsCurrency:=nprecio1;
               ParamByName('nprecio2').AsCurrency:=nprecio2;
               ParamByName('nprecio3').AsCurrency:=nprecio3;
               ParamByName('nprecio4').AsCurrency:=nprecio4;
               ParamByName('nprecio5').AsCurrency:=nprecio5;
               ParamByName('nprecio6').AsCurrency:=nprecio6;
               ExecSQL;
               end;


             datos.sqlproductos.Next;
          end;
          MessageBox(Handle, 'Precios Actualizados', PChar(Caption), MB_OK);


    end;
    end;

[kuan-yiu] · #2 20-10-2020

Tienes que meterlo todo en una quey. Hazlo directamente en la BD y evita ese bucle en el código en el que no parece que hagas nada que no se pueda integrar en una sentencia SQL.

marco3k · #3 21-10-2020

Tuve un problema similar con la optimización, debes acceder directamente a los campos y no usar FieldByName("TuCampo"). Al usar de esta manera:

Código Delphi [-]precio1:=datos.sqlproductos.FieldByName('PRECIO1').AsCurrency;

Internamente Delphi convierte el valor a currency y si son datos masivos se nota la diferencia. Debes definir en tiempo de diseño los campos del dataset y usar de esta forma:

Código Delphi [-]precio1:=datos.sqlproductosPRECIO1.Value;

Aplique esta forma en mi caso y mejoró la velocidad de ejecución.

Saludos.

webmasterplc · #4 22-10-2020

Cita:

Empezado por marco3k

Tuve un problema similar con la optimización, debes acceder directamente a los campos y no usar FieldByName("TuCampo"). Al usar de esta manera:

Código Delphi [-]precio1:=datos.sqlproductos.FieldByName('PRECIO1').AsCurrency;

Internamente Delphi convierte el valor a currency y si son datos masivos se nota la diferencia. Debes definir en tiempo de diseño los campos del dataset y usar de esta forma:

Código Delphi [-]precio1:=datos.sqlproductosPRECIO1.Value;

Aplique esta forma en mi caso y mejoró la velocidad de ejecución.

Saludos.

me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

marco3k · #5 22-10-2020

Cita:

Empezado por webmasterplc

me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

Es que ese campo no existe aun, en tiempo de diseño debes especificar esos campos en el dataset y luego recién ejecutar el código.

1.- En tu primer post pusiste esta consulta:

Código SQL [-]SELECT * from productos

Ese código debes especificar que datos vas a necesitar, entiendo que quieres actualizar todos los productos, pero debes especificar que campos vas a necesitar, asi optimizaras mejor el rendimiento. Quedaría así según tu codigo:

Código SQL [-]SELECT PRECIO1, PRECIO2, PRECIO3, PRECIO4, PRECIO5, PRECIO6, CODIGO  from productos

2.- He de suponer que usas módulos de datos para colocar lo componentes de base de datos. Ahora suponiendo que usas Firebird, debes colocar un ibquery definir la consulta sql:

Código SQL [-]SELECT PRECIO1, PRECIO2, PRECIO3, PRECIO4, PRECIO5, PRECIO6, CODIGO  from productos

Luego das botón derecho en el ibquery y click en "Fields Editor" y sale una nueva ventana y haces botón derecho haces click en "Add all fields". Con esto ya has creado todos los campos y el mismo proceso para hacer con el clientdetaset para definir sus campos, s´plo que ya no debes poner ninguna sentencia sql sólo debes enlazarlo con un datsetprovider como puente entre ibquery y el clientdataset.
Si tienes dudas sobre esto hay una pagina en internet que se denomina "Delphi al limite" tiene bastantes ejemplos sobre clientdataset, ibquery, datasetprovider.

Una ver definido los campos anteriores recien puedes poner este código:

Código Delphi [-]precio1:=datos.sqlproductosPRECIO1.Value

Donde "datos" he de suponer el modulos de datos, "sqlproductos" es el dataset y "PRECIO1" es el campo.

Saludos.

webmasterplc · #6 22-10-2020

Cita:

Empezado por marco3k

Es que ese campo no existe aun, en tiempo de diseño debes especificar esos campos en el dataset y luego recién ejecutar el código.

1.- En tu primer post pusiste esta consulta:

Código SQL [-]SELECT * from productos

Ese código debes especificar que datos vas a necesitar, entiendo que quieres actualizar todos los productos, pero debes especificar que campos vas a necesitar, asi optimizaras mejor el rendimiento. Quedaría así según tu codigo:

Código SQL [-]SELECT PRECIO1, PRECIO2, PRECIO3, PRECIO4, PRECIO5, PRECIO6, CODIGO  from productos

2.- He de suponer que usas módulos de datos para colocar lo componentes de base de datos. Ahora suponiendo que usas Firebird, debes colocar un ibquery definir la consulta sql:

Código SQL [-]SELECT PRECIO1, PRECIO2, PRECIO3, PRECIO4, PRECIO5, PRECIO6, CODIGO  from productos

Luego das botón derecho en el ibquery y click en "Fields Editor" y sale una nueva ventana y haces botón derecho haces click en "Add all fields". Con esto ya has creado todos los campos y el mismo proceso para hacer con el clientdetaset para definir sus campos, s´plo que ya no debes poner ninguna sentencia sql sólo debes enlazarlo con un datsetprovider como puente entre ibquery y el clientdataset.
Si tienes dudas sobre esto hay una pagina en internet que se denomina "Delphi al limite" tiene bastantes ejemplos sobre clientdataset, ibquery, datasetprovider.

Una ver definido los campos anteriores recien puedes poner este código:

Código Delphi [-]precio1:=datos.sqlproductosPRECIO1.Value

Donde "datos" he de suponer el modulos de datos, "sqlproductos" es el dataset y "PRECIO1" es el campo.

Saludos.

Literal lo hice tal cual, me cambio de componentes de firedac a zeos porque zeos son menos hostiles

marco3k · #7 22-10-2020

Ahora cómo te dijeron Casimiro y Kuan-Yiu hacerlo en la base de datos sería aun más rápido. Pero ya depende de ti como lo quieres hacer.

webmasterplc · #8 22-10-2020

Cita:

Empezado por marco3k

Ahora cómo te dijeron Casimiro y Kuan-Yiu hacerlo en la base de datos sería aun más rápido. Pero ya depende de ti como lo quieres hacer.

Me gustaria hacerlo ennla base de datos pero no tengo ni idea

Casimiro Notevi · #9 21-10-2020

Cita:

Empezado por kuan-yiu

Tienes que meterlo todo en una quey. Hazlo directamente en la BD y evita ese bucle en el código en el que no parece que hagas nada que no se pueda integrar en una sentencia SQL.

De esa forma es instantáneo

webmasterplc · #10 22-10-2020

el bucle lo hagopara recorrer la consulta y el campo a actualizar

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Problema con actualizacion de campo calculado	rloayzal	Conexión con bases de datos	9	18-12-2008 18:10:36
Actualizacion de un campo desde un trigger	fedat	Firebird e Interbase	2	14-11-2007 01:13:00
Actualización de campo Boolean	PINO72	Firebird e Interbase	1	09-02-2005 21:28:21
Actualización de campo BLOB.	mlara	Firebird e Interbase	0	13-03-2004 18:10:35