Tambahan :
Kalo datanya ga dinamis banget alias ga berubah cepat, bisa pakai array.
Type ComboArray
Kode1 as String
Kode2 as string
Kode3 as string
end type
dim strCombo() as comboarray
dim rs as new adodb.recordset
dim SQL as string
dim i as integer 'sesuaikan kebutuhan
'-Ambil data dari database, trus ambil recordset seperti biasa
sql="select Kode1,Kode2,Kode3 from Tbl" ' sesuaikan kebutuhan
rs.open sql,cnconnect
'-init array, masukin ke array
if not rs.eof then redim strCombo(rs.recordcount+1)
i=0
do until rs.eof
strcombo(i).Kode1=rs!Kode1
strcombo(i).Kode2=rs!Kode2
strcombo(i).Kode3=rs!Kode3
i=i+1
rs.movenext
loop
di form_unload, masukin erase strcombo
Kalo udah, tinggal dimasukin ke combo. Di combo_clicknya tambahin fungsi buat
ngebandingin kode. Cara ini lebih cepat, lebih menghemat bandwidth jaringan,
lebih menghemat resource kompie :-)
Best Regards,
David J M
Advanced Access
Independent Software Vendor
-----------------------------
--- On Mon 04/03, muliadi < [EMAIL PROTECTED] > wrote:
From: muliadi [mailto: [EMAIL PROTECTED]
To: [email protected]
Date: Mon, 3 Apr 2006 16:27:18 +0700
Subject: RE: [indoprog-vb] ComboBox
Pada saat Combobox 1 dipilih, baru lakukan populate data ke combobox2, dst.
Misalkan pada saat combobox1 di pilih:
Dim myParameter = combobox1.selecteditem()
Dim mySQLCombo = "SELECT namafield1, namafiel2, namafield3 FROM namatabel
WHERE namafield2 = " & myParameter
Baru kemudian lakukan populate data ke combobox2
Semoga membantu.
Regards,
Muliadi.
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of Resha
Sent: Monday, April 03, 2006 11:05 AM
Hallo Semua...
Mau nanya, Saya ingin membuat beberapa combo box yang saling berkaitan,
Misalnya Combo Box 1 berisi :
101 nama-a
102 nama-b
103 nama-c
Combo Box kedua berisi :
201 101 nama-apa-saja
202 101 nama-apa-saja
203 102 nama-apa-saja
204 102 nama-apa-saja
205 102 nama-apa-saja
Combo Box ketiga berisi :
301 201 101 nama-apa-saja
302 201 101 nama-apa-saja
303 202 101 nama-apa-saja
304 202 101 nama-apa-saja
305 202 101 nama-apa-saja
306 203 101 nama-apa-saja
Jadi saat Combo Box pertama saya pilih '101' maka pada combo box kedua hanya
terlihat 201 dan 202 saja.
Saat combo box kedua saya pilih 201 maka pada combo box ketiga hanya
terlihat 301 dan 302 saja.
oiya, tiap combo box ini mengambil data dari tiap tabel yang berbeda.
mohon bantuan dan contoh programnnya. tq
Send instant messages to your online friends http://asia.messenger.yahoo.com
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
