tree view & database

[morika]

سلام
این بار چندمی هست که این سوال رو می پرسم اما هنوز به جوابش نرسیدم

می خواستم بدونم چه جوری میشه یک tree view رو با یک database پر کرد

و یه سوال دیگه :

چه جوری میشه از محتوای یک tree view پرینت گرفت
ممنون

[Hadiir.net]

چرا کسی جواب این بنده خدا رو نمیده
منم همین مشکل و دارم

[rooshan2008]

سلام

می خواستم بدونم چه جوری میشه یک tree view رو با یک database پر کرد

ممنون
دوست عزیز میشه یکم بیشتر وشفاف تر بگی که با ه اطلاعاتی از بانک می خوای پرش کنی یه مثال بزن.

[reza1944]

me.TreeView1.DataBindings

بقیه رو خودت برو دنبالش

[wonder_man]

salam bar hamayeh aghayon agha manaM ye soal dashtam mikhastam bedonam ke chetor mishe ctrl tree view ra be database rabt bedam yani:
mikhastam flochart sazmani ra ba ctrl tree view namayesh bedam be din sorat ke etelate marboteh dar database az ghab va dar formi sabt shode va mikhaham dar gozareshgiri vaghshakhs ba roye etelat mored nazar click kar etelate an ra dar ctrl tree view namayesh dahad

[rooshan2008]

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

توضیح بدم :
بر طبق این عکس فرمتون رو طراحی کنید:
25977


این برنامه با بانک اطلاعاتی northwind اسکیوال سرور کار می کنه یه جدول داخلش درست میکنه به نام Roshan_tree باچند تا فیلد ...

ابن کد رو فرمتون قرار بدید:


Dim Con As New SqlClient.SqlConnection
Dim Command1 As New SqlClient.SqlCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Command1.Connection = New SqlClient.SqlConnection("Data Source=(local);Initial Catalog=Northwind;User ID=sa")
Command1.Connection.Open()
Try
Command1.CommandText = "Create Table Roshan_tree([ID] bigint IDENTITY (1, 1) NOT NULL, Root varchar(500) not null,Name varchar(50) not null,N int)"
Command1.ExecuteNonQuery()
Catch ex As Exception
End Try
TreeView1.ImageList = ImageList1
LoadintTree()
TreeView1.FullRowSelect = True
TreeView1.HideSelection = False
End Sub
Private Sub LoadintTree()
Dim Dt As New DataTable
Dim DA As New SqlClient.SqlDataAdapter
Command1.CommandText = "select * from Roshan_tree"
DA.SelectCommand = Command1
DA.Fill(Dt)
For i = 0 To Dt.Rows.Count - 1
Dim obj = TreeView1.Nodes.Find(Dt.Rows(i)("Root"), True)
If obj.Length > 0 Then
Dim Obj_Result = obj(0)
Obj_Result = Obj_Result.Nodes.Add(Dt.Rows(i)("Root") + "\" + Dt.Rows(i)("Name"), Dt.Rows(i)("Name"))
Obj_Result.Tag = Dt.Rows(i)("N")
Obj_Result.ImageIndex = Dt.Rows(i)("N")
Obj_Result.SelectedImageIndex = Dt.Rows(i)("N")
Else
TreeView1.Nodes.Add(Dt.Rows(i)("Root"), Dt.Rows(i)("Name"))
End If
Next
End Sub
Private Function SaveChange(ByVal Path As String, ByVal Name As String, ByVal n As Integer) As Boolean
Try
Command1.CommandText = "Insert into Roshan_tree(Root,Name,n) values('" + Path + "','" + Name + "'," & n & ")"
Command1.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TreeView1.Nodes.Count = 0 Then
TreeView1.Nodes.Add(TextBox1.Text, TextBox1.Text, 0).Tag = "Root"
SaveChange(TextBox1.Text, TextBox1.Text, 0)
ElseIf Not IsNothing(TreeView1.SelectedNode) Then
Dim FullPath As String = TreeView1.SelectedNode.FullPath
Dim N As Integer = IIf(RadioButton1.Checked, 1, 0)
If SaveChange(FullPath, TextBox1.Text, N) Then
TreeView1.SelectedNode.Nodes.Add(FullPath + "\" + TextBox1.Text, TextBox1.Text, IIf(RadioButton1.Checked, 0, 1)).Tag = IIf(RadioButton1.Checked, 0, 1)
End If
End If
TextBox1.Text = ""
TextBox1.Select()
End Sub

این فکر کنم کارتون رو راه بندازه مخصوصاً چارت سازمانی یا هر کاری دیگه .
البته Connectionstring اشتباه بود خودتون برای کامپیوتر خودتون درستش رو وارد کنید...
من همین الان نوشتم شاید خطایی توش باشه و کدم رو هم با بی حوصلهگی نوشتم خودتون به کرمتون ببخشید