CurrentDB 返回值为nothing

杨健　发表于：2011-03-12 19:10:45 　

str = "SELECT * From tbTestingPaperManagement"
Set dbs = CurrentDb
Set rec = dbs.OpenRecordset(str, dbOpenDynaset)

rec.Close
dbs.Close

以上是代码，

运行过程中报错说是“对象变量和with变量未设置，是什么意思？rec，dbs 都在变量声明里，声明过了。、

谢谢答复，搞了三天还是不明白原因

煮江品茶发表于：2011-03-12 19:48:50

rec的声明中加一个new试试

yangjian 发表于：2011-03-12 21:10:57

谢谢老师，还是不行

罗衣惹轻尘发表于：2011-03-13 01:11:42

主要还是要看看是否存在歧义，必须很清晰地定义：

dim dbs as dao.database

dim rst as dao.recordset

………………………………

在同时引用ADO和DAO的前提下，有着优先顺序的原则，当定义成：

dim dbs as database

dim rst as recordset

如果优先引用DAO还是可以执行的，但反之则出错。

具体可能需要看到附件才好下结论。

羽扇子君发表于：2011-03-14 09:43:13

0.必须先保证引用了DAO3.6

1.如果必须定义时:

Set dbs = CurrentDb()

错误原因,没有加括号^_^

2.不用定义dbs

dim dbs as dao.database

3.直接定义rec

Dim rec As Recordset

4.使用时:

Set rec = CurrentDb.OpenRecordset(theTable, , dbReadOnly)

Fish 发表于：2011-03-16 11:43:03

多谢各位帮忙，但我还是没解决问题。更详细的问题描述在我上传的附件里谢谢。

总记录：5篇页次：1/1 9 1 :

Access交流中心