Question

VB中，怎么将TreeView绑定到数据库？

例如图TreeView结构，我需要的功能如下：
数据库 abc.mdb中，有PJ表，表中有字段BRAND和MODEL，分别为品牌和型号。
在读取进入窗口时，自动将PJ表中的BRAND作为根节点，将MODEL作为子节点。
点击 刷新 commad1 可刷新TreeView，清空暂时不做功能。

然后，左侧有两个text，当点击右侧的TreeView的某子节点时，自动读取数据库中该型号的相关参数到左侧Text中，同时，右侧的这个TreeView能否添加右键功能，例如“删除”，右键某子节点，点击删除后，将清除当前数据库这个型号的一整行。

求高人相助，100悬赏奉上。。。
以下是我修改后的代码。
Private Sub DelRecord(ByVal id As String)
Dim i As Integer
Dim Rs As ADODB.Recordset
Set Rs = getrs(sql, "ideashome")
Cnn.ConnectionString = ConnStr
sql = "Delete * From [PJ] where [MODEL]='" & Text47.Text & "'"
TreeView1.Nodes.Clear
If Rs.RecordCount > 0 Then
For i = 1 To Rs.RecordCount
TreeView1.Nodes.Add , , "R" & i, Rs.Fields("BRAND")
TreeView1.Nodes.Add "R" & i, tvwChild, , Rs.Fields("MODEL")
Rs.MoveNext
Next
Rs.Close
End If
Set Rs = Nothing
End Sub

Answer 1

'VB利用ADODB连接ACCESS数据库，执行查询、删除操作
'引用Microsoft ActiveX Data Objects 2.8 Library
Dim select_id As String
Dim ConnStr As String
Private Sub Command1_Click() '刷新
GetValue
End Sub
Private Sub Form_Load()
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\你文件的路径\abc.mdb;Persist Security Info=False"
TreeView1.LineStyle = tvwRootLines
TreeView1.LabelEdit = tvwManual
GetValue
End Sub
Private Sub mnu_del_Click() '菜单：删除
    DelRecord select_id
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nd As Node
If Button = vbRightButton Then
    Set nd = TreeView1.HitTest(x, y)
    If Not nd Is Nothing Then
        If Left(nd.Key, 1) = "R" Then
            select_id = nd.Text
            Me.PopupMenu mnupop
        End If
    End If
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Left(Node.Key, 1) = "R" Then
    Text1.Text = Node.Text
    Text2.Text = Node.Child.Text
End If
End Sub
Private Sub GetValue()
Dim i As Integer
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnn_c As New ADODB.Command
Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cnn.ConnectionString = ConnStr
With Cnn
    .CursorLocation = adUseClient
    .Open
End With
Cnn_c.CommandType = adCmdText
Cnn_c.CommandText = "select * from PJ"
Set Cnn_c.ActiveConnection = Cnn
Set Rs = Cnn_c.Execute
TreeView1.Nodes.Clear
If Rs.RecordCount > 0 Then
    For i = 1 To Rs.RecordCount
        TreeView1.Nodes.Add , , "R" & i, Rs.Fields("BRAND")
        TreeView1.Nodes.Add "R" & i, tvwChild, , Rs.Fields("MODEL")
        Rs.MoveNext
    Next
    Rs.Close
End If
Cnn.Close
Set Cnn_c = Nothing
Set Rs = Nothing
Set Cnn = Nothing
End Sub
Private Sub DelRecord(ByVal id As String)
Dim i As Integer
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnn_c As New ADODB.Command
Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cnn.ConnectionString = ConnStr
With Cnn
    .CursorLocation = adUseClient
    .Open
End With
Cnn_c.CommandType = adCmdText
Cnn_c.CommandText = "delete from PJ where BRAND='" & id & "'"
Set Cnn_c.ActiveConnection = Cnn
Set Rs = Cnn_c.Execute '执行删除
Cnn_c.CommandText = "select * from PJ"
Set Rs = Cnn_c.Execute '执行查询
TreeView1.Nodes.Clear
If Rs.RecordCount > 0 Then
    For i = 1 To Rs.RecordCount
        TreeView1.Nodes.Add , , "R" & i, Rs.Fields("BRAND")
        TreeView1.Nodes.Add "R" & i, tvwChild, , Rs.Fields("MODEL")
        Rs.MoveNext
    Next
    Rs.Close
End If
Cnn.Close
Set Cnn_c = Nothing
Set Rs = Nothing
Set Cnn = Nothing
End Sub

追问

很感谢你的耐心，但是跟我其他代码不太一样，我基本看不懂，不知道怎么加进去。

报错点在这里，

追答

根据你的ACCESS版本，设置连接字符串ConnStr

追问

OK我自己研究连接字符串了，现在能提取数据库的信息过来，但是相同根节点不能放到一起。

然后右键删除功能也没有。

无法发我修改后的代码上来。

追答

你先试验我给你的代码，有删除功能
相同根节点？没明白

如果节点的key相同，是不能放同一个treeview的

追问

你的邮箱多少？我把我现在修改后的代码发你帮我修改下。应该就几句错的才造成这样。

追答

3189891938

追问

帮忙查看下，如果需要我整个框架的代码都发过来的话就跟我说

Answer 2

搜索万能的网络，找到一条链接：http://bbs.csdn.net/topics/370135466其中稍有介绍。

Answer 3

1. 用一个gridview 等控件绑定

2. 用timer进行实时更新
   

追问

我需要的是代码，不是想法，我对VB不懂，只是想做一个玩玩。

追答

不懂还能做？ 你是想玩我吧？

追问

我懂还来问个啥？