为什么使用ADODB.Recordset没法打开查询？

digger_lcl

    Dim Rs1 As ADODB.Recordset   '定义数据集变量
    Set Rs1 = New ADODB.Recordset
    Dim STemp As String
STemp = "select * from 表1"
    Rs1.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

就可以成功
为什么将STemp = "select * from 表1"换成STemp = "select * from 查询1" 就报错呢？？！

tz-chf

可能是adOpenKeyset,用默认的

还有一句就行了

Dim Rs1 As new ADODB.Recordset   '定义数据集变量

digger_lcl

    Dim Rs1 As ADODB.Recordset   '定义数据集变量
    Set Rs1 = New ADODB.Recordset
    Dim STemp As String
            
        STemp = "select * from 查询1"

        Rs1.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic  '打开 “新增 子窗体 查询” 数据表
        
            If Rs1.RecordCount < 1 Then      

'到这里没有取到记录，但实际上  打开 查询1 是有查询结果记录的

Joe5525601

Dim Rs1 As New ADODB.Recordset   '定义数据集变量
Dim STemp As String
STemp = "select * from 查询1"
rs1.open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic  '打开 “新增 子窗体 查询” 数据表
if rs1.recordcount >0 then
debug.print rs1(0)
end if