wah udah ketemu.
ternyata bukan pada event "change" tapi "click"
beda dengan klo di .NET
"mang klo perut gi lapar tuh susah berpikir cemerlang, klo udah kenyang wuz wuz"
thanks pak andry
thanks pak andry
On 12/6/05, Andry Hilman <[EMAIL PROTECTED]> wrote:
untuk vb 6 saya kurang tau persis yg codingnya, tapi
kalau lihat dari logikanya kelihatanya sih bener.
di vb6 ada ngak event di combo box nya "selected index
changed"
kalau ada coba Call ganti labelnya di taro di event
itu.
kalau masih belum bisa juga mungkin coding di "ganti
label" yg harus di perbaikin.
Sub Ganti_Label()
> Dim strSQLjenis As String
> Set rsMJenisBarang1 = New ADODB.Recordset
> strSQLjenis = "select * from MJenisBarang where
> Jns_Kode = '" & Trim(
> ComboKodeJenis.Text) & "' "
> rsMJenisBarang1.Open strSQLjenis, Con_DB
> With rsMJenisBarang1
> Text1.Text = Trim(!jns_nama)
"coba diganti dg"
text1.text = rsmjenisbarang1("jns_nama")
"atau kalau mau debug lihat tampilannya ke
msgbox dulu
siapa tau hasil selectnya malah tidak ada
hasilnya"
kalau recorset ada fasilitas find ngak,
kalau ada malah lebih baik pakai find dari recordset.
misal rsmjenisbarang1.sort = "jns_kode"
rsmjenisbarang1.find = combokodejenis.text
if found
text1.text = rsmjenisbarang1("jns_nama")
end
> End With
> End Sub
mudah2an bisa membantu
--- PALUARED <[EMAIL PROTECTED]> wrote:
> mo tanya nich.
> gw pengen menampilkan "janis_barang" berdasarkan
> "kode_barang" yang di pilih
> pada combobox...
>
> untuk menampilkan "kode_barang" pada combobox udah
> udah solve
> tapi setiap di pilih "Jnies_barang" belum muncul
>
> code:
>
>
> Sub Ganti_Label()
> Dim strSQLjenis As String
> Set rsMJenisBarang1 = New ADODB.Recordset
> strSQLjenis = "select * from MJenisBarang where
> Jns_Kode = '" & Trim(
> ComboKodeJenis.Text) & "' "
> rsMJenisBarang1.Open strSQLjenis, Con_DB
> With rsMJenisBarang1
> Text1.Text = Trim(!jns_nama)
> End With
> End Sub
>
> Sub Isi_ComboJenis()
> Dim strSQLjenis As String
> Set rsMJenisBarang = New ADODB.Recordset
> strSQLjenis = "select * from MJenisBarang"
> rsMJenisBarang.Open strSQLjenis, Con_DB
> With rsMJenisBarang
> .MoveFirst
> While Not .EOF
> ComboKodeJenis.AddItem
> rsMJenisBarang("Jns_kode")
> .MoveNext
> Wend
>
> End With
> End Sub
>
> Private Sub Form_load()
> Call isi_comboJenis
> End Sub
>
> Private Sub ComboKodeJenis_Change()
> Call Ganti_Label
> End Sub
>
> kira2 masih kurang dimana nya ya...
>
> TIA
>
> --
> Regards,
>
__________________________________________
Yahoo! DSL – Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/I258zB/QnQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-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/
--
Regards,
PALUARED
http://paluared.coconia.net/
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-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.
