VB6 Mostrar tiempo de duración para realizar una consulta

Bueno, lo primero que haremos será crear un pequeño proyecto en Visual Basic 6 que tenga un diseño parecido al de la siguiente imagen.

Lo primero que he hecho ha sido declarar un objeto global ADODB para la conexión a la base de datos.

Dim conexionADO As New ADODB.Connection

Después he crear un procedimiento para conectar con nuestra base de datos en mi caso he utilizado ADO para conectarme a una base de datos de Oracle. Aquí mi ejemplo de mi procedimiento.

Ahora vamos a traernos una función externa que nos hará falta para calcular el tiempo que tarda la consulta.

Esta función nos devuelve el número de mili-segundos que han trascurrido desde que se ha iniciado la máquina.

Para terminar el código del evento del botón que lanza la consulta.

Como veis los único que hace es antes de lanzar la consulta llama la función “timerGetTime” para obtener un tiempo de inicio de referencia y posteriormente lo resta con el tiempo final. Como resultado se obtiene el número de mili-segundos que han trascurrido para ejecutar la sentencia.

Y un vídeo de la aplicación funcionando.