ProgressBar y SQL

Javier
10 de Marzo del 2005
Hola, hice una rutina que trabaja en red y la tabla tiene 99000 registros, además la búsqueda se hace dentro de un campo memo con la instrucción LIKE. El problema que se me presenta es que primero demora cierto tiempo (bastante) esta búsqueda y al rato recién comienza a incrementarse el ProgressBar. Mis usuario se quejan porque dicen no saben si se colgó el equipo o aún está buscando. ¿Es posible hacer que el ProgressBar comience a incrementarse ni bien se ejecute SQL?

Este es el código que utilizo:

Dim Dbase As Database 'Variable para las Bases de Datos
Set Dbase = OpenDatabase(App.Path & "Fotos.mdb")

Dim SQLTmp As String
Dim MySnap As Recordset

SQLTmp = "Select * From Fotos WHERE UCase(Descripcion) Like '*" & UCase(Trim(TxDescripcion.Text)) & "*'"
Set MySnap = Dbase.OpenRecordset(SQLTmp)

MySnap.MoveLast
If MySnap.RecordCount = 0 Then
MsgBox "No hay datos que coincidan con la búsqueda especificada"
Exit Sub
End If

'Añado el resultado a un Grid
PB.Min = 0
PB.Max = MySnap.RecordCount
PB.Value = 0

MySnap.MoveFirst
Do Until MySnap.EOF
GrMostrar.AddItem MySnap("Numero") & Chr(9) & MySnap("FechaIngreso")
MySnap.MoveNext
PB.Value = PB.Value + 1
Loop
MySnap.Close

Set MySnap = Nothing
Set Base = Nothing

Max
10 de Marzo del 2005
Si estubieses trabajando contra SQL Server te diria que hicieses las consultas asincronas, pero en contra access no se puede.

Yo lo que te aconsejo es que antes de empezar la consulta muestres un frame que ponga algo asi como" Cargado datos.... " y cuando acabe la busqueda lo ocultes.

Espero que te sirva.