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

362 - Paginar DataGrid

Código fuente para paginar un DataGrid mediante un recordset desconectado

El ejemplo muestra una forma de poder paginar un recordset en la cantidad de páginas indicadas, para poder volcar el conjunto de registros al control DataGrid

Fromulario con la grilla

vista del formulario con los controles commandbutton y el datagrid

Para indicar la cantidad de registros que tendrá cada página, modificar el valor de la constante Page_Size

Nota: el ejemplo usa la base de datos Biblio.mdb que se instala en el directorio de visual basic

Controles

Agregar la referencia de ado ( Microsoft activex data objects xx )
Un control Datagrid
Cuatro controles CommandButton en un arreglo ( Command1 (0), Command1 (1), Command1 (2) y Command1 (3))

Código fuente en un formulario

Option Explicit ' variables y constantes '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' para la conexión ado Private cn As ADODB.Connection ' recordset principal Private rs As ADODB.Recordset ' recordset desconectado Private rs2 As ADODB.Recordset ' cantidad de registros por página Const PAGE_SIZE = 50 Dim Registro As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() Dim sql As String Dim cadena As String Set cn = New ADODB.Connection 'ConnectionString 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 que se asigna a la función que lo pagina Set rs2 = New ADODB.Recordset ' cadena sql para la tabla Authors dela base de datos biblio.mdb _ del directorio de vsual basic sql = "SELECT * FROM Authors Order By Au_Id" 'Propiedades del recordset With rs .CursorLocation = adUseClient .PageSize = PAGE_SIZE .Properties("Initial Fetch Size") = PAGE_SIZE ' Abre .Open sql, cn, adOpenKeyset, , adAsyncFetchNonBlocking 'asigna el recordset devuelto por la función al dataGrid Set DataGrid1.DataSource = Paginar_Recordset(rs) End With ' Número de registro actual ( en este caso 50 por página ) Registro = 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 Registro = PAGE_SIZE ' Anterior página del recordset Case 1 Pagina_Actual = .AbsolutePage - 1 Registro = Registro - PAGE_SIZE If Registro < PAGE_SIZE Then Registro = PAGE_SIZE End If ' Siguiente página Case 2 Pagina_Actual = .AbsolutePage + 1 Registro = Registro + PAGE_SIZE If Registro > rs.RecordCount Then Registro = rs.RecordCount End If ' Ultima Case 3 Pagina_Actual = .PageCount Registro = 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 al rec .AbsolutePage = Pagina_Actual ' Asigna el recordset paginado al control Datagrid Set DataGrid1.DataSource = Paginar_Recordset(rs) ' visualiza en el caption la página actual y los registros Me.Caption = Me.Caption & " - Registro actual: " & Registro & _ " de " & rs.RecordCount & " registros ." End With End Sub 'función que retorna el recordset ya paginado '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Paginar_Recordset(recset As ADODB.Recordset) As ADODB.Recordset Dim Fila 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 está abierto entonces lo cierra If .State = adStateOpen Then .Close End If ' Define y Crea los campos al recordset con Append For Each Campo In recset.Fields .Fields.Append Campo.Name, Campo.Type, _ Campo.DefinedSize, Campo.Attributes Next Campo ' Lo Abre para agregarle los registros rs2.Open For Fila = 1 To PAGE_SIZE ' si está en el final sale If recset.EOF Then Exit For End If ' va añadiendo los registros .AddNew ' Recorre los campos For Each Campo In recset.Fields ' Asigna el nombre del campo rs2(Campo.Name) = Campo.Value Next Campo 'Actualiza el recordset desconectado y el otro recordset .Update ' mueve al siguiente registro recset.MoveNext Next Fila ' Mueve al primer registro .MoveFirst ' Establece la página actual recset.AbsolutePage = P End With ' devuelve a la función el conjunto de datos, es decir el recordset paginado Set Paginar_Recordset = rs2 ' Muestra la página actual en el caption del formulario Me.Caption = " Página: " & CStr(rs.AbsolutePage) & _ " de " & CStr(rs.PageCount) End Function ' redimensiona y posiciona el datagrid y los cuatro commandbutton '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Resize() Dim i As Integer Dim tTop As Single On Local Error Resume Next ' posiciona y redimensiona el datagrid DataGrid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 350 ' posiciona y redimensiona los commandbutton tTop = DataGrid1.Top + DataGrid1.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) Set DataGrid1.DataSource = Nothing If Not rs2 Is Nothing Then If Not rs2.State = adStateClosed Then rs2.Close End If Set rs2 = Nothing End If If Not rs Is Nothing Then If Not rs.State = adStateClosed Then rs.Close End If Set rs = Nothing End If If Not cn Is Nothing Then If Not cn.State = adStateClosed Then cn.Close End If Set cn = Nothing End If End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb