Hi..
coba peke ini deh..
Private Sub tree_build()
On Error Resume Next
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "bla..bla..", dbbph, adOpenStatic,
adLockOptimistic
For i = 1 To rs.RecordCount
TvwBinder1.Nodes.Add TvwBinder1.SelectedItem,
tvwChild, rs![Nama FIeld], rs![Nama FIeld], "child"
TvwBinder1.Nodes.Item(i).ExpandedImage =
"root"
TvwBinder1.Nodes.Item(i).Tag = SECT_TAG
' tvwbinder1.Nodes.Item(i).Key = rs![Nama
FIeld] & "spbu" & tvwbinder1.Nodes.Item(i).Index
rs.MoveNext
Next i
rs.Close
End Sub
semoga membantu
--aL--
--- Rokhmad Widhiawan <[EMAIL PROTECTED]> wrote:
> Pak Programmer-VB,
>
> Mohon bantuan,
> Adakah rekan yang punya contoh listing scriptnya
> treeview dengan
> menggunakan database seperti root-parent & child.
>
> Terimakasih
>
> Best regards,
> Rokhmad
> mailto:[EMAIL PROTECTED]
>
>
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
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/
