Sección de códigos , trucos y ejemplos para visual basic

266 - Cargar un recorset Ado con progreso

Ejemplo del evento FetchComplete y FetchProgress que permite consultar el progreso de carga al traer registros a un Recordset

El mismo es como muestra el siguiente gráfico:

vista del formulario de ejemplo para abrir un recordset ado y ver el progreso de carga de registros

En el panel izquierdo del stausBar se visualiza los registros que se van cargando al recordset, en el otro panel muestra el texto " cargando " o " finalizado "

Para poder consultar el progreso una ves que se llama al método Open del objeto Recordset, se debe consultar el evento FetchProgress. Este tiene un parámetro que devuelve el progreso ( Parámetro Progress ).

Una ves se completó la carga de registros en el Recordset se ejecuta el evento FetchComplete. ( este evento también se ejecuta cuando se produce un error, si el valor del parámetro AdStatus es adStatusOK, es por que no hubo ningún error )

Antes de abrir el Recordset, se establece en la propiedad "Background Fetch Size" del mismo, la cantidad de registros que indicarán cuando el objeto recordset ejecutará el evento FetchProgress. Por ejemplo si se establece en 10, cada ves que el recordset traiga 10 registros, se producirá el evento

Importante: Para poder utilizar dichos eventos, el recordset debe estar declarado con la palabra WithEvents, para que el objeto pueda disparar eventos.

Es decir en ves de:

Dim El_recordset rs As ADODB.Recordset

.. debe estar declarado de esta forma:

Dim WithEvents El_recordset As ADODB.Recordset

Nota: Es necesario tener istalado el MDAC 2.5 o posterior para poder usar los eventos

Controles y referencias para el ejemplo

Agregar un control Microsoft Hierarchical Flex Grid,
un control Textbox llamado txt_SQL
un CommandButton
un control StatusBar.
También agregar la referencia a Microsot Activex Data Objects para acceder a Ado

También indicar la base de datos en el ConnectionString

Código fuente en el formulario

Option Explicit ' Para la conexión Ado Dim cn As ADODB.Connection ' Variable de recordset con evento Dim WithEvents rs As ADODB.Recordset Private Sub Form_Load() Command1.Caption = " Cargar recordset " 'nueva conexión ADO Set cn = New ADODB.Connection 'Abre cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\" & _ "Archivos de programa\Microsoft Visual Studio\VB98\" & _ "BIBLIO.MDB;Persist Security Info=False" ' Crea un panel al statusbar ( para mostrar " Cargando " o " Finalizado ") With StatusBar1 .Panels.Add 2 .Panels(1).Width = 2500 .Panels(2).Width = 2000 End With End Sub ' botón que abre el recordset Private Sub Command1_Click() StatusBar1.Panels(2).Text = " Cargando " 'Le envía la consulta SQL Call Cargar_Recordset(txt_SQL) End Sub Sub Cargar_Recordset(Sql As String) 'Nuevo recordset Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .Properties("Initial Fetch Size") = 0 ' Se ejecuta el evento FetchProgress cada ves que se traen dos registros .Properties("Background Fetch Size") = 2 'Abre el recordset y se disparan el evento FetchProgress .Open Sql, cn, , , adAsyncFetch End With End Sub Private Sub rs_FetchComplete(ByVal pError As ADODB.Error, _ adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset) If adStatus <> adStatusOK Then ' si se ejecuta esto es por que hubo error MsgBox pError.Description, vbCritical StatusBar1.Panels(2).Text = " Error " Else 'Cuando finaliza la carga se asigna el recordset al FlexGrid Set MSHFlexGrid1.DataSource = pRecordset StatusBar1.Panels(2).Text = " Finalizado " End If End Sub ' Evento que se dispara para ver el prgreso de carga del recordset Private Sub rs_FetchProgress(ByVal Progress As Long, _ ByVal MaxProgress As Long, _ adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset) StatusBar1.Panels(1).Text = " Registros Cargados : " & CStr(Progress) End Sub

Buscar en Recursos vb