|
Set conn=CreateObject("ADODB.Connection")
Set res=CreateObject("ADODB.Recordset")
Set cmd=CreateObject("ADODB.Command")
conn=<your connection>
Set cmd.ActiveConnection=conn
cmd.CommandText =<your procedure full name>'Here supposes it has 2 parameters. First is input value and another is output value.
cmd.Parameters.Append cmd.CreateParameter(<parameter1 name>,5,1,30,<parameter1 value>)'input value
cmd.Parameters.Append cmd.CreateParameter(<parameter2 name>,5,2,30,<parameter2 value>) 'output value
Set res = cmd.Execute()
|
|