vb调用mysql存储过程_vb对数据库操作用存储过程

存储过程如下

create  proc sp_recordset

@bbb int

as

select * from aaa where bbb = @bbb

vb代码如下：

Dim cmd As ADODB.Command

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim ADOPrm

Set ADOPrm = New ADODB.Parameter

Set rs = New ADODB.Recordset

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_PurchaseOrder;Data Source=."

conn.Open

Set cmd = New ADODB.Command

cmd.CommandType = adCmdStoredProc

cmd.ActiveConnection = conn

cmd.CommandText = "sp_recordset"

Set ADOPrm = cmd.CreateParameter("@bbb", adInteger, adParamInput)

cmd.Parameters.Append ADOPrm

cmd.Parameters("@bbb").Value = "123"

Set rs = cmd.Execute()

MsgBox rs(0) & rs(1)