Paging datagridview VB Net Pagination paging Pagination adalah

Paging datagridview VB. Net

Pagination / paging Pagination adalah proses pembagian data, menampilkan dan membatasi jumlah tampilan data Data yang diperlukan antara lain total data, posisi awal data defaultnya adalah record pertama dan data yng ditampilkan

Hasil Paging

Syntax Pertama dan yang paling utama. tuliskan script berikut ini pada baris pertama Imports System. Data. Sql. Client

Deklarasi Variabel Selanjutnya, buat beberapa variabel yang akan digunakan Dim da As Sql. Data. Adapter Dim start. Record As Integer = 0 'Deklarasi record dimulai Dim ds As Data. Set Dim totalrecordperpage As Integer = 5 'Total record yang akan ditampilkan per page

Koneksi Database Kemudian buat koneksi ke database My. Sql Private Function koneksi() As My. Sql. Connection Dim c As String = "server=localhost; userid=root; database=bidar" Dim cn As New My. Sql. Connection(c) Try cn. Open() Catch ex As Exception Msg. Box(ex. Message) End Try Return cn End Function

Menampilkan data Private Sub go() Try cek() da = New Sql. Data. Adapter("select * from tabel", koneksi) ds = New Data. Set da. Fill(ds, start. Record, totalrecordperpage, "tabel") Data. Grid. View 1. Data. Source = ds. Tables(0) Catch ex As Exception Msg. Box(ex. Message) End Try End Sub

Get. Rowa. Count() Fungsi ini berguna untuk Mendapatkan jumlah record pada database Private Function Get. Rows. Count() As Integer da = New Sql. Data. Adapter("select * from coba", koneksi) ds = New Data. Set da. Fill(ds) Return ds. Tables(0). Rows. Count End Function

Cek digunakan untuk mengaktifkan dan non aktifkan button Private Sub cek() Dim endofrecord As Integer = Get. Rows. Count() / totalrecordperpage If start. Record = 0 Then btnprev. Enabled = False Else. If start. Record / totalrecordperpage = endofrecord Then btn. Next. Enabled = False Else btnprev. Enabled = True btn. Next. Enabled = True End If End Sub

Cara penggunaan Private Sub btn. Next_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles btn. Next. Click start. Record = start. Record + totalrecordperpage go() End Sub Private Sub btnprev_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles btnprev. Click start. Record = start. Record - totalrecordperpage go() End Sub

TERIMA KASIH Sumber : http: //www. labinformatika. com/Articles/105/Pagingdatagridview-VB-Net