请教各位大哥！！

[windywalk]

请问怎样才可以在VB中调用执行SQL Server 2000中的带参数的存储过程。拜托啦！

[seamanc2003]

给个例子给你看一下：
---------------------------------------------------------------------------------
Public Function GetStockLedgerSP(ByVal FromLoc As String, ByVal ToLoc As String) As Long
On Error GoTo ErrHandler
Err.Clear

Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim SQL As String, MyName As String

MyName = ClassName + "." + "GetStockLedgerSP"

SQL = "sp_STOCKLEDGER "

Set cmd = New ADODB.Command
With cmd
.CommandType = adCmdStoredProc
.CommandText = SQL
.ActiveConnection = cnStrData
.CommandTimeout = 3600
End With

FromLoc = Trim(FromLoc)
Set param = New ADODB.Parameter
With param
.Direction = adParamInput
.Size = Len(FromLoc)
If Not (.Size > 0) Then
.Size = 1
End If
.Type = adVarWChar
.Value = FromLoc
End With
Call cmd.Parameters.Append(param)

ToLoc = Trim(ToLoc)
Set param = New ADODB.Parameter
With param
.Direction = adParamInput
.Size = Len(ToLoc)
If Not (.Size > 0) Then
.Size = 1
End If
.Type = adVarWChar
.Value = ToLoc
End With
Call cmd.Parameters.Append(param)

GetStockLedgerSP = ExecuteSQL(cmd)

Exit_Point:
If Not (cmd Is Nothing) Then
Set cmd = Nothing
End If
If Not (param Is Nothing) Then
Set param = Nothing
End If
Exit Function

ErrHandler:
'Err.Raise Err.Number, Err.Source, Err.Description
LogError (MyName)
GetStockLedgerSP = -1
Resume Exit_Point
End Function '- GetStockLedgerSP

[CPlusPlus6]

看电子工业出版社的《VB6数据库编程》，好象是在1百多页的地方



严重关注！

[seamanc2003]

我提出例子的参数是输入参数，有没有做输出参数的？如何使用？希望讨论