Imprimir página | Cerrar ventana

Rapidez de calculo

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84890
Fecha de impresión: 27/Marzo/2026 a las 04:08


Tema: Rapidez de calculo
Publicado por: rokoko
Asunto: Rapidez de calculo
Fecha de publicación: 13/Diciembre/2019 a las 09:38
Hola

Que es mas rapido calculando
Este DSuma en un cuadro de texto
=Nz(DSuma("([Importe]*[Cantidad])-(([Importe]*[Cantidad])*([DescuentoPorcentaje]))";"tbVentas";"NumeroTicketDetalle=Formularios!frmTPV!NumeroTicket");0)

O Una consulta que hace eso mismo que el DSuma y luego otra consulta que suma totales sobre la consulta anterior??

A efectos visuales no se distingue ahora, pero apenas hay registros. Imaginemos que hay un yo que se 500000 registros

Por practico me gusta mas el DSuma

Saludos



Respuestas:
Publicado por: xavi
Fecha de publicación: 13/Diciembre/2019 a las 20:19
La verdad es que no lo se. Pero si te creas un a tabla con 500000 registros y lo pruebas, salimos de dudas todos Wink

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: guarracuco
Fecha de publicación: 16/Diciembre/2019 a las 01:52
Las funciones de agregado son más lentas que una consulta, más notable cuando la cantidad de registros es grande.


Publicado por: rokoko
Fecha de publicación: 19/Diciembre/2019 a las 10:41
Me he creado una tabla con 1300000 registros, y a ojimetro no soy capaz de distinguir la diferencia de tiempo en el calculo, muy similar..

Edito: Voy a probar con mas registros he ntentar grabar tiempos....

Saludos


Publicado por: rokoko
Fecha de publicación: 23/Diciembre/2019 a las 15:47
Me he creado una tabla con mas de 5000000 de registros, Y mas o menos los dos sistemas vienen a tardar casi siempre los mismo, 5 segundos.

Lo verifico asi....

Se puede cerrar,saludos.

Private Sub Form_Load()
Me.Texto2 = Time
Me.Texto0 = Nz(DSum("([Importe]*[Cantidad])-(([Importe]*[Cantidad])*([Descuento]))", "Tabla1", "Ticket=3"), 0)
Me.Texto4 = Time
End Sub



Private Sub Form_Load()
Me.Texto2 = Time
DoCmd.OpenQuery "qryTotal", , acReadOnly
Me.Texto4 = Time
End Sub




Imprimir página | Cerrar ventana