电子发烧友论坛
› 小组 › > 技术 > 编程论坛
/ AbsolutePage、PageCount 和 PageSize 属性应用实例(VB) ...

AbsolutePage、PageCount 和 PageSize 属性应用实例(VB)

2009-1-8 10:10:39 3047

0 AbsolutePage、PageCount 和 PageSize 属性应用实例(VB) Public Sub AbsolutePageX() Dim rstEmployees As ADODB.Recordset Dim strCnn As String Dim strMessage As String Dim intPage As Integer Dim intPageCount As Integer Dim intRecord As Integer ' Open a recordset using a client cursor ' for the employee table. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " Set rstEmployees = New ADODB.Recordset ' Use client cursor to enable AbsolutePosition property. rstEmployees.CursorLocation = adUseClient rstEmployees.Open "employee", strCnn, , , adCmdTable ' Display names and hire dates, five records ' at a time. rstEmployees.PageSize = 5 intPageCount = rstEmployees.PageCount For intPage = 1 To intPageCount rstEmployees.AbsolutePage = intPage strMessage = "" For intRecord = 1 To rstEmployees.PageSize strMessage = strMessage & _ rstEmployees!fname & " " & _ rstEmployees!lname & " " & _ rstEmployees!hire_date & vbCr rstEmployees.MoveNext If rstEmployees.EOF Then Exit For Next intRecord MsgBox strMessage Next intPage rstEmployees.Close End Sub 0
2009-1-8 10:10:39　　评论淘帖0 相关推荐 • VB与MATLAB混合编程的一个实例 5291 • Version 属性范例 (VB) 2492 • Provider 和 DefaultDatabase 属性范例 (VB) 2723 • Optimize 属性范例 (VB) 2856 • vb连接Access数据库实例 16 • VB数据库学习教程 36 • 如何访问对象属性 207 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102688 • InternetTimeout 属性范例 (VB) 2454 • Handler 属性范例 (VB) 2447 1 个讨论