求解：在VB2005中怎么把treeview的内容保存到数据库里，并且可以还原读出重新生成treeview?
求解：在VB2005中怎么把treeview的内容保存到数据库里，并且可以还原读出重新生成treeview?
[解决办法]
Private Sub treenodejiazai()
'加载行业===========================================
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objda As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
Dim i As Integer
objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm.CommandText = "select * from 行业 " ' where 自动号=1 "
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds, "行业 ")
objConn.Close()
Me.TreeView1.ImageList = ImageList3
Me.TreeView1.SelectedImageIndex = 3
Me.TreeView1.ImageIndex = 0
Me.TreeView1.Nodes.Clear()
Dim addnode0 As New TreeNode
addnode0.Tag = 0
addnode0.Text = "客户列表 "
addnode0.ImageIndex = 1
addnode0.SelectedImageIndex = 1
Me.TreeView1.Nodes.Add(addnode0)
For i = 0 To objds.Tables(0).Rows.Count - 1
id = Val(objds.Tables(0).Rows(i)(1))
Dim hy As String = objds.Tables(0).Rows(i)(2)
Dim owntag As Integer = Val(objds.Tables(0).Rows(i)(0))
traverse(TreeView1.Nodes)
Dim addnode As New TreeNode
addnode.Tag = owntag
addnode.Text = hy
If TreeView1.GetNodeCount(False) > 0 Then
If id = 0 Then
addnode.ImageIndex = 2
addnode.SelectedImageIndex = 2
Else
addnode.ImageIndex = 0
'addnode.SelectedImageIndex = 0
End If
Me.TreeView1.SelectedNode.Nodes.Add(addnode)
Else
addnode.ImageIndex = 1
addnode.SelectedImageIndex = 1
TreeView1.Nodes.Add(addnode)
End If
Next i
'加载客户类型===========================================
Dim objConn1 As New OleDb.OleDbConnection
Dim objComm1 As New OleDb.OleDbCommand
Dim objda1 As New OleDb.OleDbDataAdapter
Dim objds1 As New DataSet
objConn1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm1.CommandText = "select * from 客户类型 " ' where 自动号=1 "
objComm1.Connection = objConn1
objda1.SelectCommand = objComm1
objConn1.Open()
objds1.Clear()
objda1.Fill(objds1, "客户类型 ")
objConn1.Close()
Dim khlxnode As New TreeNode
khlxnode.Tag = 500
khlxnode.Text = "客户类型 "
khlxnode.ImageIndex = 2
khlxnode.SelectedImageIndex = 2
Me.TreeView1.Nodes(0).Nodes.Add(khlxnode)
For i = 0 To objds1.Tables(0).Rows.Count - 1
Dim kllxson As New TreeNode
kllxson.Tag = 501 + i
kllxson.Text = objds1.Tables(0).Rows(i)(1)
kllxson.ImageIndex = 0
kllxson.SelectedImageIndex = 3
qttraverse(TreeView1.Nodes, "500 ")
TreeView1.SelectedNode.Nodes.Add(kllxson)
Next
'加载来源===========================================
Dim objConn2 As New OleDb.OleDbConnection
Dim objComm2 As New OleDb.OleDbCommand
Dim objda2 As New OleDb.OleDbDataAdapter
Dim objds2 As New DataSet
objConn2.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm2.CommandText = "select * from 客户来源 " ' where 自动号=1 "
objComm2.Connection = objConn2
objda2.SelectCommand = objComm2
objConn2.Open()
objds2.Clear()
objda2.Fill(objds2, "客户来源 ")
objConn2.Close()
Dim khlxnode1 As New TreeNode
khlxnode1.Tag = 600
khlxnode1.Text = "客户来源 "
khlxnode1.ImageIndex = 2
khlxnode1.SelectedImageIndex = 2
Me.TreeView1.Nodes(0).Nodes.Add(khlxnode1)
For i = 0 To objds2.Tables(0).Rows.Count - 1
Dim kllxson1 As New TreeNode
kllxson1.Tag = 601 + i
kllxson1.Text = objds2.Tables(0).Rows(i)(1)
kllxson1.ImageIndex = 0
kllxson1.SelectedImageIndex = 3
qttraverse(TreeView1.Nodes, "600 ")
TreeView1.SelectedNode.Nodes.Add(kllxson1)
Next
'加载客户状态===========================================
Dim objConn3 As New OleDb.OleDbConnection
Dim objComm3 As New OleDb.OleDbCommand
Dim objda3 As New OleDb.OleDbDataAdapter
Dim objds3 As New DataSet
objConn3.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm3.CommandText = "select * from 客户状态 " ' where 自动号=1 "
objComm3.Connection = objConn3
objda3.SelectCommand = objComm3
objConn3.Open()
objds3.Clear()
objda3.Fill(objds3, "客户状态 ")
objConn3.Close()
Dim khlxnode2 As New TreeNode
khlxnode2.Tag = 700
khlxnode2.Text = "客户状态 "
khlxnode2.ImageIndex = 2
khlxnode2.SelectedImageIndex = 2
Me.TreeView1.Nodes(0).Nodes.Add(khlxnode2)
For i = 0 To objds3.Tables(0).Rows.Count - 1
Dim kllxson2 As New TreeNode
kllxson2.Tag = 701 + i
kllxson2.Text = objds3.Tables(0).Rows(i)(1)
kllxson2.ImageIndex = 0
kllxson2.SelectedImageIndex = 3
qttraverse(TreeView1.Nodes, "700 ")
TreeView1.SelectedNode.Nodes.Add(kllxson2)
Next
Me.TreeView1.CollapseAll()
Me.TreeView1.Nodes(0).Nodes(0).Expand()
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0).Nodes(0)
'MsgBox( "sss ")
End Sub
Private Sub traverse(ByVal a As TreeNodeCollection)
For Each myNode In a
If myNode.Tag = id Then
Me.TreeView1.SelectedNode = myNode
Exit For
End If
traverse(myNode.Nodes)
Next
End Sub
Private Sub qttraverse(ByVal a As TreeNodeCollection, ByVal khson As String)
For Each myNode In a
If myNode.Tag = khson Then
Me.TreeView1.SelectedNode = myNode
'MsgBox( "dd ")
Exit For
End If
qttraverse(myNode.Nodes, khson)
Next
End Sub
