• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• To Display pagewise values from Records in a form in Visual Basic.

To Display pagewise values from Records in a form in Visual Basic.

To Display pagewise values from Records in a form in Visual Basic.

API Declarations



Dim Con As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim Idex As Integer



Rate To Display pagewise values from Records in a form in Visual Basic.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_Load()
Set Con = New ADODB.Connection
Set Rs1 = New ADODB.Recordset
Set Rs2 = New ADODB.Recordset
Con.Open "Data Source=Hotel;", "Hotel", "Hotel"
Rs1.CursorLocation = adUseClient
Rs1.Open "Select * from Rooms", Con, adOpenDynamic, adLockBatchOptimistic, adCmdText
End Sub

'To display a set of records for the first time.

Public Sub PrintFirstPage()
Dim cmdi, i As Integer
If Rs1.EOF Then Exit Sub
Rs1.Sort = "FieldName"
Rs1.MoveFirst
Rs1.PageSize = 20  'Records per page.
VarPageCnt = Rs1.PageCount
Idex = 1
Rs1.AbsolutePage = Idex
For i = 0 To 20
       Command8(i).Caption = ""
Next i
cmdi = 0
For i = 1 To 21
    Command8(cmdi).Caption = Rs1("FieldName").Value
    cmdi = cmdi + 1
    Rs1.MoveNext
    If Rs1.EOF Then Exit For
Next i
End Sub

'Prints next Page.
Public Sub PrintNextPage()
Dim cmdi, i As Integer
If Rs1.EOF Then Exit Sub
Idex = Idex + 1
Rs1.AbsolutePage = Idex
For i = 0 To 20
Command8(i).Caption = ""
Next i
cmdi = 0
For i = 1 To 21
    Command8(cmdi).Caption = Rs1("FieldName").Value
    cmdi = cmdi + 1
    Rs1.MoveNext
    If Rs1.EOF Then Exit For
Next i
If Idex = Rs1.PageCount Then
   Command9.Enabled = False
End If
Command11.Enabled = True
End Sub

'Prints Previous Page.
Public Sub PrintPreviousPage()
Dim cmdi, i As Integer
Idex = Idex - 1
Rs1.AbsolutePage = Idex
For i = 0 To 20
Command8(i).Caption = ""
Next i
cmdi = 0
For i = 1 To 21
    Command8(cmdi).Caption = Rs1("FieldName").Value
    cmdi = cmdi + 1
    Rs1.MoveNext
Next i
If Idex = 1 Then
   Command11.Enabled = False
End If
Command9.Enabled = True
End Sub