| Pregunta: | 44390 - AYUDA PARA UN PROGRESSBAR |
| Autor: | MARIO JAVIER HINMEL |
| ¿COMO HAGO PARA CALCULAR EL TIEMPO DE EJECUCION DE UNA CONSULTA Y UTILIZAR ESE PARAMETRO EN UN PROGRESSBAR? | |
| Respuesta: | Juantxu Jauregui |
| Hola, te comento como lo he hecho de una forma un poco chapucera:
me creo un recordset para que contenga los datos de la consulta dim bdatos as database dim rs1 as recordset dim mysql as string dim lcontador as long icontador = 1 set bdatos = currentdb mysql = "select * from mytabla" set rs1 = bdatos.openrecordset(mysql) progressbar1.min = 1 progressbar1.max = rs1.recordcount '(ó rs1.recordcount +1 ,si hay pocas filas puede darte un error) while not rs1.eof << instrucciones del bucle >> progressbar.value = lcontador lcontador = lcontador + 1 rs1.movenext wend algo chapucero pero funciona. lo puedes hacer mas impactante jugando con los colores, por ejemplo hasta el 50% azul, hasta el 70% amarillo, progressbar.forecolor = vbgreen,..... Espero que te haya solucionado. salu2 | |