请教下列Ado打开SQL查询错在哪？多谢！

shable

‘运行时错误： “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新新新手

      "WHERE 大类代码 = '" & A & "' And 分类代码 = 4" & _

shable

谢谢！

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

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

问题解决！

出错点在此

Dim objrs1 As ADODB.Recordset

应该是

Dim objrs1 As New ADODB.Recordset

3Q!

roych

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

出错点在此

另一种写法：

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