Re: [Programmer-VB] Menu Tree View

Thu, 05 Jan 2006 17:46:07 -0800

Maaf, Sedikit ralat :
1. database : c:\db2.mdb (bukan db1 seperti yg saya tuliskan...)
2. dalam database tersebut ada tabel dgn nama "menu" yang berisi
   satu kolum, bebas nama kolumnya


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
 

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

Yahoo! Photos
Ring in the New Year with Photo Calendars. Add photos, events, holidays, whatever.

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


YAHOO! GROUPS LINKS



Kirim email ke