Question

请高手帮我看下vb代码错在哪里了,老提示要求对象

下面是代码
Private Sub Form_Load()
Dim Rec As New ADODB.Recordset
Dim stRecQL As String
Dim Item As Integer
Dim i As Integer
Dim nodindex As Node
Set nodindex = TreeView1.Nodes.Add(, , "爷", "China") '"1"代表的是未被选中时的图标,"2"代表是被选中后的图标
nodindex.Sorted = True

''爷
Rec.Open "省市", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
Set nodindex = TreeView1.Nodes.Add("爷", tvwChild, "父" & Rec.Fields("省市ID"), Rec.Fields("省市"), "1", "2")
nodindex.Sorted = True
Rec.MoveNext
Next
Rec.Close
End Sub
窗体上有treeview控件，还有imagelist控件，还有adodc

Answer 1

我给你做了一个范例：

为了让你自己琢磨，我做的是；年级--班级--学生，你模仿吧！

你需要掌握：

1，ADODB对象的使用或者ADODC控件的使用，以及数据库操作的知识。

2，TreeView的基本使用方法。

可以看看我的空间里关于 TreeView 的文章。

追问

Set nodX = TreeView1.Nodes.Add(Left(Rst.Fields("班级"), 2), tvwChild, Rst.Fields("班级"), Rst.Fields("班级")) 老师这句话我有点看不明白，尤其是这句“Left(Rst.Fields("班级"), 2”，老师你能帮我解释一下吗

追答

语句格式：
Set nodX = TreeView1.Nodes.Add(relative, relationship, key, text, image, selectedimage)

使用Nodes对象的Add方法,添加一个节点,该方法有多个参，我只使用了前4个参数：

首先看看例子：

Set nodX = TreeView1.Nodes.Add(, , "高三", "高三")
其结果，添加一个根节点，该节点的键值是"高一"，显示的文字也是"高三"，注意，第一个"高三"是键值，第2个"高三"是显示的文本。
接下来：
Set nodX = TreeView1.Nodes.Add("高三",tvwChild , "高三(1)班", "高三(1)班")
第1个参数"高三"，表示新添加的节点以键值“高三”为参照节点。（所有的节点的键值是唯一的）

第2个参数tvwChild，表示是添加的节点是参照节点的子节点。（也就是添加的节点，在“高三”节点下）
第3个参数 "高三(1)班"，是新添加的节点的键值。
第4个参数 "高三(1)班"，是新添加的节点的显示文本。
我的例子里：
第1，3，4个参数，就是使用数据表记录的字段值；
比如：当执行SQL语句"Select DISTINCT 班级 From 学生信息 Order By 班级"
假设返回有一条记录：可见只有一个字段；
班级

高三(1)班

那么：Rst.Fields("班级")，返回的就是班级信息，而其中左边2个字符就是年级信息，所以：
Left(Rst.Fields("班级"), 2) ---- 取左边2个字符作为参照的父节点的键值
tvwChild ---- 新节点是参照节点的子节点
Rst.Fields("班级") ---- 新节点的键值
Rst.Fields("班级")) ---- 新节点的显示文本

追问

老师你的回答很详细，在你的帮助下我终于把问题解决了 ，谢谢你帮助了我，你这次不仅解决了我的疑惑，我还从你身上学到了为人处世的道理，其实帮助是不要索取的，之前我有着本质上的理解错误，老师我会继续传承你这些精神来帮助更多的人

追答

对你有帮助,是我的心愿!祝你成功!

追问

恩 谢谢 对了 老师“Left(Rst.Fields("班级"), 2)”这句话，为什么不能直接用Rst.Fields("年级")。它来代替呢

追答

数据表的格式是这样的:

这就是因为我只用了一张表的缺点，如果象你一开始设计的用三张表，就不会有这个问题了：

每个学生一条记录，而一个年级有很多记录，这些记录，年级是相同的，班级也有相同的。

而无论是年级或班级，只要一个节点。

所以，在使用查询语句SELECT的时候，用了DISTINCT

见代码：

Rst.Open "Select DISTINCT 班级 From 学生信息 Order By 班级", Con, ......

