In this blog we will know how to do paging in a
datagridview.
Imports System.Data
Imports System.Data.OleDb
Public Class
Form1
Dim ConnectionString As String =
System.Configuration.ConfigurationSettings.AppSettings("dsn")
Dim con As OleDbConnection = New
OleDbConnection(ConnectionString)
Dim com As OleDbCommand
Dim oledbda As OleDbDataAdapter
Dim ds As
DataSet
Dim str As String
Dim i As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Try
con.Open()
str = "select * from
employee"
com = New
OleDbCommand(str, con)
oledbda = New
OleDbDataAdapter(com)
ds = New DataSet
oledbda.Fill(ds, i, 5, "employee")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "employee"
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btn_Next_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_Next.Click
i = i + 5
If i > 23 Then
i = 18
End If
ds.Clear()
oledbda.Fill(ds, i, 5, "employee")
End Sub
Private Sub btn_Previous_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_Previous.Click
i = i - 5
If i <= 0 Then
i = 0
End If
ds.Clear()
oledbda.Fill(ds, i, 5, "employee")
End Sub
End Class
Thanks for reading