Coś się dogrzebałem - ale nie działa
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "proceduraSQL" 'proceduraSQL( @Id int , @Rok int , @Mc int )
cmd.Parameters.Append cmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
cmd.Parameters.Append cmd.CreateParameter("Id", adInteger, adParamInput, 4, 1)
cmd.Parameters.Append cmd.CreateParameter("Rok", adInteger, adParamInput, 4, 2021)
cmd.Parameters.Append cmd.CreateParameter("Mc", adInteger, adParamInput, 4, 2)
cmd.Execute Options:=adExecuteNoRecords
msgbox cmd.Parameters("RETURN_VALUE") 'tu powinna zwrócić wartość ale zwraca 0
msgbox cmd.Parameters("PrcId")
Pomoże ktoś?
Pozdrawiam
Daniel