这个的意义是，只返回字段“班级”，用了 DISTINCT 就是相同的值只出现一次。

例如，这样返回的记录就可能是：

初一(1)班

初一(2)班

初一(3)班

初一(4)班

初二(1)班

初二(2)班

初二(3)班

初二(4)班

高一(1)班

高一(2)班

高一(3)班

高一(4)班

这里，并没有返回“年级这个字段”。

你再看看我的代码，体会一下：

或者，在窗体上添加一个网格控件，直观地看看3次返回的记录集合情况，就理解了。

有问题，继续探讨！

追问

老师按照你教给我的方法所有困惑均已解决，现在程序已经做好。没有问题 很感谢你老师。

追答

不客气,有机会可以继续相互探讨!
我是通过回答问题,来提高自己的能力与水平.

追问

老师你好，我现在有一个新的想法，在窗体上加入了listview控件，我想在点击市区名时，把属下的区县名显示到listview控件上来，我这样加上的 Set addlist = ListView1.ListItems.Add(, , Rec.Fields("区县名"), "l1")，可是一运行这些区县全部显示到listview上了，老师这该怎么办呢，怎么能把它改成所属的市区下呢

追答

listview的使用与TreeView是不一样的?
我的理解是,你点击了TreeView里的某一个节点,希望把该节点以下的子节点,都显示在listview里?
分析要解决的是:
1，如何识别区分单击的节点。然后找到其所有子节点（可能还包括子节点的子节点）。
2，一一显示在listview里。
我的思路：
解决1，不要再利用数据库，而是直接通过TreeView来实现。
解决2，应该容易，我不说了。

追问

老师这个问题已经解决了 可以把内容显示到listview上了，我现在还想再加个功能，就是假如吧在listview上显示了市区，我可以直接在listview上直接双击显示的市区，来在listview上显示市区下的区县呢，这应该是在listview双击事件里加上吧，老师这个应该怎么做呀

Answer 2

ADODB 这是个库 不是 Adodc 控件。
你要引用这个库。"工程"-"引用"-在里面找到 "Microsoft ActiveX Data Object X.X Library" ,然后选中
我一般用2.5版本的

追问

哦 引用完了该怎么做呀。我重新引用了一下

追答

引用完就OK啦，难道说你现在还报错？
报错的是哪一行？错误内容..

追问

恩 还是提示要求对象 Rec.Open "省市", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect 这一句报错

追答

CurrentProject.Connection
你这个 连接 是哪里来的？ 应该是这个 连接 赋值的时候 出的问题

追问

亲果然是高手，这是我在网上找的一个例子试着做的 这是复制上的，这个应该怎么解决啊：？？

追答

What？呵呵
--你那个给 CurrentProject.Connection 赋值的 代码呢？看这情况应该是在一个模块里(Module),如果你有的话
--还是说你就只有这段代码？-数据库之类的呢

追问

我就只有这么一段代码 ，数据库是我自己做的， CurrentProject.Connection 赋值得代码我就不懂了 ，如果这样的话我应该怎么做呀

追答

Private cnn As New ADODB.Connection

'这段代码就是 创建一个 cnn- 数据库(SQL Server)的连接。也就是你代码里的 CurrentProject.Connection，替换就行
’注意要修改的地方-STR，连接字符串
'1、10.217.68.187 --这里你要改成你自己电脑的 sql服务器 的 完整名称
'2、sech --这里是你数据库 的名称
'3、sa、sa --就是登录 数据库 的用户名 和密码
' 在楼下给你的例子中 你也可以找到相应的代码块，可能STR不太一样，但只要修改成你自己电脑的信息 都是可以的

Private Sub Form_Load()
Dim STR as String
STR = "Provider=SQLOLEDB.1;Data Source=10.217.68.187;Initial Catalog=sech;User ID=sa;Password=sa;Persist Security Info=True"
cnn.CursorLocation = adUseClient
cnn.CommandTimeout = 0
cnn.ConnectionTimeout = 0
cnn.Open STR

End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not cnn is Nothing then
cnn.Close
set cnn = nothing
End If
End Sub

追问

详细问题我发你私信了