Re: [Programmer-VB] tanya array

Thu, 01 Jun 2006 19:08:29 -0700

 '----------------------------------------
 'menyinpan recordset ke array 2 dimensi
 '(C)XBasicPro 2006
 '----------------------------------------
 
 'menyimpan recordset ke dalam array dapat dilakukan dengan
 'membuat array 2 dimensi
 'dimensi 1 misal kita anggap sebagai jlh field,
 'sedangkan dimensi ke 2 dianggap sebagai jlh recordeset
 'lihat contoh di bawah ini:
 
 'Buat array 2 dimensi
  For i = 1 To 4
    For j = 1 To 10
      'masukkan data
      mydata(i, j) = j
    Next j
  Next i
 
'-------------------------------------
'ini adalah kode terapannya ke recordset
'
    strsql = "select * from jual"
    rs.Open strsql, DB, adOpenStatic, adLockOptimistic
    
        Dim mydata(0 To rs.Field.count-1, 0 To rs.recordcount-1)
        rs.MoveFirst
        Do While Not rs.EOF
            'menyiman data ke array ajual
            iRec = iRec + 1
                        for iFd = 0 to rs.field.count -1
                             mydata(iRec - 1,iFd) = rs.field(iFd)
                        next iFd   
            rs.MoveNext
        Loop
        rs.Close

      
 'keterangan:
 'iFd = counter untuk field
 'iRec = counter utk record
 'penghitungan mulai dari nol disesuaikan dengan sifat recordet
 'yang melakukan perhitungan mulai dari nol

"gunartha.nyoman" <[EMAIL PROTECTED]> wrote:
hii selamat siang..
 
saya lagi bejajar array, tapi masih bingung nich...
saya mau menyimpan data dari field tabel gimana ya caranya.
contoh datanya begini,
 
tabel : jual
no kode   beli   jual
1    01    100    150
2    02    500    550
3    03    600    750
.    .
.    .
.    .
 
saya bikin array aJual misalnya
saya coba coding tapi belum bisa, tolong sempurnakannya
 
    strsql = "select * from jual"
    rs.Open strsql, DB, adOpenStatic, adLockOptimistic
    
        rs.MoveFirst
        Do While Not rs.EOF
            'menyiman data ke array ajual
          for iFd = 0 to rs  
                    
            rs.MoveNext
        Loop
        rs.Close
Terima kasih atas bantuannya
 
Sincerely yours,
Nyoman Gunartha



----------------------------------------------------------------------------------------------------------------------------
* Kurus Visual Basic  -  XBasicPro Jl. Denai No. 92 Medan - http://x-basicpro.cjb.net *

Send instant messages to your online friends http://uk.messenger.yahoo.com

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke