• Lunes 18 de Noviembre de 2024, 04:18

Autor Tema:  Procesando  (Leído 1313 veces)

FABIANGARCIA

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
Procesando
« en: Jueves 30 de Septiembre de 2004, 21:03 »
0
:angry:  :angry:  :angry:

HOLA A TODOS

ESTOY REALIZANDO UNA CONSULTA EN UNA BASE DE DATOS GRANDE, COMO HAGO PARA QUE ME APARESCA UN TEXTO O UN PROGRESS CUANDO EL RECORSET ESTA REALIZANDO LA CONSULTA, A MI SE ME QUEDA CONGELADO EL FORM Y NO ME MUESTRA NADA, E BUSCADO POR TODO LADO Y ME MUESTRA EJEMPLOS MUY SENCILLOS PERO NINGUNO CON UNA CONSULTA CON UN RECORDSET.

GRACIAS

Cyclop

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Procesando
« Respuesta #1 en: Viernes 1 de Octubre de 2004, 02:37 »
0
Es por que lo haces con un While o For, prueba usando un Timer, pero el problema de esto es que se hace un poco lento.

Salu2

Cyclop
Icotext Evolution v0.5 para los amantes del ASCII Art
http]

FABIANGARCIA

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
Re: Procesando
« Respuesta #2 en: Viernes 1 de Octubre de 2004, 15:22 »
0
HOLA CYCLOP

SI YA HABIA HECHO ESO, SABES HICE UN FORM PEQUEÑO QUE LE ESCRIBI EL MENSAJE, LO MONTO EN EL MOMENTO DE REALIZAR LA CONSULTA Y CUANDO ACABA LA CONSULTA LO BAJO Y ASI ME APARECE EL MENSAJE

DE TODOS MODOS MUCHAS GRACIAS

 :hola:  :hola:  :hola:  :hola:

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Procesando
« Respuesta #3 en: Viernes 1 de Octubre de 2004, 15:36 »
0
Antes de hacer la consulta, coloca

Me.MousePointer = vbHourglass
'A continuacion tu consulta, y tus procesos

Al terminar, coloca
Me.MousePointer = vbDefault

Con esto, al menos tendras la idea que esta trabajando

Lo otro, es que tengas un contador de eventos, y simplemente en tu
proceso le pongas

cont=cont+1
me.caption="Evolucion " & cont

Espero te tinque