Office中国论坛/Access中国论坛

标题: 请教下列Ado打开SQL查询错在哪？多谢！ [打印本页]

作者: shable 时间: 2017-3-16 11:08
标题: 请教下列Ado打开SQL查询错在哪？多谢！
本帖最后由 shable 于 2017-3-16 11:14 编辑

‘运行时错误： “91”
’对象变量或 with 块变量未设置

Private Sub Command6_Click()
Dim objrs1 As ADODB.Recordset

******
******

‘以下是出错点

objrs1.Open "SELECT 大类代码,分类代码,设备名称,设备型号,安装位置,设备编号 " & _
   "FROM 设备台账 " & _
   "WHERE 大类代码 = 'A' And 分类代码 = '4'" & _
   "ORDER BY 安装位置;", _
   CurrentProject.Connection, adOpenKeyset, adLockOptimistic

作者: access新新新手 时间: 2017-3-16 12:01
"WHERE 大类代码 = '" & A & "' And 分类代码 = 4" & _

作者: shable 时间: 2017-3-16 12:21
谢谢！

'真正的代码如下，就是出错

：

Dim objrs1 As ADODB.Recordset

Str_SqL(0) = "SELECT 大类代码,分类代码,设备名称,设备型号,安装位置,设备编号 FROM 设备台账 " & _
"WHERE 大类代码 = '" & Text0.Column(0) & "' And 分类代码 = '" & Text1.Column(0) & "'" & _
"ORDER BY 安装位置;"

objrs1.Open Str_SqL(0), CurrentProject.Connection, adOpenKeyset, adLockOptimistic

作者: shable 时间: 2017-3-16 12:34
问题解决！

出错点在此

Dim objrs1 As ADODB.Recordset

应该是

Dim objrs1 As New ADODB.Recordset

3Q!

作者: roych 时间: 2017-3-17 12:57

shable 发表于 2017-3-16 12:34
问题解决！

出错点在此

另一种写法：

Dim objrs1 As ADODB.Recordset
set objrs1 = New ADODB.Recordset

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