vb6.0能向SQL的存储过程传递参数，如果可以的话如何传递

[1976dragon2003]

vb6.0能向SQL的存储过程传递参数，如果可以的话如何传递

[qqqdong]

可以呀，使用Parameter

[caliphliao]

Private Function NewFID() As String
On Error GoTo NewFID_Err
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = strConn
.CommandType = adCmdStoredProc
.CommandText = "GetNewsendId"
.Parameters.Append .CreateParameter("custId", adVarChar, adParamInput, 20, "JME")
.Parameters.Append .CreateParameter("ID", adVarChar, adParamOutput, 10)
.Execute
End With
NewFID = cmd.Parameters("ID")
Exit Function
NewFID_Err:
MsgBox Me.Caption & "|" & Err.Description, vbCritical, "NewFID"
End Function

[cloud1002]

mark

[liuyongpc]

没返回参数的话就不用怎么复杂了

[qpeg]

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sSql As String
cnn.Open GsConnectStr
Set cmd.ActiveConnection = cnn
sSql = "exec procdurename" & 参数1 & "," & 参数2
cmd.CommandText = sSql
cmd.Execute

[cloud1002]

mark

[lxcc]

也可以这样

cn.execute "sp_name @参数1=" & 值1 & ",@参数2='" & 值2 & "'..."