Debugging Problem

Guest_imported · Jun 24, 2002

Please take a look at this code and tell me why I am having this error:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/EmpDB/Results.asp, line 111
This error on this line:

Call objEmpDetailCommand.Execute()

<HTML>
<HEAD>
<link rel="stylesheet" href="default.css" type="text/css">

</HEAD>
<BODY>
<%
'*******************************************************************************
'* Name: Results.asp
'* Description:
'* Returns an open ADO Connection object.
'*******************************************************************************
Private Function GetDBConnection

Const cConnection = "DSN=EmpDB;UID=scott;PWD=tiger"

Dim objConnection

'* Create the connection object
Set objConnection = Server.CreateObject("ADODB.Connection&quot

objConnection.ConnectionString = cConnection
objConnection.CursorLocation = 3 '* adUseClient
objConnection.Open

'* Return the new connection back to the calling routine
Set GetDBConnection = objConnection

End Function
%>


Selected First Name:<%=Request.Form("FirstName&quot

%>
<%
'************************************************************************
'* Call the GetEmployeeDetails procedure to get their name etc
'************************************************************************
Const cProcName = "{call stp_TEST_GetCV(?, ?, ?, ?, ?,?,?,?,?,?,?,?,?,?)}"

'************************************************************************
'* The position of parameters in the stored proc
'************************************************************************
Const cFirstNameParam = 0
Const cLastNameParam = 1
Const cEmailParam = 2
Const cPhoneParam = 3
Const cFaxParam = 4
Const cAddress1Param = 5
Const cAddress2Param = 6
Const cCityParam = 7
Const cStateParam = 8
Const cZipCodeParam = 9
Const cCountryParam = 10
Const cEducationDetailsParam = 11
Const cYearExperienceParam = 12
Const cExperienceDetailsParam = 13

Dim objEmpDetailCommand '* Command object to execute Stored Procedure

'************************************************************************
'* Set up the command object
'************************************************************************
Set objEmpDetailCommand = Server.CreateObject("ADODB.Command&quot

objEmpDetailCommand.ActiveConnection = GetDBConnection()
objEmpDetailCommand.CommandText = cProcName
objEmpDetailCommand.CommandType = 1 '** adCmdText

'************************************************************************
'* We need to set the direction and value for the input - number 1
'************************************************************************
objEmpDetailCommand.Parameters(cFirstNameParam).Direction = 3
objEmpDetailCommand.Parameters(cLastNameParam).Direction = 3
objEmpDetailCommand.Parameters(cPhoneParam).Direction = 3

'* adParamInput
objEmpDetailCommand.Parameters(cFirstNameParam).Value = Request.Form("FirstName&quot

'* Set the input param to the selected ID

'************************************************************************
'* All the others are output so set them so
'************************************************************************
objEmpDetailCommand.Parameters(cEmailParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cFaxParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cAddress1Param).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cAddress2Param).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cCityParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cStateParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cZipCodeParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cCountryParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cEducationDetailsParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cYearExperienceParam).Direction = 2 '* adParamOutput
objEmpDetailCommand.Parameters(cExperienceDetailsParam).Direction = 2 '* adParamOutput

'************************************************************************
'* Execute the stored proc
'************************************************************************
Call objEmpDetailCommand.Execute()

'************************************************************************
'* Now we can show the values
'************************************************************************
%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>First Name:</td><td><%=objEmpDetailCommand.Parameters(cFirstNameParam).Value%></td>
</tr>
<tr>
<td>Last Name:</td><td><%=objEmpDetailCommand.Parameters(cLastNameParam).Value%></td>
</tr>
<tr>
<td>Email:</td><td><%=objEmpDetailCommand.Parameters(cEmailParam).Value%></td>
</tr>
<tr>
<td>Phone:<td><%=objEmpDetailCommand.Parameters(cPhoneParam).Value%></td>
</tr>
<tr>
<td>Fax:</td><td><%=objEmpDetailCommand.Parameters(cFaxParam).Value%></td>
</tr>
<tr>
<td>Address1:</td><td><%=objEmpDetailCommand.Parameters(cAddress1Param).Value%></td>
</tr>
<tr>
<td>Address2:</td><td><%=objEmpDetailCommand.Parameters(cAddress2Param).Value%></td>
</tr>
<tr>
<td>City:<td><%=objEmpDetailCommand.Parameters(cCityParam).Value%></td>
</tr>

<tr>
<td>State:</td><td><%=objEmpDetailCommand.Parameters(cStateParam).Value%></td>
</tr>
<tr>
<td>Zip:</td><td><%=objEmpDetailCommand.Parameters(cZipCodeParam).Value%></td>
</tr>
<tr>
<td>Country:</td><td><%=objEmpDetailCommand.Parameters(cCountryParam).Value%></td>
</tr>
<tr>
<td>Education Details:<td><%=objEmpDetailCommand.Parameters(cEducationDetailsParam).Value%></td>
</tr>

<tr>
<td>Years Of Exp:</td><td><%=objEmpDetailCommand.Parameters(cYearExperienceParam).Value%></td>
</tr>
<tr>
<td>Details Of Exp:</td><td><%=objEmpDetailCommand.Parameters(cExperienceDetailsParam).Value%></td>
</tr>
</table>

<% '************************************************************************
'* And that's it - so close objEmpDetailCommand
'************************************************************************
Set objEmpDetailCommand = Nothing
%>

</BODY>
</HTML>

Thanks for sharing your knowledge!!

JuanitaC · Jun 25, 2002

Try taking off the Call from the line you are encountering the error.

objEmpDetailCommand.Execute()

Guest_imported · Jun 25, 2002

But I need that in order to execute the code.
Actually, I tried commenting it out and it just displayed the form fields without their data.

JuanitaC · Jun 25, 2002

Don't remove the whole line, just take the Call statement off of it, so this:

'***********************************************************
'* Execute the stored proc
'*******************************************************
Call objEmpDetailCommand.Execute()

Becomes this:

'***********************************************************
'* Execute the stored proc
'*******************************************************
objEmpDetailCommand.Execute()

Guest_imported · Jun 25, 2002

thanks JuanitaC!
I tried both, even before I posted my thread.
My thinking is that there is some bug in the code that this
objEmpDetailCommand.Execute() is having problem with.
Problem is, I cannot figure it out.
I have already spent two days on this code.
sad

codestorm · Jun 25, 2002

While the error doesn't exactly point to it, are you sure you can add Parameters to a Command object without
1. using set ParameterObject=CommandObject.CreateParameter (details )and CommandObject.Parameters.Append ParameterObject, or
2. using CommandObject.Refresh
? codestorm
Fire bad. Tree pretty. - Buffy
select * from population where talent > 'average'
<insert witticism here>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Debugging Problem

Guest_imported

New member

JuanitaC

Programmer

Guest_imported

New member

JuanitaC

Programmer

Guest_imported

New member

codestorm

Programmer

Similar threads

Part and Inventory Search

Sponsor