Sub LoadCombo()
'Open Connection sebelumnya...
...
Sqlstm = "select NamaCustomer,AlamatCustomer from Customer order
by NamaCustomer"
//set rs = Openrs(sqlstm)
rs.open Sqlstm, conn
if typename(rs) = "Nothing" then goto errmsg
While not rs.eof
Combo1.Clear
Combo1.AddItem trim(rs("NamaCustomer")) & space(5) & trim(rs
("AlamatCustomer"))
rs.movenext
wend
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
exit sub
ErrMsg:
Msgbox "Load Data Combo Error", vbcritical, "Combo Error"
End Sub
Regards,
Yulianto
0812-806-3138
[EMAIL PROTECTED]
--- In [email protected], Asral Sukma <[EMAIL PROTECTED]>
wrote:
>
> coba bantu ya..
>
> combo1=rs!a & rs!b
>
> lakukan setelah query
>
> ok
>
> --aL--
>
> jeffrey_ananta <[EMAIL PROTECTED]> wrote:
> saya lagi ada problem dengan combo box ni...
> dalam 1 combo box bisa gak nampilin 2 field?
> misalnya:
> dalam combo box NamaCustomer ada dua data..
> yang pertama nama customer, disebelahnya alamat customer
> kalo di access bisa..dan kantor saya mau yang kayak gitu..
>
> kalo dengan access bisa langsung dengan query:
> select NamaCustomer,AlamatCutomer from Customer order by
NamaCustomer
> di combo box access dia langsung nongol
>
> jeffrey Kebon Jeruk
> Didin Kemayoran
>
> ada saran? atau ada cara mengakalinya?
> saya pake vb6 dan database access
>
> thanks atas jawabannya
> jeffrey
>
>
>
>
>
> 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.
>
>
> ---------------------------------
>
>
>
>
>
>
> ---------------------------------
> Yahoo! Shopping
> Find Great Deals on Holiday Gifts at Yahoo! Shopping
>
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/
