MS SQL2000数据库中写了个名字叫dt_tpyme的存储过程，在SQL查询分析器中是这样可以运行的(内见)。那么在VB中如何带参数执行这个dt_tpyme存储过程？(参数需要是变量)

Question

--------------------------------------------------------------------------------
在SQL查询分析器中是这样执行dt_tpyme的
DECLARE @RC int
DECLARE @srvname varchar(30)
DECLARE @login varchar(30)
DECLARE @password varchar(30)
DECLARE @dbname varchar(30)
DECLARE @tbname varchar(30)
DECLARE @colname varchar(30)
DECLARE @filename varchar(30)
DECLARE @whereclause varchar(40)
DECLARE @direction char(1)
— 设置参数值......
EXEC @RC = dt_tpyme @srvname, @login, @password, @dbname, @tbname, @colname, @filename, @whereclause, @direction 
--------------------------------------------------------------------------------
哪么在VB中如何执行？

Answer 1

Dim strS As String '定义一变量
Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
Dim ReturnValue As Integer '调用存储过程的返回值
adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1为窗体中的ADO控件，并已成功连接数据库
adoconn.Open
Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
adocomm.CommandText = "doc_ProcName" '设置Command对象源。
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么，它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。 
adocomm.Parameters(1) = "1"
adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字
adocomm.Execute
ReturnValue = adocomm.Parameters(0) '存储过程的返回值，返回0则成功执行。
strS = adocomm.Parameters(2) '把存储过程的输出参数的值赋给变量strS

Answer 2

re : jhone99 不好意思，我好像没看明白，我要带参数 “EXEC dt_tpyme ”，上面的代码中，那句执行是在执行 dt_tpyme 过程？代码中我没看到 dt_tpyme 的字样啊

Answer 3

to lz
adocomm.CommandText = "doc_ProcName" '设置Command对象源。
这里就是设置你的存储过程的名称

Answer 4

re : xiaoc1026 
呵呵，是的，看第二遍的时候，明白了