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

268 - Ado y ListView ( Ejemplo de Paginación de un recordset )

Módulo de clase para paginar un recordset ADO, y visualizar los registros en un control ListView

Este ejemplo es muy similar a este otro , Paginar FlexGrid con Ado

Los únicos cambios que tiene son los relacionados a la forma de ir añadiendo en el bucle los registros y además tiene una propiedad mas para indicar el modo de ajuste de los encabezados de columnas

Vista del formulario de ejemplo con el control ListView con los registros del recordset paginado

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

lista de los métodos , propiedades del módulo de clase para paginar el Listview

Popiedad Connection : Se debe especificar la conexión ADODB que se va a utilizar
Popiedad ListView : se debe especificar el control ListView a utilizar para visualizar los datos
Propiedad Registros_Por_Pagina: Propiedad que indica los registros que contendrá cada página
Propiedad sql: La Consulta Sql a utilizar para abrir el Recordset
Método FirstPage: Navega a la primer página del Recordset
Método PreviousPage: Navega a la página anterior
Método NextPagePage: Navega a la siguiente página.
Método LastPage: Navega a la última página
Método Refresh: Refresca los datos en el control ListView cuando se hacen cambios en la base de datos para volver a cargar los registros actualizados
Método GoToPage: Navega al número de página indicado en el parámetro
Evento MoveComplet: cada ves que se desplaza por las páginas, se dispara este evento con el cual se puede recuperar: El total de páginas que hay, el Número de página actual en el que se está ubicado, y la cantidad de registros del recordset, por ejemplo para visualizarlo en un control Label, StautsBar, o lo que sea.

Pasos para usar el módulo:

Crear una instancia del mismo:

'Nueva instancia de la clase
Set obj = New Class1

Luego especificar en la propiedad Connection la Conexión ADO.

'Nueva conexión ADO
Set cnn = New ADODB.Connection

'Nueva conexión ADO
    Set cnn = New ADODB.Connection
    
    'Propiedades de la conexión ADO
    cnn.CursorLocation = adUseClient
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BD.mdb"
    
        'Establece la conexión
        Set obj.Connection = cnn

En la propiedad SQL:

Obj.sql = "Select * FROM [Detalles de pedidos]"

La cantidad de registros a mostrar por página:

Obj.Registros_Por_Pagina = 250

el modo de ajuste de los encabezados ( Es opcional y tiene tres valores: AJUSTAR_POR_COLUMNA, AJUSTAR_POR_ITEM y NO_AJUSTAR) Si no se especifica , los encabezados no se ajustan

Obj.AutoSizeColumnHeader = AJUSTAR_POR_COLUMNA

Aquí se debe Indicar ( en la propiedad ListView ) el control ListView a usar.

obj.ListView = ListView1

... 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, o la página que se quiera cargar.

 '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 desplazarse por las páginas hay que usar los métodos:

FirstPage, PreviousPage, NextPage y LastPage

Por ejemplo lo siguiente va a la última página

obj.FirstPage

obj.NexPage

obj.PreviousPage

última página del recordset

obj.LastPage

Para ir a una pagina concreta, por ejemplo la página 15

obj.GoToPage 15

Ejemplo:

Agregar un módulo de clase llamado Class1
Colocar en el proyecto la referencia a ADO ( Microsoft Activex Data Objects )
Agregar un control ListView
Un botón llamado cmd_Reg ( este es para indicar o cambiar la cantidad de registros a mostrar por página )
Un botón llamado Cmd_Refresh
Un Arreglo de 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)
Un control Label llamado Label1 para visualizar el número de la página actual y el total de registros cargados.
Indicar en el FormLoad la bd y el SQL y demás propiedades que se describieron anteriormente.

Nota: Primero se lista el código del módulo de clase ( Se debe llamar Class1 ) y luego el código para el formulario

Código en el Módulo Class1:

