2011-01-30 103 views
0

我在Access VBA中编写代码。使用记录集时遇到问题。这里是我的代码的第一行:记录集在Access 2007 VBA中失败

Dim rst As Recordset 
Dim sql as String 

sql = "Select ........" 
Set rst = CurrentDb.OpenRecordset(sql, dbReadOnly) 

程序在第二行“set rst = .....”失败。我加了以下参考: Visual Basic应用程序, 的Microsoft Access 12.0对象库, OLE自动化, Microsoft ActiveX数据对象2.8库

但该计划仍然未能在第二行。还有什么我该做的? 谢谢,

+0

我也试过昏暗rst作为DAO.Recordset。但没有运气 – guest1 2011-01-30 22:36:04

回答

1

Currentdb是DAO代码,但你声明你有一个ADO引用。删除ADO引用并添加Microsoft Office 12.0 Access数据库引擎对象库。

如果这是Access 2000,2002或2003我建议添加Microsoft DAO 3.6对象库。

+0

我删除了ADO参考。现在我有以下参考:Visual Basic for Applications,Microsoft Access 12.0对象库,OLE自动化和Microsoft Office 12.0 Access数据库引擎对象库。但问题依然存在。任何想法?? – guest1 2011-01-30 23:02:31