treeview与数据库

Question

能说清楚些吗？
父节点显示什么？子节点显示什么？
是要显示字段名还是显示一个字段所有内容

Answer 1

工程一.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINNT\System32\stdole2.tlb#OLE Automation
Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#..\..\..\..\WINNT\System32\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library
Form=Form1.frm
Startup="Form1"
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="raeck.com"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1[MS Transaction Server]
AutoRefresh=1form1.frm
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "删除最后的消息"
      Height          =   300
      Left            =   2880
      TabIndex        =   4
      Top             =   2880
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "添加新的消息"
      Height          =   300
      Left            =   1320
      TabIndex        =   3
      Top             =   2880
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   2415
      Left            =   1320
      TabIndex        =   1
      Text            =   "内容"
      Top             =   120
      Width           =   3135
   End
   Begin VB.ListBox List1 
      Height          =   2940
      ItemData        =   "Form1.frx":0000
      Left            =   120
      List            =   "Form1.frx":0002
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   2640
      Width           =   2895
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'哗！！都已经是1点多了，刚刚写晚，下面的例子已经能够实现基本的数据库功能了，修改，添加，查询，删除。他们都是用
'sql语句实现的，这个例子应该是告诉你怎样使用sql语句而已。他是通过引用Library实现的,Library的名称是：
'Microsoft ActiveX Data Objects 2.0 Library 文件名是 msado20.tlb 存放在 C:\Program Files\Common Files\System\ado 中，
'如果这个例子引用失败，你可以手工引用，在菜单 工程－－引用 中找。。因为我的是2000 所以路径可能有点不同的。
'我也该睡觉了，如果有什么不满意或者不清楚可以问我。
Option Explicit
Dim AdoConn As New ADODB.Connection '定义Connection对象
Dim rs As New ADODB.Recordset  '定义Recordset对象
Dim Conn
Dim SQLCmd As String
Dim Dbpath As StringPrivate Sub Form_Load()
Dbpath = App.Path & "\test.mdb" '数据库所在目录
AdoConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '打开数据库
UpdateList '将目录添加到listbox中
End SubPrivate Sub List1_Click()
'得到所选的名称在表中的内容
SQLCmd = "Select * From [test] where 名称= '" & List1.Text & "'"
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句
Text1 = Conn("内容") '输出结果'更新所选的名称在表中的访问次数。＋1
SQLCmd = "update [test] set [访问次数]=[访问次数]+1 where 名称= '" & List1.Text & "'"
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句'得到所选的名称在表中的访问次数
SQLCmd = "Select [访问次数] From [test] where 名称= '" & List1.Text & "'"
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句
Label1 = List1.Text & "这条消息是第" & Conn("访问次数") & "次被访问" '将结果输出到Label1中End SubPrivate Sub Command1_Click()
Dim NextRecordCount As String
SQLCmd = "select * from [test]"
rs.Open SQLCmd, AdoConn, 3, 2 '打开Recordset对象
NextRecordCount = Right(Str(rs.RecordCount + 1), Len(Str(rs.RecordCount + 1)) - 1) '得到数据库中的信息
SQLCmd = "insert into [test](名称,内容,访问次数)values('名称" & NextRecordCount & "','名称" & NextRecordCount & "的内容','0')" '添加记录
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句
UpdateList '刷新目录
rs.Close '关闭Recordset对象
End SubPrivate Sub Command2_Click()
SQLCmd = "select * from [test]"
rs.Open SQLCmd, AdoConn, 3, 2 '打开Recordset对象
rs.MoveLast '移到最后一条消息
SQLCmd = "delete  From [test] where 名称='" & rs("名称") & "'"
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句
UpdateList '刷新目录
rs.Close '关闭Recordset对象
End SubPrivate Function UpdateList()
SQLCmd = "Select [名称] From [test]"
Set Conn = AdoConn.Execute(SQLCmd) '执行SQL语句
If Not Conn.EOF Then Conn.MoveFirst
List1.Clear
While Not Conn.EOF
    List1.AddItem Conn("名称") '添加目录
    Conn.MoveNext '移动到下一条消息
Wend
End Functiontest.mdb
详细见原代码中所示