Command Output Parameter not returnimg.

[mark]

Hi all,

Can anyone tell me why this code fails to return the output parameter from
the SP.

VB.Net Code ----------------

Dim adoCmd As New ADODB.Command

With adoCmd

.CommandText = "insCarType"

.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc

.Parameters.Append(.CreateParameter("@CarType",
DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, 30, "Ford"))

.Parameters.Append(.CreateParameter("@intID",
DataTypeEnum.adInteger, ParameterDirectionEnum.adParamOutput, , 0))

.ActiveConnection = userConn

.Execute()

Return .Parameters(1).Value

End With

End VB.Net Code ------

SP Code -------

CREATE PROCEDURE [dbo].[insCarType]

( @CarType VARCHAR(30),
@intID INT = NULL OUTPUT )

AS

INSERT INTO CarTypes ( CarType ) VALUES (@CarType)

SET @intID = SCOPE_IDENTITY()

End SP Code -----------------

Many Thanks for any help you can give me

[Herfried K. Wagner [MVP]]

* "mark" <re***@group.com> scripsit:

Can anyone tell me why this code fails to return the output parameter from
the SP.

Although your problem is related to VB.NET + ADO Classic, consider
posting to this groups if you don't get an answer here:

<URL:news://news.microsoft.com/microsoft.public.dotnet.framework.adonet>

Web interface:

<URL:http://msdn.microsoft.com/newsgroups/?dg=microsoft.public.dotnet.framework.adonet>

- or -

<URL:news://news.microsoft.com/microsoft.public.vb.database.ado>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>