Solved

Too few parametersin RS

Posted on 2007-11-26
4
293 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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

740 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