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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

262 - Ado y Flexgrid ( Ejemplo de Paginación de un recordset )

Módulo de clase que permite paginar los registros, y visualizarlos en un control Ms Flexgrid o Hierarchical Flexgrid

EL siguiente módulo de clase permite paginar los registros de un recordset, y luego utilizar ese recordset para volcarlo a un control Flexgrid, como se ve en el siguiente formulario de ejemplo, donde el recordset está dividido en 22 páginas, y cada una contiene 100 registros.

vista del form de ejemplo

vista del formulario de ejemplo para paginar datos usando ado y un Flexgrid

El módulo de clase tiene las siguientes propiedades, métodos y eventos:

lista de los métodos , propiedades del módulo de clase

Popiedad Connection = Aqui se debe especificar la conexión ADODB que se va a utilizar
Popiedad MSFlexGrid = Aqui se debe especificar el control MsFlexgrid a utilizar para los datos
Propiedad Registros_Por_Pagina: en esta propiedad se indica los registros que contendrá cada página de resultados
Propiedad sql: La Consulta Sql a utilizar
Método FirstPage: permite navegar a la primer página
Método PreviousPage: permite navegar a la página anterior
Método NextPagePage: permite navegar a la siguiente página.
Método LastPage: permite navegar a la última página
Método Refresh: Permite refrescar los datos en el FlexGrid cuando se hacen cambios en la base de datos para volver a cargar los registros actualizados
Método GoToPage: Método que navega al número de página indicado
Evento MoveComplet: cada ves que se desplaza por las páginas, se dispara este evento con el cual se puede recuperar el: Número de página actual, el total de páginas que hay y la cantidad de registros del recordset, por ejemplo para visualizarlo en un control Label como se ve en el gráfico anterior.

Para usar el módulo es muy simple:

Primero hay que crear una instancia del mismo:

'Nueva instancia de la clase
Set obj = New Class1

Luego especificar la Conexión ADO, la cadena Sql, el control Flexgrid y la cantidad de registros a mostrar por cada página:

        'Establece la conexión ADODB
        Set .Connection = cnn
    
        ' Consulta SQL
        .sql = "Select * FROM [Detalles de pedidos]"
        'Cantidad de registros a mostrar por cada página
        .Registros_Por_Pagina = 100
        
        'Especifica el Flexgrid a usar
        .MSFlexGrid = MSFlexGrid1

... Luego de especificar lo anterior ya se pueden cargar los datos en la grilla, por ejemplo llendo a la primer página con el método GoToPage y pasarle el número de la misma, en este caso 1

 'Va a la página 1, y carga los datos en FlexGrid de dicha página
  Call obj.GoToPage(1)

Desplazarse por los registros

Para moverse por las páginas, hay que usar los métodos FirstPage, PreviousPage, NextPage y LastPage

Por ejemplo para ir a la última página al presionar un botón:

obj.FirstPage

Para ir a la Siguiente:

obj.NexPage

Anterior página

obj.PreviousPage

Para ir a la última:

obj.LastPage

Para ir a la página 15

obj.GoToPage 15

Para volver a cargar los datos en el Flexgrid, por ejemplo cuando se actualizan o modifican registros de la base de datos y poder volver a cargar la grilla, usar el método Refresh

obj.Refresh

Pasos para crear un formulario de ejemplo:

Agregar un módulo de clase llamado Class1
Colocar en el proyecto la referencia a ADO ( Microsoft Activex Data Objects )
Agregar un control Microsoft FlexGrid o un Hierarchical Flexgrid
Un CommandButton llamado cmd_Reg ( este es para indicar o cambiar la cantidad de registros a mostrar por página )
Un commandButton llamado Cmd_Refresh
Un Arreglo de control Commandbutton para la botonera de navegación llamado:
Cmd_Nav_Registros(0), Cmd_Nav_Registros(1), Cmd_Nav_Registros(2) y Cmd_Nav_Registros(3)
Por último un control Label llamado Label1 para ver el número de la página actual en la que estamos ubicados.

Primero se lista el código del módulo y al final el código para agregar en el formulario

Código en el Módulo Class1:

