VB datagrid分頁 總結
目前大家用vb中的datagrid分頁顯示數據庫內容的方法都很類似
就是先使用了ADODB的分頁功能，以提供一個游標定位，自動將數據分頁
但是分頁後如果直接將數據源送給datagrid就會出現當前頁內容顯示的同時下邊的記錄也會顯示！！！也就是說datagrid顯示的數據稍多於我們想看到的內容
我畫了個圖來說明這個現象(假如我們想每頁顯示10條記錄，而31，32，33條記錄也可能顯示在datagrid上顯示出來)
首先：我們先來看看這個帶缺陷分頁的實現方法
'-------define hong------------
Dim ConStr As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim statestring As String
Dim ALL_CON As String
'page use this
Dim myCurrentPage As Integer
Dim myPageCount As Integer
初始化部分代碼
'------------------------connect-database-----------
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'--------------------connect the database--------------
ConStr = ALL_CON
'------------------change
cn.Open ConStr
cn.CursorLocation = adUseClient
DataGrid1.Refresh
Select Case cn.State
Case adStateClose
statestring = "adStateClosed"
Case adStateOpen
statestring = "adStateOpen"
End Select
If statestring = "adStateClosed" Then
MsgBox "硈钡ア毖", , statestring
Else
End If
'----------open the table------------------
rs.Open "Select * from userr", cn, adOpenKeyset, adLockReadOnly, 1
'----------------------change-----------------
Text1.Text = rs.RecordCount '總記錄數
rs.PageSize = 10 ‘每頁記錄數
myPageCount = rs.PageCount '頁數
myCurrentPage = rs.AbsolutePage '設置當前是第幾頁
Set DataGrid1.DataSource = rs 'show on the table
DataGrid1.Refresh
這樣你就會發現第一頁下面的幾條記錄也出來了
解決辦法：
解決辦法大概有這幾種
1， 把數據分頁的內容一個一個賦值給datagrid的表格，這是沒問題的可以做到
2， 將分頁的rs內容放到一個緩衝的數據表裏面然後顯示緩衝數據表（select into 很方便）
3， 將分頁的rs內容放到一個新的rs裏面然後把datagrid的數據源設成這個新的rs
這裡我們看一下第三種方法，其餘兩種類似本操作
資料庫：test2000.mdb
表：numbers
欄位：Id(自動編號)，anumber(數位)
因為DataGrid控制項我們採用直接綁定記錄集來顯示資料.所以分頁處理我們採用了間接的辦法，定義另一個記錄集objrs，將分頁後的記錄集付給objrs.然後綁定DataGrid
''效果還不錯 , 我加了詳細地注釋，像pagesize, AbsolutePage的用法可參考msdn
VB中新建工程,form中添加DataGrid控制項,按鈕cmdPrevious和cmdNext，文本框txtPage
''引用microsoft active data object 2.x object library
Option Explicit
Dim conn As ADODB.Connection
Dim lCurrentPage As Long
Private Sub cmdNext_Click()
lCurrentPage = lCurrentPage + 1
Call Loadcontrol(lCurrentPage)
End Sub
Private Sub cmdPrevious_Click()
If lCurrentPage > 1 Then
lCurrentPage = lCurrentPage - 1
Call Loadcontrol(lCurrentPage)
End If
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;"
lCurrentPage = 1
Call Loadcontrol(lCurrentPage)
End Sub
Private Sub Loadcontrol(lPage As Long)
Dim adoPrimaryRS As ADODB.Recordset
Dim lPageCount As Long
Dim nPageSize As Integer
Dim lCount As Long
''每頁顯示的紀錄
nPageSize = 10
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic
adoPrimaryRS.PageSize = nPageSize
''頁數
lPageCount = adoPrimaryRS.PageCount
If lCurrentPage > lPageCount Then
lCurrentPage = lPageCount
End If
adoPrimaryRS.AbsolutePage = lCurrentPage
''定義另一個記錄集
Dim objrs As New ADODB.Recordset
''添加欄位名稱
For lCount = 0 To adoPrimaryRS.Fields.Count - 1
objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
Next
''打開記錄集
objrs.Open
''將指定記錄數迴圈添加到objrs中
For lCount = 1 To nPageSize
objrs.AddNew
objrs!id = adoPrimaryRS!id
objrs!anumber = adoPrimaryRS!anumber
adoPrimaryRS.MoveNext
Next
''綁定
Set DataGrid1.DataSource = objrs
''在文本框顯示頁數
txtPage = lPage & "/" & adoPrimaryRS.PageCount
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not conn Is Nothing Then
conn.Close
End If
Set conn = Nothing
End Sub
‘文本框中輸入頁數，回車跳轉到指定位置
Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer)
lCurrentPage = Val(txtPage.Text)
Call Loadcontrol(lCurrentPage)
End Sub
本文參考資料：http://topic.csdn.net/t/20020612/08/796414.html