Re: [Programmer-VB] Menu Tree View

Thu, 05 Jan 2006 17:16:01 -0800

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
 

Yahoo! DSL Something to write home about. Just $16.99/mo. or less

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke