Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set .ActiveConnection = CurrentProject.Connection
.CommandType = adCmdStoredProc
.CommandText = "testD"
.Parameters.Append .CreateParameter("@nVal", adInteger, adParamInput, 4, intSomeValue)
.Parameters.Append .CreateParameter("@Dval", adInteger, adParamOutput, 4)
'Grab the output parameter value
Set cmd = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.