为什么不行呢？各位高手，帮帮忙。

[hlf]

不能将存储过程中的Char类型的变量值传回VB，代码如下：
Private Sub Command1_Click()
Dim a As New ADODB.Connection
Dim cmdtxt As New ADODB.Command
Dim s As ADODB.Parameter
Dim s2 As ADODB.Parameter

a.Open "driver={SQL Server};server=server;uid=sa;pwd=sa;database=123"
cmdtxt.ActiveConnection = a
cmdtxt.CommandText = "abc"
cmdtxt.CommandType = adCmdStoredProc
Set s = cmdtxt.CreateParameter("output", adChar, adParamOutput)'此句出错
Set s2 = cmdtxt.CreateParameter("input", adInteger, adParamInput)
cmdtxt.Parameters.Append s
cmdtxt.Parameters.Append s2
s2 = 10
cmdtxt.Execute
MsgBox cmdtxt.Parameters("output").Value
End Sub
存储过程：
CREATE PROCEDURE abc (@a char(10) output,@b int) AS
SET @a=10+@b
GO

错误提示：Parameter 对象被不正确地定义。提供了不一致或不完整的信息。

[tante呃呃]

用向导生成一次看看就行了。因为我很久没用VB了。

[yangzhaoyu]

由它引起 cmdtxt.CommandText = "abc"

[hlf]

cmdtxt.CommandText = "abc"有什么错呢？

[hlf]

高手，帮帮忙嘛。不知道的也帮顶顶嘛。

[ljren_t]

你可以这样用,自动加入参数.
set cmdtxt.ActiveConnection = a
cmdtxt.CommandText = "abc"
cmdtxt.CommandType = adCmdStoredProc
cmdtxt.Parameters.Refresh
这样参数都已经在Parameters生成了.
你试一下.

[hlf]

TO:ljren_t(立志)　
谢谢，如果用这种方法的话，参数是根据什么来增加的呢？还有，我应该怎么
调用我想调用的参数呢？

[hlf]

TO:ljren_t(立志)　
谢谢。"这里最得要的一点就是command对象在有一个活运的连接相连的情况下."这句
话我不明白是什么意思？什么是"有一个活运的连接相连的情况下"？

[hlf]

TO:apollo(阿波罗)　
cmdtxt.CommandText = "abc”这句没有错。"abc"是存储过程名。
假如我把字符型变量改为整型变量就一切正常。

[hlf]

高手，帮帮忙嘛。不知道的也帮顶顶嘛。

[ljren_t]

参数是根据在数据库中的存储过程自动加入的.
调用和原来一样.

[ljren_t]

这里最得要的一点就是command对象在有一个活运的连接相连的情况下.
如果它的commandtext被指定,而且commandtype是adCmdStoredProc的话.
调用parameters的Refresh方法时command就会到数据库读一次,把所有的参数信息取加.

[apollo]

cmdtxt.CommandText = "abc”肯定不对

[ljren_t]

就是command.activeconnect对应一个打开的连接.
就像这样:
connect.open ""
set command.activeconnect=connect
再接着写就可以了.