碰到奇葩事了，关于access查询

kingsix139

我在Access2007里面做了个查询，名字叫user_info （这个查询的数据源来自于sharepoint）

然后出现问题了，举个例子，如下，

我再建个查询，代码：select * from user_info where department1='CS'    能够正常显示结果，

然后我在VBA里面也写这个查询，代码，
sub test()
Dim sql2 As String
Set rs3 = New ADODB.Recordset
sql2 = "select * from user_info where department1='CS'"
rs3.Open sql2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
MsgBox rs3.RecordCount
Set rs3 = Nothing
end sub

结果显示记录数为0，这是为啥呢？ 明明是一样的查询。

ly

试一试

1. ....
   
2. rs3.Open sql2, CurrentProject.Connection, adOpenForwardOnly,adLockReadOnly, adCmdText
   
3. .....

复制代码

roych

ly 发表于 2015-8-7 09:36
试一试

跟这个没关系的。估计是楼主的代码写错了
sub test()
Dim sql2 As String
Set rs3 = New ADODB.Recordset
'rst3可以这样写吗？我一直以为应该是这样写的：
'Dim rs3 As New ADODB.Recordset
sql2 = "select * from user_info where department1='CS'"
rs3.Open sql2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
MsgBox rs3.RecordCount
Set rs3 = Nothing
end sub

jack5d

哈哈,看半天,沒宣告rs變數....
所以建議模組首加條強制變數宣告吧