How to do Paging in datagridview [Resolved]

Posted by Jitenkumar under VB.NET on 6/29/2013 | Points: 10 | Views : 13476 | Status : [Member] | Replies : 1
How to do Paging in datagridview
There are two button next previous .Up to 5 records will be displayed in datagridview then next will be displayed when next button is clicked.




Responses

Posted by: Satyapriyanayak on: 6/29/2013 [Member] [MVP] Silver | Points: 50

Up
0
Down

Resolved
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


If this post helps you mark it as answer
Thanks

Jitenkumar, if this helps please login to Mark As Answer. | Alert Moderator

Login to post response