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
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/
