Question

vb 调用 sql 存储过程问题

存储过程：proc_thjl (@startDt DateTime, @endDt DateTime)
VB调用
Dim sql As String
dim constr as string
Dim adoconn As New ADODB.Connection
Dim adocomm As New ADODB.Command
Dim ReturnValue As Integer
constr = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=linkct;Data Source=192.168.168.102"
Adodc1.ConnectionString =constr
adoconn.ConnectionString = Adodc1.ConnectionString
adoconn.Open constr
Set adocomm.ActiveConnection = adoconn
adocomm.CommandText = "proc_thjl"
adocomm.CommandType = adCmdStoredProc
adocomm.Parameters(1) = "1"
adocomm.Parameters(2) = "OutputParameters"
adocomm.Execute
ReturnValue = adocomm.Parameters(0)
sql = adocomm.Parameters(2)

parameters 什么意思啊，这个语句我改怎么改？
提示出错对象：adodb.Parameters
应用程序在当前操作中使用的错误类型的值。

Answer 1

前面设置dim para1 ,para2 As ADODB.Parameter
例如：
adocomm.CommandText = "proc_thjl"
adocomm.CommandType = adCmdStoredProc
set para1 = adocomm.CreateParameter("@sname", adChar, adParamInput, 20, "参数值")输入参数
Set para2 = adocomm.CreateParameter("@sdept", adChar, adParamOutput, 20)输出参数
adocomm.Parameters.Append para1
adocomm.Parameters.Append para2

Set rs = .Execute '返回记录集

Answer 2

http://baike.baidu.com/view/2023986.htm

Answer 3

对应的procedure的参数