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