[求助]ACCESS存储过程中的参数传递问题

徐阿鹏

Dim cmd As New ADODB.Command

Dim Par As New ADODB.Parameter

Set cmd.ActiveConnection = CurrentProject.Connection

Set Par = cmd.CreateParameter("@选项", adCurrency, adParamInput, 4, 选项)

cmd.Parameters.Append Par

Set Par = cmd.CreateParameter("@对应公司", adVarChar, adParamInput, 50, IIf(IsNull(公司), "", 公司))

cmd.Parameters.Append Par

Set Par = cmd.CreateParameter("@款项来源去向", adVarChar, adParamInput, 50, IIf(IsNull(客户名称), "", 客户名称))

cmd.Parameters.Append Par

Set Par = cmd.CreateParameter("@金额", adCurrency, adParamInputOutput, 8, 0)

cmd.Parameters.Append Parcmd.CommandText = "存储过程名"

cmd.CommandType = adCmdStoredProc

cmd.Execute如果是逗号,就用","标明,这样应该可以了吧?