Microsoft OLE DB Provider for SQL Server error '80040e10'

Question

san

Microsoft OLE DB Provider for SQL Server error '80040e10'

Hello Experts:Im using the following code to pass the problemstatusID to to the next page so I can use this information:<%Response.Write("Edit")%>And using the following code to extract the information:ProblemStatusID=Request.QueryString("ProblemStatusID")Whenever I click on the Edit button I am getting error message"Microsoft OLE DB Provider for SQL Server error '80040e10' Procedure or function 'GetInformationForProblemStatusId' expects parameter '@problemStatusId', which was not supplied. /helpdesk/test/problemdetails.asp, line 32 " This question is,I am not sure why I am getting this error message Can anybody help me regarding this issue or anybody has any other idea to the form using this technique?ThanksSANHere is the code and the stored procedure I am usingALTER Proc [dbo].[GetAllOpenProblems]As Select a.ProblemStatusId,a.ProblemStatus,b.TeamMemberName,c.problemTitle,e.DepartmentN
ame From (((ProblemsUsersDeptsReps dInner Join Departments eon d.DepartmentID = e.DepartmentID)Inner Join Problems con d.ProblemID = c.ProblemID)Inner Join ProblemStatus aon d.ProblemsUsersDeptsRepsID = a.ProblemsUsersDeptsRepsID)Inner Join TeamMembers b on a.TeamMemberId = b.TeamMemberId Where UPPER(a.ProblemStatus) = 'OPEN'_________________________________________________________<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> ! <%Dim strSQL, result' Set SQL statementstrSQL = "GetAllOpenProblems"'Execute teh SQL and obtain resultsetSet result = objconn.Execute(strsql)'Check for ErrorsIf objconn.Errors.Count > 0 thenResponse.Write("Error Occurred:
")Else%> <%Response.Write("The following Tickets are opened today")%> <%Do Until result.EOF%><%ProblemStatusID=Request.QueryString("ProblemStatusID") %><%result.MoveNextloopEnd If'Close Database'objconn.Close%>

<%Response.Write("Problem ID")%>	<%Response.Write("Team Member Name")%>	<%Response.Write("Subject")%>	<%Response.Write("Component")%>	<%Response.Write("Status of the Problem")%>	<%Response.write("Edit")%>
<%Response.write(" " & result("ProblemStatusID") & " ")%>	<%Response.write(" " & result("TeamMemberName") & " ")%>	<%Response.write(" " & result("ProblemTitle") & " ")%>	<%Response.write(" " & result("DepartmentName") & " ")%>	<%Response.write(" " & result("ProblemStatus") & " ")%>	<%Response.Write("Edit")%>

-------------------------------------------------------<%@ LANGUAGE="VBScript" %><% Option Explicit 'Buffer the response, so Response.Expires can be used Response.Buffer = TRUE%> !

DetailsforProblem

ProblemID:	<%Response.write(" " & result("ProblemStatusID") & " ")%>
UserName	<%Response.write(" " & result("UserName") & " ")%>
EMail:	<%Response.write(" " & result("Email") & " ")%>
Location:	<%Response.write(" " & result("Location") & " ")%>
Phone	<%Response.write(" " & result("Phone") & " ")%>
Component:	<%Response.write(" " & result("DepartmentName") & " ")%>
NH	<%Response.write(" " & result("NH") & " ")%>
SSN:	<%Response.write(" " & result("SSN") & " ")%>
IsRepresentativeInvolved:	<%Response.write(" " & result("IsRepresentativeInvolved") & " ")%>
RepresentativeSSN:	<%Response.write(" " & result("RepresentativeSSN") & " ")%>
RepresentativeZipCode:	<%Response.write(" " & result("RepresentativeZipCode") & " ")%>
OrganizationName:	<%Response.write(" " & result("OrganizationName") & " ")%>
IsProblemQuestion:	<%Response.write(" " & result("IsProblemQuestion") & " ")%>
IsComment:	<%Response.write(" " & result("IsComment") & " ")%>
ProblemTitle:	<%Response.write(" " & result("ProblemTitle") & " ")%>
ProblemTitle:	<%Response.write(" " & result("ProblemDescription") & " ")%>
Attachment:	<%Response.write(" " & result("Attachment") & " ")%>
StartDate:	start_date
CloseDate:	close_date
"Solution":
"solution"

