调用存储过程传递参数的例程

zhuyiwen

这是开发版中关于调用存储过程传递参数的例程，供大家参考

1. Public Sub TestParameter
   
2.   ' 这段代码演示：
   
3.   ' 1. 创建一个使用输入/输出参数的存储过程
   
4.   ' 2. 创建参数并调用存储过程
   
5.   ' 3. 显示结果并删除这个存储过
   
6.   Dim conn As ADODB.Connection
   
7.   Dim Param As ADODB.Parameter
   
8.   Dim Com As ADODB.Command
   
9.   Dim strConn As String
   
10.   ' 给连接字符串变量赋值
    
11.   strConn = "PROVIDER=SQLOLEDB;SERVER=(local);User Id=sa;Password=;DATABASE=pubs"
    
12. 
    
13.   ' 建立连接对象
    
14.   Set conn = New ADODB.Connection
    
15.   ' 给连接对象赋予连接字符串并打开连接
    
16.   conn.ConnectionString = strConn
    
17.   conn.Open strConn
    
18.   ' 建立新的命令对象
    
19.   Set Com = New ADODB.Command
    
20.   ' 在PUBS数据库中创建一个新的存储过程
    
21.   Com.CommandText = "Create Procedure sp_ReturnsOutput @authorid " & _
    
22.   "varchar(11),@result Varchar(20) OUTPUT As Select @result " _
    
23.   & "= (Select au_fname from authors Where Au_id = @authorId)"
    
24.   Com.ActiveConnection = conn
    
25.   Com.Execute
    
26.   ' 现在已经创建两个参数: 一为输入，一为输出
    
27.   ' 在ADO对象中创建输入参数
    
28.   Set Param = Com.CreateParameter("AuId", adVarChar, adParamInput, 11)
    
29.   Param.Value = "172-32-1176"
    
30.   Com.Parameters.Append Param
    
31.   ' 在ADO对象中创建输出参数
    
32.   Set Param = Com.CreateParameter("Return", adVarChar, adParamReturnValue, 20)
    
33.   Com.Parameters.Append Param
    
34.   ' 注：当创建参数时，你必须包括参数的大小(长度)
    
35.   ' 加载命令对象的SQL字符串
    
36.   Com.CommandText = "sp_ReturnsOutput"
    
37.   Com.CommandType = adCmdStoredProc
    
38.   ' 调用
    
39.   Com.Execute
    
40.   ' 显示结果
    
41.   MsgBox "The first name of the author with an SS of " & _
    
42.   Com.Parameters(0).Value & " is " & Com.Parameters(1).Value
    
43.   ' 删除存储过程
    
44.   Com.CommandText = "Drop Procedure Sp_ReturnsOutput"
    
45.   Com.CommandType = adCmdText
    
46.   Com.Execute
    
47.   conn.Close
    
48. End Sub

复制代码

[此贴子已经被zhuyiwen于2002-4-9 0:28:11编辑过]

chief_first

先收着看看.

guotianxin

我喜欢用简易语法，connection.exec "存储过程 '" & 参数一 & "','" & 参数一 & "'"，只是返回值无法取得，有点遗憾。

cybdl

call 的参数问题




我用ACCESS做的一个销售系统，想在一个模块中调用窗体“销售单明细”上的一个事件过程（按F4键的过程）。语句如下：




call form_销售单明细.Form_KeyDown(115, 0)




可每次调用的事件不同的话，就要写成：




call b




b是变量，在调用前赋值。因有多次不同的调用，所以要用变量。




可是怎么给b定义与赋值，希望能人帮我一下。

cg1

set rs=currentProject.Connection.Execute("存储过程 参数=Variant)

为什么不行？如果没有什么输出参数，只是返回表

set rs=currentProject.Connection.Execute("存储过程  参数1,参数2)

这样也通阿？

jiek

写成模组调用就好多了～

leon0207

查询设计器不支持 @XXX SQL 构造。

HG

您的只是取得存儲過程的反回值，而在第一個存儲過程中都有一個返加值的，不論成功執行與否。當然用返回值也可以取得輸了參數的值，如果輸出參數多於一個，而返有一個自定的返回值存在時，又會發生什麼情況哪？我想您沒有測試過吧。
在VBA中對輸入出參數類型蝚好用adparamoutput，同理此類型也可取得返回值，不過要先刷新參數方可行。

zhuyiwen

肯定是测试过的！