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

287 - Paginar Hierarchical FlexGrid con un recordset desconectado

Ejemplo que permite paginar un conjunto de registros para cargarlos en un Hierarchical Flexgrid , usando un recordset desconectado

En realidad en el ejemplo se utilizan dos recordset, uno que contiene todos los datos ( el recordset principal ), y este recordset se envía a una función como parámetro, que retorna un recordset desconectado y que luego se asigna al Datasource del Hierarchical FlexGrid

Nota. en este otro enlace, hay un ejemplo sacado de la microsoft knowledge, que muestra como crear Páginas de conjunto de registros , para no tener que volcar el recordset entero a la grilla, y poder de esta manera optimizar la velocidad y performance : Descargar

Para el ejemplo añadir

la referencia a Microsoft Activex data Objects para poder acceder a Ado
Agregar un Contol Microsoft Hierarchical FlexGrid
Cuatro CommandButton para desplazarse por las páginas. Los commandbutton deben estar en un arreglo de controles, es decir Command1(0), Command1(1), Command1(2) y Command1(3)

Código fuente en el formulario

Option Explicit ' Variable para la conexión ado Private cn As ADODB.Connection ' Para el recordset principal Private rs As ADODB.Recordset ' Para el recordset desconectado Private rs2 As ADODB.Recordset ' Indica la cantidad de registros por página Const PAGE_SIZE = 50 Dim reg As Integer Private Sub Form_Load() Dim sql As String Dim cadena As String Set cn = New ADODB.Connection 'Cadena de conexión cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\biblio.MDB" cn.ConnectionString = cadena ' Abre la base de datos cn.Open 'Crea dos recordset Set rs = New ADODB.Recordset ' El recordset desconectado Set rs2 = New ADODB.Recordset sql = "SELECT * FROM Authors Order By Au_Id" 'Propiedades del recordset With rs .CursorLocation = adUseClient .PageSize = PAGE_SIZE .Properties("Initial Fetch Size") = PAGE_SIZE 'Llena el recordset .Open sql, cn, adOpenKeyset, , adAsyncFetchNonBlocking 'Carga el Hierarchical FlexGrid con el recordset devuelto por la función Set MSHFlexGrid1.DataSource = Paginar_Recordset(rs) End With ' Número de registro actual reg = PAGE_SIZE Command1(0).Caption = " |<< " Command1(1).Caption = " < " Command1(2).Caption = " > " Command1(3).Caption = " >>| " End Sub 'Botones para navegar por las páginas Private Sub Command1_Click(Index As Integer) Dim Pagina_Actual As Long With rs Select Case Index ' Primera página del recordset Case 0 Pagina_Actual = 1 reg = PAGE_SIZE ' Anterior página del recordset Case 1 Pagina_Actual = .AbsolutePage - 1 reg = reg - PAGE_SIZE If reg < PAGE_SIZE Then reg = PAGE_SIZE End If ' Siguiente página del recordset Case 2 Pagina_Actual = .AbsolutePage + 1 reg = reg + PAGE_SIZE If reg > rs.RecordCount Then reg = rs.RecordCount End If ' Ultima Case 3 Pagina_Actual = .PageCount reg = rs.RecordCount End Select ' Si estamos en la primera o última pagina sale If Pagina_Actual < 1 Or Pagina_Actual > .PageCount Then Exit Sub End If ' Establece la Página actual .AbsolutePage = Pagina_Actual ' Asigna el recordset paginado al Hierarchical Flexgrid Set MSHFlexGrid1.DataSource = Paginar_Recordset(rs) Me.Caption = Me.Caption & " - Registro actual: " & reg & _ " de " & rs.RecordCount & " registros ." End With End Sub 'función que retorna el recordset paginado Private Function Paginar_Recordset(recset As ADODB.Recordset) As ADODB.Recordset Dim Row As Long Dim Campo As Field Dim P As Long P = IIf(recset.AbsolutePage > 0, recset.AbsolutePage, 1) 'Recordset desconectado With rs2 ' Si el recordset estuviese abierto lo cierra If .State = adStateOpen Then .Close 'añade los campos al recordset For Each Campo In recset.Fields .Fields.Append Campo.Name, Campo.Type, _ Campo.DefinedSize, Campo.Attributes Next Campo ' Lo Abre .Open For Row = 1 To PAGE_SIZE If recset.EOF Then Exit For ' va añadiendo los datos .AddNew For Each Campo In recset.Fields rs2(Campo.Name) = Campo.Value Next Campo 'Actualiza el recordset desconectado _ y el otro recordset se mueve al siguiente registro .Update recset.MoveNext Next Row ' Volvemos al primer registro .MoveFirst 'Indicamos la página actual recset.AbsolutePage = P End With ' devuelve a la función el conjunto de datos Set Paginar_Recordset = rs2 ' Muestra la página actual Me.Caption = " Página: " & CStr(rs.AbsolutePage) & " de " & CStr(rs.PageCount) End Function ' redimensiona y posiciona los controles Private Sub Form_Resize() Dim i As Integer, tTop As Single On Local Error Resume Next MSHFlexGrid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 350 tTop = MSHFlexGrid1.Top + MSHFlexGrid1.Height Command1(0).Move 0, tTop, 600, 350 For i = 1 To 3 Command1(i).Move Command1(i - 1).Left + Command1(i - 1).Width, _ tTop, 600, 350 Next End Sub 'Descarga los recordset, la conexión ado y los cierra Private Sub Form_Unload(Cancel As Integer) If Not rs2.State = adStateClosed Then rs2.Close End If If Not rs2 Is Nothing Then Set rs2 = Nothing End If If Not rs.State = adStateClosed Then rs.Close End If If Not rs Is Nothing Then Set rs = Nothing End If If Not cn.State = adStateClosed Then cn.Close End If If Not cn Is Nothing Then Set cn = Nothing End If End Sub

Recursos visual basic 6.0 - enlaces relacionados

Buscar en Recursos vb