Esempio di una chiamata ad una stored procedure che passato un parametro di input, recupera il valore di ritorno e un paremetro di output.
'ADODB TYPE PARAMETERS
const adVarChar = 200
const adVarWChar = 202
const adInteger = 3
const adSmallInt = 2
const adChar = 129
const adBoolean = 11
const adDBDate = 133
const adDATE = 7
const adDBTIME =134
'ADODB TYPE DIRECTION
const adParamReturnValue = 4
const adParamInput = 1
const adParamOutput = 2
' ADO command types
adCmdText = 1
adCmdTable = 2
adCmdStoredProc = 4
adCmdUnknown = 8
'ADO cursor types
adOpenForwardOnly = 0
adOpenKeyset = 1
adOpenDynamic = 2
adOpenStatic = 3
' ADO lock types
adLockReadOnly = 1
adLockPessimistic = 2
adLockOptimistic = 3
adLockBatchOptimistic = 4
adUseClient = 3
adUseServer = 2
with cmd
.CommandType = adCmdStoredProc
.CommandText = "usp_tua_stored"
.ActiveConnection = cn 'oggetto connection
.Parameters.Append .CreateParameter("@RetVal", adInteger, adParamReturnValue) 'potresti anche utilizzare questo tipo di parametro
.Parameters.Append .CreateParameter("@shopper_id", adVarChar, adParamInput, 40, cstr(mscsshopperid)) 'questo server solo in input
.Parameters.Append .CreateParameter("@email", adVarChar, adParamOutput, 50) 'e questo è il parametro di output
.execute
msgbox("questo è il valore di ritorno " & .Parameters(0).Value)
msgbox("questo è il valore del parametro di output " & .Parameters(1).Value)
end with
