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.

Casimiro Notevi · #4 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 · #5 22-10-2020

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

webmasterplc · #6 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 · #7 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.

marco3k · #8 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 · #9 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

webmasterplc · #10 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 · #11 22-10-2020

Cita:

Empezado por webmasterplc

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

Si has hecho todo eso y te sale este mensaje:

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

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

marco3k · #12 22-10-2020

Aca hay un ejemplo de procedimiento almacenado en firebird:
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=11090

webmasterplc · #13 22-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

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

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

Ya voy a revisar yvcomento

cloayza · #14 22-10-2020

Estimado adjunto sugerencias para tu proceso de actualización:

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;



--Opción 3: Procedimiento almacenado con parámetros
create or alter procedure spUpdatePrecios ( Linea smallint,
                                            Tasa_Old numeric(6,2),
                                            Tasa_New numeric(6,2) )
as
begin
     if (Linea is null) then
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New,
     else
        --Update restringido de acuerdo a Linea=?
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New
        where id_linea=:linea;

end

Saludos cordiales

webmasterplc · #15 25-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

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

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

efectivamente me los cambia

Código Delphi [-]precio1:=datos.sqlproductoswdstrngfldPRECIO1.value

me sigue saliendo el mismo error

webmasterplc · #16 25-10-2020

Cita:

Empezado por cloayza

Estimado adjunto sugerencias para tu proceso de actualización:

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;



--Opción 3: Procedimiento almacenado con parámetros
create or alter procedure spUpdatePrecios ( Linea smallint,
                                            Tasa_Old numeric(6,2),
                                            Tasa_New numeric(6,2) )
as
begin
     if (Linea is null) then
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New,
     else
        --Update restringido de acuerdo a Linea=?
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New
        where id_linea=:linea;

end

Saludos cordiales

El procedimiento almacenado funciona, aunque debo hacerlo por sql porque es un modulo para una app de tercero y cuando actualicen las estructuras borran el procedimiento

cloayza · #17 27-10-2020

En las Opcion 1 y Opción 2, estan como setencias SQL...

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;

Saludos

webmasterplc · #18 29-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

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

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

buenas volvi a colocar firedac y si me dunciona, puede ser un error de zeos

marco3k · #19 29-10-2020

Que bueno que ya te funciono y ¿Se pudo optimizar a como estaba anteriormente?

Saludos.

webmasterplc · #20 29-10-2020

El Rendimieto es mejor, ademas de que veo algun error antes de compilar

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