可以用Access 传递查询直接将命令发送到数据库服务器。
建立Access 传递查询步骤如下:
(1) 在数据库窗口中单击“查询”选项卡,然后单击“新建”按钮。
(2) 在“新建查询”对话框中单击“设计视图”选项,然后单击“确定”按钮。
(3) 在“显示表”对话框内单击“关闭”按钮。
(4) 在“查询”菜单上,指到“SQL 语句条件”,然后单击“传递”命令。
(5) 在工具栏上,请单击“属性”按钮以显示查询属性表。
(6) 在查询属性表中,请设置“ODBC 连接字符串”属性来指定要连接的数据库信息。可以输入连接信息: ”ODBC;DSN=ntserver0;UID=sa;PWD=;DATABASE=BMS”,或用“生成器”按钮生成。
(7) 因存储过程不用返回记录,所以将“返回记录”属性设置为“否”。
(8) 在“SQL 传递查询”窗口中,输入传递查询: exec statistics。Statistics 是SQL Server 数据库的一个存储过程。
带参数的输入传递查询: exec statistics 参数1,参数2
(9) 关闭查询,保存查询为:stat_query。
运行传递查询的方法有:
(1) 用Microsoft Access的宏 OpenQuery。
(2) 用下面的事件过程:
Private Sub 统计_Click()
Dim dbs As Database, qdf As QueryDef
Dim tmq As Dynaset
Dim strSQL As String
Set dbs = CurrentDb
‘打开上面建的传递查询stat_query
Set qdf = dbs.OpenQueryDef(“stat_query “)
qdf.Execute
Set dbs = Nothing
End Sub
原文地址:http://www.cnblogs.com/QunShan/p/16829888.html