Membuat Halaman Database VB 6

Membuat halaman database sangat dibutuhkan dalam pengolaan database yang cukup besar. Apabila kita menemukan suatu project demikian apa yang bisa lakukan?. Bagi anda yang mengetahui atau sudah mahir dalam programing VB 6 tentu saja sudah mengetahui solusinya. Berikut saya sharing atau berikan suatu "Tips Membuat Halaman Database atau Page Paging" dengan menggunakan database "Microsoft Access".

Option Explicit
Dim mykoneksi As Connection
Dim WithEvents tb_1 As Recordset
Dim WithEvents tb_2 As Recordset
Dim record As Integer
Dim field As Integer
Dim page As Integer
Dim jumlah_per_halaman As Integer
Dim eop As Integer
Dim j As Integer
Private Sub cbopage_Click()
Dim i As Integer
Dim tempBottom As Integer
Dim tempTop As Integer
  If cbopage.Text > 1 And _
     cbopage.Text < tb_1.PageCount Then cmdprev.Enabled = True: cmdnext.Enabled = True
  If cbopage.Text = tb_1.PageCount Then cmdprev.Enabled = True: cmdnext.Enabled = False
  If cbopage.Text <= 1 Then cmdprev.Enabled = False: cmdnext.Enabled = True
  If cbopage.ListCount = 1 Then cmdprev.Enabled = False: cmdnext.Enabled = False

  If cbopage.Text = "1" Then
    j = 0
    tb_1.MoveFirst
    For i = 1 To jumlah_per_halaman
      j = j + 1
      tb_1.MoveNext
      If tb_1.EOF Then Exit For
    Next i
  Else
    j = 0
    tb_1.MoveFirst
    eop = cbopage.Text * jumlah_per_halaman
    tb_1.Move eop - jumlah_per_halaman
    For i = 1 To jumlah_per_halaman
      j = j + 1
      tb_1.MoveNext
      If tb_1.EOF Then Exit For
    Next i
  End If
  tempBottom = (cbopage * jumlah_per_halaman) - (jumlah_per_halaman - 1)
  tempTop = ((cbopage * jumlah_per_halaman) - (jumlah_per_halaman - 1)) + (j - 1)
  Set tb_2 = New Recordset
  tb_2.Open "SELECT * FROM table1 WHERE no_urut>=" _
                 & tempBottom & " AND no_urut<=" & tempTop & "", _
                 mykoneksi, adOpenDynamic, adLockOptimistic
  Set DataGrid1.DataSource = tb_2.DataSource
  record = tb_2.RecordCount
  field = tb_2.Fields.Count
  DoEvents
End Sub
Private Sub cbo_perpage_Click()
Dim i As Integer
  jumlah_per_halaman = cbo_perpage.Text
  tb_1.PageSize = jumlah_per_halaman
  page = tb_1.PageCount
  cbopage.Clear
  For i = 1 To page
     cbopage.AddItem i
  Next i
  cbopage.Text = cbopage.List(0)
End Sub
Private Sub cmdCLOSE_Click()
Unload Me
End Sub
Private Sub cmdnext_Click()
  cbopage.Text = cbopage.Text + 1
  If cbopage.Text > 1 Then cmdprev.Enabled = True
  If cbopage.Text >= tb_1.PageCount Then cmdnext.Enabled = False: cmdprev.SetFocus
End Sub
Private Sub cmdprev_Click()
  cbopage.Text = cbopage.Text - 1
  If cbopage.Text > 1 Then cmdprev.Enabled = True: cmdprev.SetFocus
  If cbopage.Text <= 1 Then cmdprev.Enabled = False: cmdnext.Enabled = True
End Sub
Private Sub Form_Load()
Dim i As Integer
  Set mykoneksi = New Connection
  mykoneksi.CursorLocation = adUseClient
  mykoneksi.Open "PROVIDER=MSDataShape;Data PROVIDER=" & _
          "Microsoft.Jet.OLEDB.4.0;Data Source=" _
          & App.Path & "\db1.mdb;"
 
  Set tb_1 = New Recordset
  tb_1.Open "SELECT * FROM table1", mykoneksi
 
  For i = 10 To 35 Step 10
     cbo_perpage.AddItem i
  Next i
  cbo_perpage.Text = cbo_perpage.List(0)
  jumlah_per_halaman = cbo_perpage.List(0)
  tb_1.PageSize = jumlah_per_halaman
  page = tb_1.PageCount
  cmdprev.Enabled = False
  cmdnext.Enabled = True
  Exit Sub
Pesan:
  MsgBox Err.Number & " - " & Err.Description
  End
End Sub

Contoh Kode membuat halaman vb 6 diatas masih sederhana dan bisa dikembangkan sesuai kebutuhan kita.  NB : "mungkin ada rekan-rekan yang ahli mohon di share... Terima kasih".

Download Source disini.