关于vba调用存储过程-需返回查询结果赋值给窗体

cmj　发表于：2011-05-06 11:53:42 　

dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB;" _
    & "User ID=" & l2 & ";" _
    & "Password=" & l3 & ";" _
    & "Data Source=" & l1 & ";" _
    & "Initial Catalog=" & l4 & ";"
cnn.Open

'此处以上没问题，别处用过
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "EXEC [P2] '@ym1', '@ym2'"
strSQL = Replace(strSQL, "@ym1", "201101")
strSQL = Replace(strSQL, "@ym2", "201103")
Set rs = cnn.Execute(strSQL)
Set Me.回单结算_子窗体.Form.Recordset = rs'此句有问题提示如下：
'运行时错误'7965'
'您输入的对象不是有效的recordset 属性
'*说明：字段对应没问题
cnn.Close
Set cnn = Nothing

Top

cmj 发表于：2011-05-06 13:51:12

MsgBox (rs.Fields("MR002"))'这样是好用的，能查出结果

Set Me.回单结算_子窗体.Form.Recordset = rs'这样就不好用

Top

红尘如烟发表于：2011-05-06 14:39:14

不要用Connection 对象的Execute方法返回记录集，它返回的是一个仅向前游标的记录集，是不能用于窗体记录源的，改成下面这样试一下：

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

cnn.ConnectionString = "Provider=SQLOLEDB;" _
    & "User ID=" & l2 & ";" _
    & "Password=" & l3 & ";" _
    & "Data Source=" & l1 & ";" _
    & "Initial Catalog=" & l4 & ";"
cnn.Open

rst.CursorLocation = adUseClient

rst.Open "exec P2 @ym1='201101',@ym2='201103'",cnn,adOpenKeyset,adLockOptimistic
Set Me.回单结算_子窗体.Form.Recordset = rs

cnn.Close
Set cnn = Nothing

Top

cmj 发表于：2011-05-06 14:48:49

太感谢了，我研究了一天也没解决，您这么快就帮我解决了。真是帮了我大忙。谢谢！

Top

陈永发表于：2011-05-07 07:13:55

cmj 你这个东西做什么用的啊能给我发一个你的实列给我看看么？可以发我邮箱 502291602@qq.com 谢谢！

Top

cmj 发表于：2011-05-11 17:32:31

可以连接SQL数据库，通过以上代码条用SQL数据库的存储过程，以上是通过设置的参数查询数据库的数据，因为只有在局域网内可以用，所以我给你文件你也打不开。有啥问题咱可以在这个论坛上讨论，这个论坛真是不错！我学到了很多东西。

Top

cmj 发表于：2011-05-11 17:33:38

可以连接SQL数据库，通过以上代码调用SQL数据库的存储过程，以上是通过设置的参数查询数据库的数据，因为只有在局域网内可以用，所以我给你文件你也打不开。有啥问题咱可以在这个论坛上讨论，这个论坛真是不错！我学到了很多东西。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

关于vba调用存储过程-需返回查询结果赋值给窗体