Optimizacion de actualizacion de Campo

marco3k · #1 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 · #2 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 · #3 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 · #4 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 · #5 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 · #6 22-10-2020

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

webmasterplc · #7 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 · #8 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 · #9 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 · #10 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 · #11 29-10-2020

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

Saludos.

marco3k · #12 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 · #13 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

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

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