菜鸟问题，如何调用存储过程？

Question

有一个存储过程exp 输入参数a，输出参数b，请问我应该怎么调用这个存储过程，并把参数b的值赋值给vb里的变量？高手帮忙呀！

Answer 1

dim cn as new adodb.connection
cn.connection="..."
cn.open
cn.execute "exec exp('" & a & "','" & b & "')"

Answer 2

应该是：dim cn as new adodb.connection
cn.connectionstring="..."
cn.open
cn.execute "exec exp '" & a & "','" & b & "'"

Answer 3

Dim cmd As New ADODB.Command
Dim rsJJ As New ADODB.Recordset
cmd.ActiveConnection = Cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Rpt_grndjjtj"
cmd.CommandTimeout = 0
cmd.Parameters.Refresh
cmd.Parameters(1) = 参数1
cmd.Parameters(2) = 参数2
Set rsJJ = cmd.Execute()  '返回记录集

Answer 4

Dim cmd As New ADODB.Command
Dim rsJJ As New ADODB.Recordset
cmd.ActiveConnection = Cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "存储过程"
cmd.CommandTimeout = 0
cmd.Parameters.Refresh
cmd.Parameters("参数名1") = 参数1
cmd.Parameters("参数名2") = 参数2
if rsjj.state=1 then
   rsjj.close
end if
Set rsJJ = cmd.Execute()  '返回记录集//
这样的写法比较规范

Answer 5

数据库中的数据类型是float，在vb中我用的是single 对吗？

Answer 6

如楼上 ryuginka(ryuginka) 所说的，
想把取得的值赋给变量只要
rsJJ.fields(0).value
就可以了。

Answer 7

http://blog.csdn.net/online/archive/2004/08/05/66376.aspx