Cara Melakukan Paging Datagrid di VB.Net 2008

Diposting oleh T. Erick Sitorus | 02.38 | | 0 komentar »

Postingan kali ini mengenai pengaturan data yang ditampilkan berdasarkan halaman per halaman atau paging data. Konsep ini umum kita temui terutama saat menampilkan data dalam jumlah hingga ratusan atau ribuan data. Tentu tidak mungkin kita menampilkan seluruh data tersebut dalam 1 halaman sekaligus.

Solusinya dengan membagi data menjadi beberapa halaman, disini saya akan mencontohkan konsep paging data. Siapkan sebuah database bernama testing dan buat table t_Obat. Berikut penampakan tabelnya.


Buat project baru di VB.Net 2008 beri nama DGPaging dan buat sebuah form untuk menampilkan data. Form yang saya buat tampilannya seperti berikut ini:


Pada contoh diatas, ada 6 data yang ditampilkan per halaman. Berikut ini adalah kode program secara keseluruhan. Anda juga dapat mendownload source code program di akhir postingan ini.
 Imports System.Data.SqlClient  
 Public Class FormDG  
   Dim PA As SqlDataAdapter  
   Dim DS As DataSet  
   Dim scrollVal, ShowData, TotalData As Integer  
   Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click  
     Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     Dim sql As String = "SELECT * FROM t_Obat"  
     Dim koneksi As New SqlConnection(connectionString)  
     PA = New SqlDataAdapter(sql, koneksi)  
     DS = New DataSet()  
     koneksi.Open()  
     PA.Fill(DS, "Obat")  
     TotalData = DS.Tables("Obat").Rows.Count()  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
     koneksi.Close()  
     DGObat.DataSource = DS  
     LabelPage.Text = "1"  
     LabelTotal.Text = Math.Ceiling(TotalData / ShowData)  
     DGObat.DataMember = "Obat"  
     ButtonNext.Enabled = True  
     ButtonPrev.Enabled = True  
   End Sub  
   Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click  
     If Not LabelPage.Text = Math.Ceiling(TotalData / ShowData) Then  
       scrollVal = scrollVal + ShowData  
       If scrollVal > TotalData Then  
         scrollVal = Math.Floor(TotalData / ShowData) * ShowData  
       End If  
       LabelPage.Text = Val(LabelPage.Text) + 1  
     End If  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
   End Sub  
   Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click  
     scrollVal = scrollVal - ShowData  
     If scrollVal <= 0 Then  
       scrollVal = 0  
     End If  
     If Not LabelPage.Text = "1" Then LabelPage.Text = Val(LabelPage.Text) - 1  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
   End Sub  
   Private Sub FormDG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
     ShowData = 6  
     LabelPage.Text = "n"  
     LabelTotal.Text = "m"  
   End Sub  
   Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click  
     Me.Close()  
   End Sub  
 End Class  
Bila anda hendak download source code program diatas, jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda.
Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

0 komentar