Office中国论坛/Access中国论坛

标题: 关于“声明数据库对象变量”的问题 [打印本页]

作者: sun_ocean 时间: 2003-8-30 18:03
标题: 关于“声明数据库对象变量”的问题
为什么无法声明数据库对象变量？
我根据网上的一个例子，输入完全相同的代码（代码如下），当然窗体控件也完全相同。可是打开窗体的时候，显示代码出错。"Dim db As Database"这一句有问题，在写入代码时"database"也不会自动跳出。

Option Compare Database

Private Sub Form_Load()

Dim db As Database '声明数据库对象变量

Dim recName As Recordset '声明记录集对象变量

Dim strName As Field '声明字段对象变量

Dim MyName(3) As String '声明一个存放“姓名”的数组

Dim intI As Integer '声明一个整型变量

Set db = CurrentDb() '制定数据库为当前数据库

Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集

Set strName = recName![姓名] '指定记录集“姓名字段”

intI = 0

Do Until recName.EOF

MyName(intI) = strName '将“姓名”字段读入数组

intI = intI + 1

recName.MoveNext '读取记录集的下一行记录

Loop

'一下为将数组赋给姓名列表的代码

Me.姓名列表.RowSourceType = "值列表"

Me.姓名列表.RowSource = MyName(0)

For intI = 1 To 3

Me.姓名列表.RowSource = Me.姓名列表.RowSource & ";" & MyName(intI)

Next intI

End Sub

作者: zhuyiwen 时间: 2003-8-30 20:57
这是没有引用“Microsoft DAO 3.60 Object Library”的缘故。

解决办法：在VBA编辑器中引用“Microsoft DAO 3.60 Object Library”，并将它尽量上移.

[em24]

作者: lijiawy 时间: 2003-8-30 21:03
access2000默认的是ado,所以要用dao必须引用

作者: sun_ocean 时间: 2003-8-31 04:17
我用的是access 2002。能不能说得详细一点，如何引用，因为我比较菜，谢谢。

作者: yangzn 时间: 2003-8-31 23:06
在任一编程代码模块编辑时在”工具“菜单->“引用” 对话框中选中 “Microsoft DAO 3.6 Object Library"即可

作者: sun_ocean 时间: 2003-9-1 00:56
谢谢！
另外请教一下，ado和dao是什么东西，为什么要引用？
而且，引用后
“Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集”
这一句又出问题了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)