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:
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
Posting Komentar