Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Optimizacion de actualizacion de Campo (https://www.clubdelphi.com/foros/showthread.php?t=94909)

webmasterplc 20-10-2020 14:20:16
Optimizacion de actualizacion de Campo
 
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 20-10-2020 14:31:51
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 21-10-2020 18:19:30
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 21-10-2020 20:01:09
Cita:
Empezado por kuan-yiu (Mensaje 538775)
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 22-10-2020 03:48:15
el bucle lo hagopara recorrer la consulta y el campo a actualizar

webmasterplc 22-10-2020 04:02:15
Cita:
Empezado por marco3k (Mensaje 538789)
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 22-10-2020 04:50:06
Cita:
Empezado por webmasterplc (Mensaje 538796)
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 22-10-2020 04:54:27
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 22-10-2020 14:32:38
Cita:
Empezado por marco3k (Mensaje 538798)
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 22-10-2020 14:33:34
Cita:
Empezado por marco3k (Mensaje 538797)
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 22-10-2020 16:05:38
Cita:
Empezado por webmasterplc (Mensaje 538806)
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 22-10-2020 16:19:00
Aca hay un ejemplo de procedimiento almacenado en firebird:
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=11090

webmasterplc 22-10-2020 16:39:56
Cita:
Empezado por marco3k (Mensaje 538807)
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 22-10-2020 21:55:08
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 25-10-2020 13:36:37
Cita:
Empezado por marco3k (Mensaje 538807)
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 25-10-2020 13:41:50
Cita:
Empezado por cloayza (Mensaje 538814)
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 27-10-2020 21:21:34
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 29-10-2020 03:20:59
Cita:
Empezado por marco3k (Mensaje 538807)
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 29-10-2020 17:04:01
Que bueno que ya te funciono y ¿Se pudo optimizar a como estaba anteriormente?

Saludos.

webmasterplc 29-10-2020 20:26:18
El Rendimieto es mejor, ademas de que veo algun error antes de compilar


La franja horaria es GMT +2. Ahora son las 08:59:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi