----- Original Message -----
Sent: Friday, June 02, 2006 11:08
AM
Subject: Re: [Programmer-VB] tanya
array
'----------------------------------------
'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
YAHOO! GROUPS LINKS
