Recordset資料表分頁 - 小瓜瓜 首頁
●用ADO去讀取很大的資料庫時，若沒有用SQL語法去做篩選時，所得到的資料表會拖慢執行的效能，ADO的執行效能還算不錯，但最花時間的則是由ADO的Recordset裡把資料提出來作顯示的動作，解決方法就是不要一次就列出所有的資料，以每一次只顯示個幾筆的方式來減少顯示大批資料所浪費的時間。
●在這裡，將會學到如何用程式碼把一個資料表分成好幾頁來顯示：
 ●這是這一次的主角！ |
(一般)
Dim MyDBS As New ADODB.Connection '在這裡宣告是讓ADODB.Connection可跨過不同的Sub與Function
Dim MyRec As New ADODB.Recordset
Private Sub Form_Load()
- MyDBS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database\db01.mdb"
- MyRec.PageSize = 15
- '設定每一頁有15筆
- MyRec.CursorType = adOpenStatic
- MyRec.Open "星座表", MyDBS
- MyPage = 1
-
For I = 1 To MyRec.PageCount
- List2.AddItem I
- '算出有幾頁，並列到List2里
Next
- MyRec.Move (MyRec.RecordCount - 1) - ((1 - 1) * MyRec.PageSize)
- '假設資料有88筆而每頁15筆資料，若倒著回去算的話
- '第一頁的第一筆資料也就等於第88筆資料
- '而第一頁的第二筆一料就等於第87筆資料
- '依此類推，第二頁的第一筆一料就是第 88 - 15筆資料
- '依此類推，第三頁的第一筆一料就是第 88 - (15 * 2)筆資料
-
For I = 1 To 15
- List1.AddItem MyRec.Fields(0) & Chr(9) & MyRec.Fields(1)
- MyRec.MovePrevious
- If MyRec.BOF Then Exit For
Next End Sub
Private Sub List2_Click()
- List1.Clear
- MyRec.AbsolutePosition = (MyRec.RecordCount - 1) - ((CInt(List2.Text) - 1) * MyRec.PageSize) + 1
-
For I = 1 To 15
- List1.AddItem MyRec.Fields(0) & Chr(9) & MyRec.Fields(1)
- MyRec.MovePrevious
- If MyRec.BOF Then Exit For
Next End Sub |
 ●倒著載入資料庫，每一頁就只有15筆。 |
 ●想看第五頁？我們就直接點5吧！ |
●要把他它移植到ASP前，先來練練簡單的分頁技巧：
<html>
-
<body>
-
<%
- TotalPage=15
- MyPage = Request("page")
- If MyPage = "" Then MyPage = 1
- Response.Write "現在是在第" & MyPage & "頁上<hr>"
-
For I = 1 To TotalPage
- Response.Write "<a href=""page.asp?Page=" & I & """>" & "第" & I & "頁</a> "
- '在字串裡，兩個 " 代表他是一個 " 文字。
Next %> </body> </html> |
 ●按按頁數，看看分頁的基本功能是否能正常運作。 |
●成功了之後，移植到ASP裡：
<html>
-
<<body>
-
<%
- Set MyDBS = CreateObject("ADODB.Connection")
- Set MyRec = CreateObject("ADODB.RecordSet")
- MyDBS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database\db01.mdb"
- MyRec.PageSize = 15
- MyRec.CursorType = 1
- '注意囉！這裡絕對是 1
- '因為ASP Server看不懂沒有定義的常數
- '有些書上這裡會用常數代替，以致很多網友怎麼試都失敗
- '除非你有先做定義常數：Const adOpenKeyset = 1 除外
- MyRec.Open "星座表", MyDBS
- MyPage = Request("page")
- If MyPage = "" Then MyPage = 1
- TotalPage = MyRec.PageCount
- Response.Write "現在是在第" & MyPage & "頁上<hr>"
-
For I = 1 To TotalPage
- Response.Write "<a href=""page.asp?Page=" & I & """>" & "第" & I & "頁</a> "
Next
- MyRec.Move (MyRec.RecordCount - 1) - ((MyPage - 1) * MyRec.PageSize)
- Response.Write "<Table width=100% border=1>"
- Response.Write "<tr><td>" & MyRec.Fields(0).Name & "</td>"
- Response.Write "<td>" & MyRec.Fields(1).Name & "</td>"
- Response.Write "<td>" & MyRec.Fields(2).Name & "</td>"
- Response.Write "<td>" & MyRec.Fields(3).Name & "</td>"
- Response.Write "<td>" & MyRec.Fields(4).Name & "</td></tr>"
-
For I = 1 To 15
- Response.Write "<tr><td>" & MyRec.Fields(0) & "</td>"
- Response.Write "<td>" & MyRec.Fields(1) & "</td>"
- Response.Write "<td>" & MyRec.Fields(2) & "</td>"
- Response.Write "<td>" & MyRec.Fields(3) & "</td>"
- Response.Write "<td>" & MyRec.Fields(4) & "</td></tr>"
- MyRec.MovePrevious
- If MyRec.BOF Then Exit For
Next
- Response.Write "</Table>"
%> </body> </html> |
 |
●在程式的開發過程中，資料表的欄位都有機會被增增減減，使用Recordset.Fields(欄位編號)的寫法並不妥，建議使用Recordset.Fields("欄位名稱")的寫法，如MsgBox RS.Fields("客戶名稱")
|
