Halo mas jenar,
coba deh mas jenar ke groups-nya millist Programmer-VB
difolder file, aku udah share contoh program kecil
buat menu di treeview pake database
Best regard,
riyan
--- Jenar Suseno <[EMAIL PROTECTED]> wrote:
> Aya punya Tabel yang berisi kode binatang untuk
> bahan
> pendidikan ke anak TK, seperti ini :
>
> Kode Uraian
>
-----------------------------------------------------
> A Unggas
> A1 Ayam
> A11 Kampung
> A12 Hutan
> A2 Burung
> A21 Perkutut
> A22 Merpati
>
-----------------------------------------------------
>
> Untuk memudahkan dalam penampilan di treeview,
> bagaimana seharusnya kode harus ditulis ? Apa harus
> di
> beri pemisah titik (.)?
>
> Kl ada contoh sederhana boleh dong di share...
>
>
> Makasih,
>
> --- Yandri Hidaya <[EMAIL PROTECTED]> wrote:
>
> > Berikut solusi yang dapat dipergunakan :
> > 1. project > references > Microsoft ActiveX Data
> > Objects 2.7 Library
> > (2.1 atau 2.5 atau 2.6 juga bisa)
> > 2. tambahkan Treeview ke Form
> > 3. tambahkan command button ke form dan beri
> nama
> > "Refesh menu"
> > 4. salin coding berikut semuanya ...
> > 5. semoga berhasil...
> > 6. disini saya mengunakan Access dgn nama db1
> yang
> > saya simpan di C:\
> > (C:\db1.mdb), untuk media lain bisa diganti
> > sesuai dengan selera / kebutuhan
> >
> > '======awal coding========================
> > Option Explicit
> > Dim con As New ADODB.Connection
> > Dim rs As New ADODB.Recordset
> >
> > Function CreateMenu()
> > Dim i, k
> >
> > TreeView1.Nodes.Clear
> >
> > Set rs = Nothing
> > rs.Open "select * from menu", con
> >
> > For i = 1 To rs.RecordCount
> > k = "menu" & i
> > TreeView1.Nodes.Add , , k, rs(0)
> > rs.MoveNext
> > Next i
> >
> > End Function
> >
> >
> > Private Sub Command2_Click()
> > ' lakukan refresh menu
> > CreateMenu
> > End Sub
> >
> > Private Sub Form_Load()
> >
> > con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
> > Source=C:\db2.mdb"
> > con.CursorLocation = adUseClient
> > CreateMenu
> >
> >
> > End Sub
> > '======akhir coding========================
> >
> >
> > skdmdn <[EMAIL PROTECTED]> wrote:
>
> > Teman2 VB Mania,
> >
> > Saya pengen membuat menu dengan menggunakan
> > control Treeview, dan item2 pada menu tsb
> berasal
> > dari tabel.
> > Tolong dibantu ya...
> > Thank's B4
> >
> >
> >
> > 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! DSL Something to write home about. Just
> > $16.99/mo. or less
>
>
>
>
> __________________________________________
> Yahoo! DSL Something to write home about.
> Just $16.99/mo. or less.
> dsl.yahoo.com
>
>
__________________________________________
Yahoo! DSL Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com
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/
