使用sql server带参数的存储过程作为报表数据源

来源:www.sourceentoi.com 点击数:211 　 | 收藏 | 复制

时　间:2022-05-07 11:10:47
作　者:青源 ID：63238 城市：大兴
摘　要:sql server 带参数的存储过程、ACCESS报表。
正　文:

关键字:sql server 带参数的存储过程、ACCESS报表、传递查询

什么是存储过程：存储过程是在sql server数据库服务器上执行的，而且是编译过的，所以执行速度非�？�。不懂的小伙伴可以百度一下。有条件的，但没用过的，可以用一下感受一下，就能明白了，当然建议数据量大的情况，若是本来就没多少条数据，多半没什么感觉。

概述:

之前我用ACCESS查询作为报表的数据源，但是执行时，需要将所有数据从SQL server 数据库服务器加载到本的地ACCESS客户端，这样就会产生大量的网络流量，加载过来之后，再从海量数据里面查询出符合条件的数据。数据量大了之后，这种方法变得很慢，有人反映，想要打印个报表需要1分多钟才能生成打印预览界面。

解决思路:

由于传递查询不支持在里面输入[forms].[frm窗体名].[控件名] 这种自定义变量

可以这么解决：

1、先创建一个传递查询，设置好ODBC连接符字符串，返回记录设置为：是

2、用VBA代码修改这个传递查询，以生成一个包含参数的传递查询的sql 语句。

3、将报表数据来源改为这个传递查询 qstp测试就可以了。

4、关于在多用户环境下，是否会存在多个用户同时使用同一个存储过程导致一些未知的问题，可以将传递查询的结果插入到一个临时表中去。这样即使在同一时间多个用户同时调用一个存储过程，理论上也不会出现问题。（未经测试，仅个人猜想）

5、将这个 qstp测试传递查询作为报表数据源，或者将传递查询的结果保存到一个临时表中去，然后将报表数据源改为这个临时表。

如下图:

Private Sub Command2_Click()
'先断判控件是否输入内容，如为空则进行提示
If IsNull([Forms]![frm测试].[Text0]) Then
MsgBox "请输入发货编号！", vbInformation, "提示"
Else

Dim qdf As Object 'DAO.QueryDef
Set qdf = CurrentDb.QueryDefs("qstp测试")
qdf.SQL = "exec pro测试 '" & [Forms]![frm测试].[Text0] & "'"
DoCmd.OpenQuery "qstp测试", acViewNormal '打开查询查看结果
End If
End Sub

效果如下图: