vb调用mysql 输入参数_MYSQL存储过程VB调用方法。

MYSQL存储过程VB调用方法。

Private Sub Command1_Click()

Dim MyComm As New ADODB.Command      '定义一个命令对象

Dim Rs_GetList As New ADODB.Recordset '定义一个记录集对象

Dim param As ADODB.Parameter         '定义一个参数对象

With MyComm

.ActiveConnection = Cn           '数据连接

.CommandText = "pp"              '存储过程名称

.CommandType = adCmdStoredProc   '表明这是一个存储过程

.Prepared = True                 '要求将SQL命令先行编译

Set param = .CreateParameter("@a", adInteger, adParamInput, 4, 3)   '申明一个参数

.Parameters.Append param         '把参数添加到参数列表里

Set Rs_GetList = .Execute        '执行此存储过程，返回记录集

End With

While Not Rs_GetList.EOF             '循环打印记录集的字段

Debug.Print Rs_GetList.Fields(0).Value

Rs_GetList.MoveNext

Wend

End Sub

相关文档：

代码如下