Option Explicit ' Constantes que usa SendMessage Private Const LVM_FIRST As Long = &H1000 Private Const LVM_SETCOLUMNWIDTH As Long = LVM_FIRST + 30 ' Declaración del Api SendMessage para hacer el AutoSize de las columnas Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const WM_SETREDRAW As Long = &HB& Enum E_Ajustar_Encabezados NO_AJUSTAR = 0 AJUSTAR_POR_ITEM = -1 AJUSTAR_POR_COLUMNA = -2 End Enum Public AutoSizeColumnHeader As E_Ajustar_Encabezados '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 ( para el Listview, para la _ conexión ADO y para la acción de navegación por las páginas ) Private m_ListView As ListView 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 ListView ( recibe como parámetro la conexión ADO) '*************************************************************************** Private Sub Cargar_ListView() On Error GoTo ErrSub Dim rst As New ADODB.Recordset Dim Registros As Long Dim Columna As Integer Dim ret As Boolean ' Muestra un mensaje de Error por si no hay un ListView asignado If m_ListView Is Nothing Then MsgBox "No se especificó ningún contol " & _ "ListView 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 coneccion 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 'Desactiva el repintado del Listview para que cargue mas rápido If m_ListView.Parent.Visible Then Call SendMessage(m_ListView.Parent.hWnd, WM_SETREDRAW, 0&, 0&) ret = True End If 'Limpia el ListView m_ListView.ListItems.Clear m_ListView.ColumnHeaders.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 'REcorre el Recordset para crear los encabezados columnas For Columna = 0 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(Columna).Name) Then m_ListView.ColumnHeaders.Add , , rst.Fields(Columna).Name End If Next 'Recorre el Recordset para añadir los registros Do While Not rst.EOF Registros = Registros + 1 Dim Item As ListItem Set Item = m_ListView.ListItems.Add(, , rst.Fields(0).Value) For Columna = 1 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(Columna).Value) Then Item.SubItems(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) Select Case AutoSizeColumnHeader Case -1 'Ajusta la columna teniendo en cuenta el Item mas largo Call Ajustar_Ancho_Columna(m_ListView, -1) Case -2 'Ajusta la Columna teniendo en cuenta el _ caption de la columna mas largo Call Ajustar_Ancho_Columna(m_ListView, -2) End Select If ret = True Then 'Activa el repintado del contenedor del Listview ret = SendMessage(m_ListView.Parent.hWnd, WM_SETREDRAW, 1&, 0&) 'Refresca el ListView m_ListView.Refresh m_ListView.Parent.Refresh End If '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 '******************************************** ' Subrutinas y funciones '******************************************** '-------------------------------------------------------------- 'Ajusta los encabezados columna del Listview '----------------------------------------------------- Public Sub Ajustar_Ancho_Columna(El_ListView As ListView, _ ByVal Modo_De_Ajuste As Long) Dim La_Columna As Long With El_ListView 'Recorre los encabezados For La_Columna = 1 To .ColumnHeaders.Count ' Aplica el Autoajuste ( -1 mediante el item, -2 mediante el caption de la columna) Call ListView_AutoSize(El_ListView, La_Columna, Modo_De_Ajuste) Next End With End Sub Private Sub ListView_AutoSize(El_ListView As ListView, _ ByVal La_Columna As Long, _ ByVal Modo_De_Ajuste As Long) With El_ListView 'si no está el ListView en modo reporte sale If .View = lvwReport Then 'Si hay columnas If La_Columna >= 1 And La_Columna <= .ColumnHeaders.Count Then 'Establece el Autosize Call SendMessage(.hWnd, LVM_SETCOLUMNWIDTH, _ La_Columna - 1, ByVal Modo_De_Ajuste) End If End If End With End Sub '-------------------------------------------------------------- 'Navegación por las páginas '-------------------------------------------------------------- 'Navega a la primer página del recordset Sub FirstPage() m_Accion = PRIMER_PAGINA Call Calcular_Pagina End Sub 'Navega a la Anterior página del recordset Sub PreviousPage() m_Accion = ANTERIOR Call Calcular_Pagina End Sub ' Va a la Siguiente página del recordset Sub NexPage() m_Accion = SIGUIENTE Call Calcular_Pagina End Sub ' Va a la última página del recordset Sub LastPage() m_Accion = ULTIMA_PAGINA Call Calcular_Pagina End Sub 'Refresca los datos del Listview ( Los vuelve a cargar ) Sub Refresh() m_Accion = REFRESCAR Call Calcular_Pagina End Sub ' Navega al número de pagina indicado por el parámetro Sub GoToPage(Pagina As Long) PaginaActual = Pagina 'Asigna la página Call Cargar_ListView 'Carga 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 Call Cargar_ListView End Sub '******************************************** 'Propiedades '******************************************** ' Para la Conexión ADO Public Property Get Connection() As ADODB.Connection Connection = m_Connection End Property 'Establece Public Property Set Connection(Conexion_ADODB As ADODB.Connection) Set m_Connection = Conexion_ADODB End Property ' Propiedad para el ListView Public Property Get ListView() As Object Set ListView = m_ListView End Property Public Property Set ListView(v_ListView As Object) Set m_ListView = v_ListView End Property Public Property Let ListView(v_ListView As Object) Set m_ListView = v_ListView End Property ' Descarga del módulo de clase Private Sub Class_Terminate() If Not m_ListView Is Nothing Then Set m_ListView = 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 a colocar 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 del Recordset Case 0: obj.FirstPage 'Navega a la anterior del Recordset Case 1: obj.PreviousPage 'Navega a la siguiente página del Recordset Case 2: obj.NexPage 'Navega a la última del Recordset 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 ADO 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 ListView a usar .ListView = ListView1 'Indica el modo de ajuste de los encabezados de Columna .AutoSizeColumnHeader = AJUSTAR_POR_COLUMNA 'Va a la página 1, y carga los datos en _ ListView 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 ' Se posiciona en la primer página Call obj.FirstPage End If End Sub ' Botón que refresca los datos del ListView '*************************************************************************** Private Sub Cmd_Refresh_Click() Call obj.Refresh End Sub 'Evento que muestra la página actual del recordset, _ el total de páginas y el total de registros '*************************************************************************** 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 las variables y cierra la conexión ADO '*************************************************************************** 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

Nota: en el ejemplo también se utiliza la función Api SendMessage , para bloquear el repintado del contenedor del control ListView ( Un Formulario o Picturebox ) . Esto hace que el control no parpadee al moverse por las páginas, y además la carga de registros es mucho mas rápida, ya que el control ListView no presenta los datos hasta que se terminaron de cargar todos.

Esto último lo podés ver en este ejemplo: Acelerar carga de datos en un ListView

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb