Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Too few parametersin RS

Posted on 2007-11-26
4
291 Views
Last Modified: 2010-04-25
Hi

I have spenat ages putting together this query string in Access. Now I have it in the Recordset window in Dreamweaver I keep getting the good old:

Too few parameters expected one - response. I've tried various ways of rearranging it, taking out some of accesses brackets that I have done before. But can't solve this one.

Any Ideas please?

Thanks
<%
Dim RsProdsGen__ParamAgeFrom
RsProdsGen__ParamAgeFrom = "1"
If (Request.Form("frmagefrm") <> "") Then 
  RsProdsGen__ParamAgeFrom = Request.Form("frmagefrm")
End If
%>
<%
Dim RsProdsGen__ParamAgeTo
RsProdsGen__ParamAgeTo = "100"
If (Request.Form("frmageto") <> "") Then 
  RsProdsGen__ParamAgeTo = Request.Form("frmageto")
End If
%>
<%
Dim RsProdsGen__ParamGen
RsProdsGen__ParamGen = "b"
If (Request.Form("frmgen") <> "") Then 
  RsProdsGen__ParamGen = Request.Form("frmgen")
End If
%>
<%
Dim RsProdsGen__ParamPriceFrom
RsProdsGen__ParamPriceFrom = "10"
If (Request.Form("frmpricefrm")  <> "") Then 
  RsProdsGen__ParamPriceFrom = Request.Form("frmpricefrm") 
End If
%>
<%
Dim RsProdsGen__ParamPriceTo
RsProdsGen__ParamPriceTo = "30"
If (Request.Form("frmpriceto")   <> "") Then 
  RsProdsGen__ParamPriceTo = Request.Form("frmpriceto")  
End If
%>
<%
Dim RsProdsGen
Dim RsProdsGen_cmd
Dim RsProdsGen_numRows
 
Set RsProdsGen_cmd = Server.CreateObject ("ADODB.Command")
RsProdsGen_cmd.ActiveConnection = MM_MagicalRooms_STRING
RsProdsGen_cmd.CommandText = "SELECT tblProducts.ProdID, tblProducts.ProdName, Min(tblPrice.Price) AS MinOfPrice, Min(tblPrice.Price) AS MinOfPrice1, Count(tblPrice.Price) AS CountOfPrice, tblImages.Image FROM (tblProducts LEFT JOIN tblImages ON tblProducts.ProdID = tblImages.ProdID) LEFT JOIN tblPrice ON tblProducts.ProdID = tblPrice.PriceProdID WHERE tblProducts.ProdAgeFrom <= ? AND tblProducts.ProdAgeTo<= ? AND tblProducts.ProdGender =  ? Or tblProducts.ProdGender ="u" AND tblImages.Featured=True GROUP BY tblProducts.ProdID, tblProducts.ProdName, tblImages.Image HAVING  (Min (tblPrice.Price)) >= ? AND (Min (tblPrice.Price))<= ?" 
RsProdsGen_cmd.Prepared = true
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param1", 5, 1, -1, RsProdsGen__ParamAgeFrom) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param2", 5, 1, -1, RsProdsGen__ParamAgeTo) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param3", 200, 1, 255, RsProdsGen__ParamGen) ' adVarChar
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param4", 5, 1, -1, RsProdsGen__ParamPriceFrom) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param5", 5, 1, -1, RsProdsGen__ParamPriceTo) ' adDouble
 
Set RsProdsGen = RsProdsGen_cmd.Execute
RsProdsGen_numRows = 0
%>

Open in new window

0
Comment
Question by:swordfishsoup
4 Comments
 
LVL 15

Expert Comment

by:cquinn
ID: 20350822
This error is more often than not caused by a misspelling of a field or table name
0
 

Accepted Solution

by:
swordfishsoup earned 0 total points
ID: 20350897
No it was th "u" change this to ParamUni and set the value to u and works fine.

Thanks anyway - must be a dreamweaver quirk
0
 
LVL 1

Expert Comment

by:Computer101
ID: 20560027
Closed, 500 points refunded.
Computer101
EE Admin
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question