vb 调用存储过程

'第一种方法
Dim conn As String
Dim cn As New adodb.Connection
Dim cm As New adodb.Command
conn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Stu"
cn.ConnectionString = conn
cn.Open
cm.ActiveConnection = cn
cm.CommandText = "vag" '存储过程名
cm.CommandType = adCmdStoredProc
cm.Parameters.Item("@Num").Value = "020301"  '输入参数的值
cm.Execute
MsgBox cm.Parameters.Item("@val").Value '存储过程式的返回值

'第二种方法
Set rs = cm.CreateParameter("Num", adChar, adParamInput, 6, "020301")
cm.Parameters.Append rs
Set rs = cm.CreateParameter("val", adChar, adParamOutput, 6)
cm.Parameters.Append rs

Dim ado as ADODC 
ado.ConnectionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Initial Catalog=" & Data_Name & ";Data Source=" & server_name

其中User-Pwd是用户密码；User_Name是用户名；Data_Name是数据库名；server_name是服务器名。

连接数据库成功后就可以调用存储过程执行操作。

通过Command对象的Parameters集合向所调用的存储过程传递参数，其中对象Parameters（0）为执行存储过程的返回值，返回值为0则执行存储过程成功；

’第三种方法
adocomm.Parameters(1) = "1" 
adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字 
adocomm.Execute 
ReturnValue = adocomm.Parameters(0) '存储过程的返回值，返回0则成功执行。 
strS = adocomm.Parameters(2) '把存储过程的输出参数的值赋给变量strS