----- Original Message -----
Sent: Thursday, June 01, 2006 1:36
PM
Subject: Re: [Programmer-VB] tanya
array
strsql = "select * from
jual"
rs.Open strsql, DB, adOpenStatic,
adLockOptimistic
rs.MoveFirst
redim
data(3,0)
Do While Not
rs.EOF
'menyiman
data ke array ajual
i
= ubound(data,2) + 1
redim preserve data(3, i)
data(0,i) = trim(rs("No"))
data(1,i) = trim(rs("Kode"))
data(2,i) = trim(rs("Beli"))
data(3,i) = trim(rs("Jual"))
rs.MoveNext
Loop
rs.Close
Semoga membantu
Regards,
Yulianto
My Dream & KwetChiro
Training Center & Software Developer
"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
rs.MoveNext
Loop
rs.Close
Terima kasih atas
bantuannya
Sincerely yours,
Nyoman
Gunartha
Yahoo! Messenger with Voice. Make
PC-to-Phone Calls to the US (and 30+ countries) for 2ยข/min or less.
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