كيف يمكن تحميل بيانات جدول فى اداة TreeView

وعليكم السلام ،،

بعد أن تقرا البيانات ضع البيانات التي تريد إظهارها في الـ treeview في متغيرات وليكن هنا مثلا المتغير mid

ثم جرب الكود التالي ،،

("الجذر الرئيسي")Tree.Nodes.Add

Do until dr.Read=false

( " mid=dr("name

( Tree.Nodes(0).Nodes.Add(mid

loop

يا سلام لو تدونا مثال ويكون بقاعدة بيانات أو xml ,

تبقي عظمه علي عظمه ,

ممكن ولا ...؟

وجزاك الله خيرا يا أخ أبو البراء 2 ,

كلنا في انتظار المثال نرجو التعاون

ولكم جزيل الشكر

أتمنى أخي ان يكون هذا المثال كافي..

dbtreefill_src.rar

السلام على من اتبع الهدى

اخي العزيز طارق السمان بارك الله فيك ولكن نحتاج المثال على

رلازىثف 2003

ولك جزيل الشكر والاحترم

السلام على من اتبع الهدى

اخي العزيز طارق السمان بارك الله فيك ولكن نحتاج المثال على

vb.net 2003

ولك جزيل الشكر والاحترم

هذا مثال أخر للVS2003

treeview_control.zip

السلام عليكم ورحمة الله وبركاته

الف شكر معليه تعبناك معانا الله يكرمك

بعد الاطلع على عمل البرنامج احتاج الى سرد بعض الاسئلة ان امكن

1- احتاج الى انشاء زر اضافة Folder أو Child في الشجرة ويتم الحفظ في قاعدة البيانات DB

2- انشاء زر تعديل اسم ال أو Child في الشجرة ويتم التعديل في قاعدة البيانات DB

3 امكانية استدعاء (فتح ) النماذج (Forms) عند نقر Folder أو Child

4- الحذف على مستوى الشجرة والحذف من قاعدة البيانات

5-التعمل مع صلاحيات الشجرة (هذا السؤال مشواره طويل هل تريد ان اكمل طرح جميع الجوانب الموجودة فيه ام لا )

لك جزيل الشكر مرة اخرى وارجوا منك التعاون والمساعدة

السلام عليكم

جزاك الله خيراً يا أخ طارق

هذه المرة الثانية التي استفيد من مشاركاتك :)

أحببت تطوير الكود قليلاً لكي يكون أكثر مرونة .

بحيث يقبل أي استعلام

Public Module DBTree

	Private nodesCount As Integer, nodesID() As Integer, nodesParentID() As Integer, nodesText() As String

	Public Sub FillTree(ByVal tree As TreeView, _
						ByVal strCon As String, _
						ByVal strSQL As String, _
						ByVal strFieldID As String, _
						ByVal strParentID As String, _
						ByVal strTextField As String)

		Dim cnn As New System.Data.OleDb.OleDbConnection(strCon)
		cnn.Open()

		Dim drTree As System.Data.OleDb.OleDbDataReader = New System.Data.OleDb.OleDbCommand(strSQL, cnn).ExecuteReader
		Do While drTree.Read
			ReDim Preserve nodesID(nodesCount) : nodesID(nodesCount) = CInt(drTree(strFieldID))
			ReDim Preserve nodesParentID(nodesCount) : nodesParentID(nodesCount) = CInt(drTree(strParentID))
			ReDim Preserve nodesText(nodesCount) : nodesText(nodesCount) = CStr(drTree(strTextField))
			nodesCount += 1
		Loop
		drTree.Close()

		cnn.Close()

		tree.BeginUpdate()
		RecurTree(tree, Nothing, 0)
		tree.EndUpdate()
		tree.ExpandAll()
	End Sub

	Private Sub RecurTree(ByVal tree As System.Windows.Forms.TreeView, ByVal parentNode As System.Windows.Forms.TreeNode, ByVal parentID As Integer)
		For i As Integer = 0 To nodesCount - 1
			If nodesParentID(i) = parentID Then
				Dim tmpNode As New TreeNode(nodesText(i))
				RecurTree(tree, tmpNode, nodesID(i))
				If parentNode Is Nothing Then
					tree.Nodes.Add(tmpNode)
				Else
					parentNode.Nodes.Add(tmpNode)
				End If
			End If
		Next
	End Sub

End Module

عند استدعاء الدالة نقوم بتمرير المتغيرات اللازمة كالتالي :

		FillTree(TreeView, _
				 strConnection, _
				 "SELECT ACode_ID, ACode_AccountCode, ACode_AccountName, ACode_MasterID FROM AccountCode", _
				 "ACode_ID", _
				 "ACode_MasterID", _
				 "ACode_AccountName")