Status: Open Jan 08, 2009 - 10:19 AM

asp

Comments (0) | New Comment

Do you have the same question? Follow this Question

Answer this question Report it

3answers

Answers

san

Jan 08, 2009 - 11:28 AM

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> ! <%Dim strSQL, result' Set SQL statementstrSQL = "GetAllOpenProblems"'Execute teh SQL and obtain resultsetSet result = objconn.Execute(strsql)'Check for ErrorsIf objconn.Errors.Count > 0 thenResponse.Write("Error Occurred:
")Else%> <%Response.Write("The following Tickets are opened today")%> <%Do Until result.EOF%> <% Dim ProblemStatusID ProblemStatusID=Request.QueryString("ProblemStatusId") %><%result.MoveNextloopEnd If'Close Database'objconn.Close%>

<%Response.Write("Problem ID")%>	<%Response.Write("Team Member Name")%>	<%Response.Write("Subject")%>	<%Response.Write("Component")%>	<%Response.Write("Status of the Problem")%>	Edit
<%Response.write(" " & result("ProblemStatusId") & " ")%>	<%Response.write(" " & result("TeamMemberName") & " ")%>	<%Response.write(" " & result("ProblemTitle") & " ")%>	<%Response.write(" " & result("DepartmentName") & " ")%>	<%Response.write(" " & result("ProblemStatus") & " ")%>	">Edit

--------------------------<%@ LANGUAGE="VBScript" %><% Option Explicit 'Buffer the response, so Response.Expires can be used Response.Buffer = TRUE%> !

DetailsforProblem

ProblemID:	<%Response.write(" " & result("ProblemStatusID") & " ")%>
UserName	<%Response.write(" " & result("UserName") & " ")%>
EMail:	<%Response.write(" " & result("Email") & " ")%>
Location:	<%Response.write(" " & result("Location") & " ")%>
Phone	<%Response.write(" " & result("Phone") & " ")%>
Component:	<%Response.write(" " & result("DepartmentName") & " ")%>
NH	<%Response.write(" " & result("NH") & " ")%>
SSN:	<%Response.write(" " & result("SSN") & " ")%>
IsRepresentativeInvolved:	<%Response.write(" " & result("IsRepresentativeInvolved") & " ")%>
RepresentativeSSN:	<%Response.write(" " & result("RepresentativeSSN") & " ")%>
RepresentativeZipCode:	<%Response.write(" " & result("RepresentativeZipCode") & " ")%>
OrganizationName:	<%Response.write(" " & result("OrganizationName") & " ")%>
IsProblemQuestion:	<%Response.write(" " & result("IsProblemQuestion") & " ")%>
IsComment:	<%Response.write(" " & result("IsComment") & " ")%>
ProblemTitle:	<%Response.write(" " & result("ProblemTitle") & " ")%>
ProblemTitle:	<%Response.write(" " & result("ProblemDescription") & " ")%>
Attachment:	<%Response.write(" " & result("Attachment") & " ")%>
StartDate:	start_date
CloseDate:	close_date
"Solution":
"solution"

0

Report it

Comments (0) | New Comment

san

Jan 08, 2009 - 02:52 PM

<%@ LANGUAGE="VBScript" %><% Option Explicit 'Buffer the response, so Response.Expires can be used Response.Buffer = TRUE%> !

DetailsforProblem

<%Do Until result.EOF%> <%result.MoveNextloopEnd If'Close Database'objconn.Close%>

UserName	<%Response.write(" " & result("UserName") & " ")%>
EMail:	<%Response.write(" " & result("UserEmail") & " ")%>

0

Report it

Comments (0) | New Comment

san

Jan 12, 2009 - 02:51 PM

