download gratis video tutorial vb 6 dan vb.net plus contoh aplikasi

cara membuat paging datagridview

 

Imports System.Data.OleDb

 

Public Class Pagingdatagridview

Dim scrollVal As Integer

 

Private Sub Pagingdatagridview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Me.CenterToScreen()

Call Koneksi()
da = New OleDbDataAdapter("select * from barang", Conn)
ds = New DataSet
da.Fill(ds, scrollVal, Val(TextBox1.Text), 0)
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.ReadOnly = True

cmd = New OleDbCommand("select count(*) from barang", Conn)
rd = cmd.ExecuteReader
rd.Read()
Label2.Text = Label2.Text & rd(0)
End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <= 0 Then
MsgBox("Tentukan jumlah data")
TextBox1.Focus()
Exit Sub
End If
scrollVal = scrollVal + Val(TextBox1.Text)
ds.Clear()
da.Fill(ds, scrollVal, Val(TextBox1.Text), 0)
End Sub

 

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

scrollVal = scrollVal - Val(TextBox1.Text)
If scrollVal <= 0 Then
scrollVal = 0
End If
ds.Clear()
da.Fill(ds, scrollVal, Val(TextBox1.Text), 0)

End Sub

 

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub


End Class