[Programmer-VB] Re: [indoprog-vb] How To paging data array ?

Suwanto Afiadi Mon, 27 Jun 2005 12:23:02 -0700

Moderator wrote:

Contoh source-code-nya ada di 
http://www30.brinkster.com/masinosinaga/download.html atau 
http://www.geocities.com/masino_sinaga/download.html nama file 
"BukuTamu.zip" dan "BukuTamu2.zip".
Silahkan dimodifikasi sesuai dengan kebutuhan Anda.


Masino Sinaga

Assalamulaikum Warahmatullah,
    Mau tanya nih Pak, kebetulan saya belum kealamat diatas, tapi saya berusaha mencobanya dengan menggunakan access untuk paging. jadi saya buat satu databases baru dengan nama array, tabel array berisi hanya satu field array yang saya isi dengan A sampai Z
Yang ingin saya tanyakan pada teman2 kenapa pada saat saya tekan tombol next hingga hal mencapai hal terakhir - 1 dengan coding sebagai berikut :
Hal = Hal + 1
   If Hal = ArrRs.PageCount Then Hal = ArrRs.PageCount - 1
   ArrRs.AbsolutePage = Hal
   tampilkan
kenapa tidak huruf W X Y Z tidak bisa ditampilkan meskipun saya tekan tombol next. jadi pada listbox hanya tertera huruf V.jika saya hilangkan -1 pada Hal = ArrRs.PageCount - 1 maka jika ditekan tombol next terus tetap aja dan muncul error karena BOF dan EOF =true, seperti pada gambar dibawah ini.

Kenapa ya ???
*Ini adalah coding selengkapnya :
Option Explicit

Dim koneksi As New ADODB.Connection
Dim ArrRs As New ADODB.Recordset
Dim Hal As Long

Private Sub Command1_Click() 'Button Prev
If Hal > 1 Then Hal = Hal - 1
    ArrRs.AbsolutePage = Hal
    tampilkan
End Sub

Private Sub Command2_Click() ' Button Next
Hal = Hal + 1
   If Hal = ArrRs.PageCount Then Hal = ArrRs.PageCount - 1
   ArrRs.AbsolutePage = Hal
   tampilkan
End Sub

Private Sub Form_Load()
   koneksiDb

Dim cmdstring As String
cmdstring = "select * from array"
   ArrRs.ActiveConnection = koneksi
   ArrRs.CursorType = adOpenStatic
   ArrRs.CursorLocation = adUseClient
   ArrRs.LockType = adLockReadOnly
   ArrRs.Open cmdstring

Dim record()
ArrRs.CacheSize = 4
ArrRs.AbsolutePage = 1
ArrRs.PageSize = 4
tampilkan


End Sub

Private Sub koneksiDb()
    koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\Array\Array.mdb;Persist Security Info=False"
    koneksi.Open
End Sub

Private Sub tampilkan()
Dim jmlrecInPage, i As Integer
    Me.Caption = " Halaman = " & ArrRs.AbsolutePage & " Dari " & ArrRs.PageCount - 1
    jmlrecInPage = ArrRs.PageSize
    If Hal * ArrRs.PageSize > ArrRs.RecordCount - ArrRs.PageSize Then
        jmlrecInPage = ArrRs.RecordCount - (Hal * ArrRs.PageSize)
    End If
    List1.Clear
    For i = 1 To jmlrecInPage
        List1.AddItem ArrRs.Fields(0)
        ArrRs.MoveNext
    Next

End Sub

Mau terusin nyari udah ngantuk, jadi mending tanya ke milis.

atas waktu dan jawabannya saya ucapkan terima kasih

Best regards,

suwanto

[Programmer-VB] Re: [indoprog-vb] How To paging data array ?

Kirim email ke