本篇文章详细介绍了在Visual Basic 6.0环境下调用数据库存储过程的具体方法和步骤，并提供了实例代码供参考学习。
### VB6.0调用存储过程的例子（方法一）
在Visual Basic 6.0中，调用数据库中的存储过程是一项非常实用的功能。本篇将详细解释一个具体的示例，通过VB6.0来调用一个名为`ADOTestRPE`的存储过程，并测试其返回值、输入参数以及输出参数。
#### 一、准备工作
为了实现这个功能，我们需要准备以下几个组件：
1. **连接对象**：用于建立与数据库之间的连接。
2. **命令对象**：用于执行存储过程或SQL语句。
3. **参数对象**：用于传递给存储过程的参数。
4. **记录集对象**：用于接收存储过程返回的结果集。
#### 二、详细步骤
##### 1. 创建连接对象
创建一个新的`ADODB.Connection`对象，并设置连接字符串。示例代码如下：
```vb
Dim ADOCon As ADODB.Connection
Dim strConnect As String
strConnect = Driver={SQL Server};Server=(local);Uid=sa;Pwd=;Database=pubs
Set ADOCon = New ADODB.Connection
With ADOCon
.Provider = MSDASQL 使用OLE DB提供者
.CursorLocation = adUseServer 必须使用服务器端游标，这对于性能优化非常重要。
.ConnectionString = strConnect
.Open 打开连接
End With
```
这里需要注意的是，`.CursorLocation = adUseServer`这行代码非常重要，因为它指定了使用服务器端游标而不是客户端游标。这对于性能优化是非常关键的一步。
##### 2. 创建命令对象
接下来，创建一个`ADODB.Command`对象，并将其连接属性设置为我们之前创建的连接对象。同时指定命令类型为`adCmdStoredProc`，表示我们将执行的是存储过程。示例代码如下：
```vb
Dim ADOCmd As New ADODB.Command
Set ADOCmd.ActiveConnection = ADOCon
With ADOCmd
.CommandType = adCmdStoredProc
.CommandText = ADOTestRPE
End With
```
##### 3. 创建参数对象
为了传递参数给存储过程，我们需要创建多个`ADODB.Parameter`对象，并将它们添加到命令对象的参数集合中。示例代码如下：
```vb
创建并设置返回码参数
Dim ADOPrm As New ADODB.Parameter
Dim sParmName As String
sParmName = Return
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamReturnValue)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = -1
创建并设置输出参数
sParmName = Output
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamOutput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 999
创建并设置输入参数
sParmName = R1Num 返回第一结果集的行数
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 1
sParmName = P1Num 第一结果集中打印语句的数量
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
sParmName = E1Num 第一结果集中RAISERROR语句的数量
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
sParmName = R2Num 返回第二结果集的行数
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 1
```
##### 4. 执行存储过程
通过以上步骤，我们已经准备好所有必要的参数。接下来执行存储过程并获取结果集：
```vb
Dim rs As New ADODB.Recordset
rs.Open ADOCmd, , adOpenStatic, adLockOptimistic 获取记录集
```
#### 三、异常处理
为了保证程序的健壮性，我们需要进行错误处理。可以使用`On Error GoTo ErrHandler`来捕获可能出现的错误。
```vb
OnError GoTo ErrHandler
执行代码块...
Exit Sub
ErrHandler:
MsgBox An error occurred: & Err.Description, vbCritical + vbOKOnly, Error
5星
