Paging in a datagridview

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

 

Ebook Download
View all
Learn
View all