Office中国论坛/Access中国论坛

标题: 为什么使用ADODB.Recordset没法打开查询？ [打印本页]

作者: digger_lcl 时间: 2006-12-30 19:48
标题: 为什么使用ADODB.Recordset没法打开查询？
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 时间: 2006-12-30 21:01
可能是adOpenKeyset,用默认的

还有一句就行了

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

作者: digger_lcl 时间: 2007-1-5 22:01
标题: 还是不行
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 时间: 2007-1-5 22:27
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

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