Search.asp<%' Declare our variables... always good practice!Dim strURL ' The URL of this page so the form will work ' no matter what this file is named.Dim cnnSearch ' ADO connectionDim rstSearch ' ADO recordsetDim strDBPath ' path to our Access database (*.mdb) fileDim strSQL ' The SQL Query we build on the flyDim strSearch ' The text being looked for' Retreive the URL of this page from Server VariablesstrURL = Request.ServerVariables("URL")' Retreive the term being searched for. I'm doing it on' the QS since that allows people to bookmark results.' You could just as easily have used the form collection.strSearch = Request.QueryString("search")'strSearch = Replace(strSearch, "'", "''")' Since I'm doing this all in one page I need to see if anyone' has searched for something. If they have we hit the DB.' O/W I just show the search form and quit.%>

Search for any details regarding SOST contact form. (% returns all)

" method="get"> " />

[Try 'am' or 'er' for an example]

<%If strSearch <> "" Then' MapPath of virtual database file path to a physical path.' If you want you could hard code a physical path here.strDBPath = Server.MapPath("database.mdb")' Create an ADO Connection to connect to the sample database.' We're using OLE DB but you could just as easily use ODBC or a DSN.set cnnSearch = Server.CreateObject("ADODB.Connection")' This line is for the Access sample database:cnnSearch.Open("Provider=SQLOLEDB.1;Password=helpdesk;Persist Security Info=True;User ID=HelpDesk;Initial Catalog=HelpDesk;Data Source=s9DCA3E") ' Build our query based on the input.strSQL = "SELECT a.ProblemStatusId, a.ProblemStatus, e.DepartmentName, c.ProblemTitle, c.ProblemDescription " _& "FROM (((ProblemsUsersDeptsReps d Inner Join Departments e on d.DepartmentId = e.DepartmentId) Inner Join Problems c on d.ProblemID = c.ProblemID) Inner Join ProblemStatus a on d.ProblemsUsersDeptsRepsId = a.ProblemsUsersDeptsRepsId) " _& "WHERE a.ProblemStatus = 'CLOSED' " _& "OR a.ProblemStatusId LIKE '%" & Replace(strSearch, "'", "''") & "%' " _& "OR e.DepartmentName LIKE '%" & Replace(strSearch, "'", "''") & "%' " _& "OR c.ProblemTitle LIKE '%" & Replace(strSearch, "'", "''") & "%' " _& "OR c.ProblemDescription LIKE '%" & Replace(strSearch, "'", "''") & "%' " _ & "OR a.ProblemStatus LIKE '%" & Replace(strSearch, "'", "''") & "%' " _& "ORDER BY a.ProblemStatusId;"' Execute our query using the connection object. It automatically' creates and returns a recordset which we store in our variable.Set rstSearch = cnnSearch.Execute(strSQL)' Display a table of the data in the recordset. We loop through the' recordset displaying the fields from the table and using MoveNext' to increment to the next record. We stop when we reach EOF.' For fun I'm combining some fields and showwing you can do more then' just spit out the data in the form it is in in the table.%><%Do While Not rstSearch.EOF%><% Dim ProblemStatusID ProblemStatusID=Request.QueryString("ProblemStatusId") %><%rstSearch.MoveNextLoop%>

ProblemID	Department	Title	Description	Status	View
<%= rstSearch.Fields("ProblemStatusId").Value %>	<%= rstSearch.Fields("DepartmentName").Value %>	<%= rstSearch.Fields("ProblemTitle").Value %>	<%= rstSearch.Fields("ProblemDescription").Value %>	<%= rstSearch.Fields("ProblemStatus").Value %>	">View

<%' Close our recordset and connection and dispose of the objectsrstSearch.CloseSet rstSearch = NothingcnnSearch.CloseSet cnnSearch = NothingEnd If%>

0

Report it

Comments (0) | New Comment

Answer this question

Share Your Own Experience & Expertise

We look to ensure that every question is answered by the best people with relevant expertise and experience, the best answers include multiple perspectives. Do you have relevant expertise or experience to contribute your answer to any of these commonly asked questions?

About Quomon

Quomon is a network of IT professionals from around the world, collaborating by sharing knowledgeable answers in their specific field of expertise.

Ask your question here

Browse by Topic

Recently Active Members

stewartraymond12

198

saraspence

111

terryWheel

111

MonicaSocha

141

Tools

Help