求助：从SQL SERVER 视图中获取数据

吴雨青

我用access 2007做前端，后台是sql server。sqlserver 中有 视图（view），我试图从 view 中获取数据，失败，不知什么原因。

窗体的open事件代码如下：

Private Sub Form_Open(Cancel As Integer)
    Dim rs As ADODB.Recordset
    Dim sql As String

'   CN 是一个模块级变量
'   ConnStr 是全局变量 = "Provider=SQLOLEDB;data source=192.168.159.128,1449; "Initial Catalog='Std-DEV'; user id='sa';password='sa';Network=DBMSSOCN"
   
     With CN
       .ConnectionString = ConnStr
       .Open
    End With

    Set rs = New ADODB.Recordset
   
    ' v_RMInOut 是定义在SQLSERER中的视图  
    sql = "SELECT 我方公司,供应商,品名,批号,MIN(日期) AS '首次', MAX(日期) AS '末次',SUM(数量) AS '数量' FROM v_RMInOut WHERE 我方公司='" & _
                   CompanyList(SelectedCompanyID) & "' GROUP BY 我方公司,供应商,品名,批号 "
    If Not chkShowAll Then
        sql = sql & "HAVING SUM(数量)<>0 "
    End If
    sql = sql & "ORDER BY MIN(日期) DESC"

    rs.Open sql, CN

    Set Me.Recordset = rs

    Set rs = Nothing

End Sub


以上程序执行到 set me.recordset=rs 时出错，错误说明是 rs 不是正确的recordset属性。
我这段程序在不同窗体的open事件中都用过，其他都是从表里面取数据，都没问题，唯有这个是从视图中取数据，就怎么也过不去。
我debug.print 过sql，将其粘贴到sql server management studio中去执行，也没问题。
我甚至简化sql="SELECT * FROM v_RMInOut"，也不成功，同样的错误

求大神指点。

roych

Me.Recordset 是DAO的Recordset
rs是ADO的Recordset
两者是不同的记录集，需要进一步转换。

吴雨青

可是我其他窗体这样做，没问题啊

吴雨青

关键是 rs 根本没有取到数据，recordcount=-1

roych

吴雨青 发表于 2016-1-15 15:27
关键是 rs 根本没有取到数据，recordcount=-1

估计你没有设置好connection吧？

1.      With cn
   
2.        .ConnectionString = ConnStr
   
3.        .Open
   
4.        .CursorLocation = adUseClient '加上这一句
   
5.     End With

复制代码

目前我这里测试没问题的。

吴雨青

果然是的，成功了。
谢谢 Roych啦！