سئوال راجع به Treeview

[kama2222]

با سلام خدمت مهندسان محترم و گرامی.
بارها و بارها در این فروم در مورد ارتباط treeview با database سئوال شده ولی هیچگاه جواب محکم و قطعی و یا سورسی ساده قابل استفاده برای عموم بازدیدکنندگان چه آماتور و چه حرفه ای قرارداده نشده لذا خواهش می کنم بدون استفاده از کامپونت خاصی سورسی کاربردی یا توضیحی بدون بهم ریختن سورس ها و توضیحات در این تاپیک قرار دهید.

با نهایت تشکر

[mpmsoft]

این کد رو از یکی از پروژه هام کپی کردم


Public Sub BindTreeview(AgCode As Long)
On Error Resume Next
Dim Rs As New ADODB.Recordset


TV.Nodes.Add , , "Fich", "ÝíÔåÇí ÇÑÓÇáí"
If Rs.State = 1 Then Rs.Close
If AgCode >= 5000 And AgCode <= 6000 Then
Rs.Open "SELECT Distinct(datego) FROM TblFichPars WHERE AgenceCode=" & AgCode & " ORDER BY datego", Conn, adOpenStatic, adLockOptimistic
Else
Rs.Open "SELECT Distinct(datego) FROM TblFich WHERE AgenceCode=" & AgCode & " ORDER BY datego", Conn, adOpenStatic, adLockOptimistic
End If

If Rs.RecordCount > 0 Then
Rs.MoveFirst
Do While Not Rs.EOF
TV.Nodes.Add "Fich", tvwChild, "FI" & Rs.AbsolutePosition, Rs(0)
Rs.MoveNext
Loop
End If


TV.Nodes.Add , , "FichBack", "ÝíÔåÇí ÈÇíÇäí"
If Rs.State = 1 Then Rs.Close
If AgCode >= 5000 And AgCode <= 6000 Then
Rs.Open "SELECT Distinct(datego) FROM TblFichBackupPars WHERE AgenceCode=" & AgCode & " ORDER BY datego", Conn, adOpenStatic, adLockOptimistic
Else
Rs.Open "SELECT Distinct(datego) FROM TblFich WHERE AgenceCode=" & AgCode & " ORDER BY datego", Conn, adOpenStatic, adLockOptimistic
End If

If Rs.RecordCount > 0 Then
Rs.MoveFirst
Do While Not Rs.EOF
TV.Nodes.Add "FichBack", tvwChild, "FB" & Rs.AbsolutePosition, Rs(0)
Rs.MoveNext
Loop
End If
Me.Caption = "ÑæäÏ ÇÑÓÇá ÝíÔåÇí ˜Ï " & AgCode
Me.Tag = AgCode
Rs.Close

End Sub

[kama2222]

خواهش می کنم یک sample کوچک قرار دهید نه کد.به همراه بانک آن.
با تشکر

[mpmsoft]

ای بابا دوست عزیز دیگه بیشتر از این والا وقت نیست که بخوام یک کد براتون اختصاصی بنویسم

شما یکم خودت خلاقیت بخرج بده.کاری نداره که

اصلا خدایی کدو نگاه انداختی ؟

ساختن بانک و وصل کردن به تیبلو که دیگه بلدی نیاز نیست این کارارو برات انجام بدم چون فقط وقت سوزونه

اصل مطلب نحوه اضافه کردن Node به TreeView هست که تو نمونه کد بالا موجوده



TV.Nodes.Add , , "Fich", "سلام"
TV.Nodes.Add "Fich", tvwChild, "FB1","حالت خوبه"
TV.Nodes.Add "Fich", tvwChild, "FB2","چطوری"

[m_vb1386]

اين رو ببينيداموزش خوبيه