Question

在VB中如何调用带参数的SP_EXECUTESQL[系统存储过程]呀!谢谢了!

在VB中如何调用带参数的SP_EXECUTESQL呀!我找了好多资料都没有找到答案,看哪位高手能帮个忙!最好是能给个完整的代码呀!

Answer 1

VB中调用存储过程的几种方法
[ 2006-12-27 17:54:00 | By: ybl1987 ]

2
推荐'第一种方法
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

Answer 2

使用ADO中的命令对象可以执行.你可以参考一下明日科技公司出版的《VB控件参考手册》