Office中国论坛/Access中国论坛

标题: [求助]打开数据的问题！急！ [打印本页]

作者: bbiiy 时间: 2006-8-15 23:08
标题: [求助]打开数据的问题！急！
运行时提示，实时错误'91',对象变量或with块变量未设置。我应该如何修改，请高手指点

Private Function GetQID(ByVal QType As Long, ByRef Score As Single) As Long

On Error Resume Next

Dim dbrs As ADODB.Recordset

Set dbrs = GetDBRS(QType)    '获取题型为qType的数据集

dbrs.Open                            '打开数据集

  ……

dbrs.Close

……                   '函数返回题目编号

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Function GetDBRS(ByVal Q As Long) As Object '获取类型为Q的数据集

On Error Resume Next

  Select Case Q

Case 1

GetDBRS = DataEnv.rsFillingQ ／／／／运行出错语句

Case 2

GetDBRS = DataEnv.rsRorWQ

Case 3

GetDBRS = DataEnv.rsSingleSelQ

  End Select

End Function

作者: gnoy 时间: 2006-8-15 23:13
Dim dbrs As ADODB.Recordset ----------------->

Dim dbrs As new ADODB.Recordset

作者: bbiiy 时间: 2006-8-15 23:44
我尝试过了

Dim dbrs As new ADODB.Recordset

也不可以，还是存在错误：对象变量或with块变量未设置。

作者: wwwwa 时间: 2006-8-16 00:06
是否引用ADO？

作者: gnoy 时间: 2006-8-16 00:38
看来你的代码太烂了.查查DataEnv对象没有NEW 就加上去

作者: andymark 时间: 2006-8-16 04:18
很可能是没有加New,把完整代码贴上来

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