Blog

Paging in a datagridview

Posted by Satyapriya Nayak Blogs | Visual Basic .NET Feb 07, 2012
In this blog we will know how to do 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

 

COMMENT USING
PREMIUM SPONSORS
MCN is your source for developing solutions involving websites, mobile apps, cloud-computing, databases, BI, back-end services and processes and client-server applications.
Employers - Post Free Jobs
SPONSORED BY
  • MCN is your source for developing solutions involving websites, mobile apps, cloud-computing, databases, BI, back-end services and processes and client-server applications.
Employers - Post Free Jobs