Posts
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.
