Calling Stored Procedures in VBS

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Calling Stored Procedures in VBS

Logged in as: Guest

arrSession:exec spGetSession 2,2,1404

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Calling Stored Procedures in VBS
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Calling Stored Procedures in VBS - 9/28/2004 4:00:59 AM

hiszorn

Posts: 1
Score: 0
Joined: 9/28/2004
From:
Status: offline

I have this code written but I am not sure what else I need. I am getting an error on ADODB.Command that the arguements are incorrect. Does anyone have any experience with this?

Function MyFunction0( )
dim cmdGetVoucher
dim prmIncDec
dim prmVoucherNum
dim prmErrorState

Set cmdGetVoucher = CreateObject("ADODB.Command")
cmdGetVoucher.ActiveConnection = strConn
cmdGetVoucher.CommandText = "GetNextVoucher"
cmdGetVoucher.CommandType = adCmdStoredProc

Set prmIncDec = Command.CreateParameter ("@I_tInc_Dec",adTinyInt, adInput,1, 1)
cmdGetVoucher.Parameters.Append prmIncDec
Set prmVoucherNum = Command.CreateParameter ("@O_vVoucherNumber", adVarChar, adOutput,17)
cmdGetVoucher.Parameters.Append prmVoucherNum
Set prmErrorState = Command.CreateParameter
("@O_iErrorState", adInt,adOutput,5)
cmdGetVoucher.Parameters.Append prmErrorState

cmdGetVoucher.execute
MyFunction0 = prmVoucherNum.value
set cmdGetVoucher = nothing

End Function