Option Explicit 'Propiedades Public PaginaActual As Long Public Total_Paginas As Long Public Registros_Por_Pagina As Long Public sql As String 'Enum para la navegación y para refrescar los datos Enum E_Navegacion PRIMER_PAGINA = 0 ANTERIOR = 1 SIGUIENTE = 2 ULTIMA_PAGINA = 3 REFRESCAR = 4 End Enum 'Variables locales Private m_MSFlexGrid As Object Private m_Accion As E_Navegacion Private m_Connection As ADODB.Connection 'Evento que muestra el total de registros, la página actual _ y el total de paginas del recordset ( por ejemplo en un control Label ) Public Event MoveComplet(ByVal PaginaActual As Long, _ ByVal TotalPaginas As Long, _ ByVal Total_Registros As Long) 'Sub que llena el flexgrid ( recibe como parámetro la conexión ADO) '*************************************************************************** Private Sub Cargar_FlexGrid() On Error GoTo ErrSub Dim rst As New ADODB.Recordset Dim Registros As Long Dim Columna As Integer ' Muestra un mensaje de Error por si no hay un Ms Flexgrid asignado If m_MSFlexGrid Is Nothing Then MsgBox "No se especificó ningún contol " & _ "Ms FlexGrid para mostrar los datos. ", vbCritical Exit Sub End If ' Muestra un mensaje de Error por si no hay una conexión ADO establecida If m_Connection Is Nothing Then MsgBox "No se especificó ninguna conexión ADODB. " & _ " Especificar una. ", vbCritical Exit Sub End If 'Verifica que se especificó el comando sQL If sql = vbNullString Then ' Si no se especificó , Muestra el error y sale MsgBox "No se especificó ninguna consulta SQL", vbCritical Exit Sub End If If PaginaActual = 0 Then PaginaActual = 1 End If Total_Paginas = PaginaActual 'Limpia el Flexgrid m_MSFlexGrid.Clear ' Acá le indica al recordset la cantidad de _ registros que tendrá cada página rst.PageSize = Registros_Por_Pagina ' Llena el Recordset Call rst.Open(sql, m_Connection, adOpenKeyset) ' Para que no de error If Total_Paginas <= rst.PageCount Then rst.AbsolutePage = Total_Paginas End If 'Asigna el toal de páginas a la variable Total_Paginas = rst.PageCount m_MSFlexGrid.Rows = 1 m_MSFlexGrid.Cols = rst.Fields.Count 'Recorre las columnas del flexgrid para crear los encabezados For Columna = 0 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(Columna).Name) Then m_MSFlexGrid.TextMatrix(0, Columna) = rst.Fields(Columna).Name End If Next 'Recorre el Recordset para añadir los registros Do While Not rst.EOF Registros = Registros + 1 m_MSFlexGrid.Rows = m_MSFlexGrid.Rows + 1 For Columna = 0 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(Columna).Value) Then m_MSFlexGrid.TextMatrix(Registros, Columna) = _ rst.Fields(Columna).Value End If Next 'Siguiente registro rst.MoveNext 'Si llegó al límite de registros de la ágina, sale del DO While If (Registros >= Registros_Por_Pagina) Or (rst.EOF) Then Exit Do End If Loop ' Ejecuta el evento con los datos de información RaiseEvent MoveComplet(PaginaActual, Total_Paginas, rst.RecordCount) 'Cierra y descarga On Error Resume Next rst.Close Set rst = Nothing On Error GoTo 0 Exit Sub 'Error ErrSub: MsgBox "Número de error: " & Err.Number & vbNewLine & _ " Descripción del error: " & Err.Description, vbCritical End Sub '******************************************** ' Sub y funciones '******************************************** 'Navega a la primer página del recordset Sub FirstPage() m_Accion = PRIMER_PAGINA Call Calcular_Pagina Call Cargar_FlexGrid End Sub 'Navega a la Anterior página del recordset Sub PreviousPage() m_Accion = ANTERIOR Call Calcular_Pagina Call Cargar_FlexGrid End Sub 'Siguiente página del recordset Sub NexPage() m_Accion = SIGUIENTE Call Calcular_Pagina Call Cargar_FlexGrid End Sub ' Va a la última página del recordset Sub LastPage() m_Accion = ULTIMA_PAGINA Call Calcular_Pagina Call Cargar_FlexGrid End Sub 'Refresca la grilla Sub Refresh() m_Accion = REFRESCAR Call Calcular_Pagina Call Cargar_FlexGrid End Sub ' Navega al número de página indicado Sub GoToPage(Pagina As Long) PaginaActual = Pagina Call Cargar_FlexGrid End Sub Private Sub Calcular_Pagina() ' Verifica la opción de navegación que se eligíó, para _ establecer el valor de la variable --> PaginaActual Select Case m_Accion Case PRIMER_PAGINA PaginaActual = 1 Case ANTERIOR If PaginaActual > 1 Then PaginaActual = PaginaActual - 1 Case SIGUIENTE If PaginaActual < Total_Paginas Then PaginaActual = PaginaActual + 1 Case ULTIMA_PAGINA PaginaActual = Total_Paginas End Select End Sub '******************************************** 'Propiedades '******************************************** ' Propiedad para indicar la Conexión ADO Public Property Get Connection() As ADODB.Connection Connection = m_Connection End Property Public Property Set Connection(Conexion_ADODB As ADODB.Connection) Set m_Connection = Conexion_ADODB End Property 'Propiedad para indicar el Flexgrid Public Property Get MSFlexGrid() As Object Set MSFlexGrid = m_MSFlexGrid End Property Public Property Set MSFlexGrid(v_MSFlexGrid As Object) Set m_MSFlexGrid = v_MSFlexGrid End Property Public Property Let MSFlexGrid(v_MSFlexGrid As Object) Set m_MSFlexGrid = v_MSFlexGrid End Property ' Unload del módulo Private Sub Class_Terminate() If Not m_MSFlexGrid Is Nothing Then Set m_MSFlexGrid = Nothing End If If Not m_Connection Is Nothing Then Set m_Connection = Nothing On Error Resume Next m_Connection.Close End If End Sub

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Agregar la referencia a Microsoft ADO '*************************************************************************** Dim WithEvents obj As Class1 'Variable para la conexión ADODB Dim cnn As ADODB.Connection '*************************************************************************** ' Botones para navegar por las páginas del recordset '*************************************************************************** Private Sub Cmd_Nav_Registros_Click(Index As Integer) Select Case Index 'Navega a la primer página Case 0: obj.FirstPage 'Navega a la anterior Case 1: obj.PreviousPage 'Navega a la siguiente página Case 2: obj.NexPage 'Navega a la última Case 3: obj.LastPage End Select End Sub ' Load '*************************************************************************** Private Sub Form_Load() 'Nueva instancia de la clase Set obj = New Class1 'Nueva conexión ADO Set cnn = New ADODB.Connection 'Propiedades de la conexión cnn.CursorLocation = adUseClient cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & "C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\NWIND.MDB" With obj 'Establece la conexión Set .Connection = cnn ' Consulta SQL .sql = "Select * FROM [Detalles de pedidos]" 'Cantidad de registros a mostrar por cada página .Registros_Por_Pagina = 100 'Especifica el Flexgrid a usar .MSFlexGrid = MSFlexGrid1 'Va a la página 1, y carga los datos en _ FlexGrid de dicha página Call obj.GoToPage(1) ' Caption de los commandbutton para navegación y otros Cmd_Nav_Registros(0).Caption = "|<<" Cmd_Nav_Registros(1).Caption = " <<" Cmd_Nav_Registros(2).Caption = " >>" Cmd_Nav_Registros(3).Caption = ">>|" cmd_Reg.Caption = " Número de registros por página: " & _ obj.Registros_Por_Pagina Cmd_Refresh.Caption = " Refresh " End With End Sub ' Botón que Permite especificar la cantidad de _ registros que se van a visualizar por página '*************************************************************************** Private Sub cmd_Reg_Click() Dim N_registros As Variant N_registros = InputBox(" Escriba el número de registros a mostrar por página.") If IsNumeric(N_registros) Then ' Asigna la nueva cantidad de registros a ver por cada página obj.Registros_Por_Pagina = N_registros cmd_Reg.Caption = " Número de registros por página: " & _ obj.Registros_Por_Pagina ' Posiciona el Recordset en la primer página y carga los datos en el FlexGrid Call obj.FirstPage End If End Sub ' Botón que refresca los datos del Flexgrid '*************************************************************************** Private Sub Cmd_Refresh_Click() Call obj.Refresh End Sub 'Evento que muestra la página actual del recordset y el total de páginas '*************************************************************************** Private Sub obj_MoveComplet(ByVal PaginaActual As Long, _ ByVal TotalPaginas As Long, _ ByVal Total_Registros As Long) Label1.Caption = "Página " & PaginaActual & " de " & TotalPaginas & vbNewLine & _ "Total de registros: " & Total_Registros End Sub 'Descarga y finalización '*************************************************************************** Private Sub Form_Unload(Cancel As Integer) If Not obj Is Nothing Then Set obj = Nothing End If If Not cnn Is Nothing Then On Error Resume Next cnn.Close Set cnn = Nothing End If End Sub

Recursos vb 6.0 - enlaces relacionados

Buscar en Recursos vb