I have a parameterised query stored in Access:
==============================================
PARAMETERS rub Double, pCode String;
SELECT Min(competition.price_rub*sqr(t_main.per_pack/competition.quantity))/[rub]
FROM competition, analogs, t_main
WHERE analogs.af_product=[pCode]
AND
analogs.af_product=t_main.pr_code
AND
analogs.direct_analog=yes
AND
analogs.competitor_id=competition.id;
================================================

It works when run in Access
Yet when ran it from ASP using
    objCom.CommandText=QueryName&" "& CDbl(par1)&",'"&par2&"'" set objRS=objCom.Execute
It returns
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.

As a side effect, the PARAMETETRS close of the stored query gets changed to
PARAMETERS rub IEEEDouble, pCode Text ( 255 );

I swopped the order of the parameters in objCom.CommandText - no change.
VireType() for the parameters (they are taken from variables) returns 5 (double precision float) and 8 (string) respectively.

What else should I check?

Do not pass parameters. Instead create the sql string from the asp page.



Sal

Good idea, thanks

There is nothing wrong with using a parametised query - you end us with less messy string concatenation in your ASP page. However, if you want to use something other than the default type, you should use an ADO Command object, and append a Parameter object, and set an appropriate type.

Cheers
Ken

Microsoft MVP - Windows Server (IIS)
www.adOpenStatic.com

Thanks
Where and how do I set an appropriate type?

    Dim cmd As New ADODB.Command
    Dim param As ADODB.Parameter
    Dim rc As Long

    ' no timeouts
    AssignProcessCodes = 0
    Conn.ConnectionTimeout = 0
    cmd.CommandTimeout = 0
    Conn.Open m_strCon
    Set cmd.ActiveConnection = Conn
    'create procedure absp_GBSReturnPeriods
    ' @haztype int = 1,
    ' @StudyCaseId int = 1,
    ' @AnalysisOptID int = 0
    cmd.CommandText = "absp_GBSReturnPeriods"
    cmd.CommandType = adCmdStoredProc

    ' prepare the 0th parameter as the SPs return code @rc int
    Set param = cmd.CreateParameter("rc", adInteger, adParamReturnValue)
    cmd.Parameters.Append param

    ' prepare the 1st parameter as @haztype int
    Set param = cmd.CreateParameter("haztype", adInteger, adParamInput)
    param.Value = m_HazType
    cmd.Parameters.Append param

    ' prepare the 2nd parameter as @StudyCaseID int
    Set param = cmd.CreateParameter("StudyCaseID", adInteger, adParamInput)
    param.Value = m_intStudyID
    cmd.Parameters.Append param

    ' prepare the 3rd parameter as @AnalysisOptID int
    Set param = cmd.CreateParameter("AnalysisOptID", adInteger, adParamInput)
    param.Value = m_AnalyseID
    cmd.Parameters.Append param

    ' execute the stored procedure
    cmd.Execute

    rc = cmd.Parameters("rc").Value

    ' show the results
    'Me.MousePointer = vbArrow
    If rc < 0 Then ...


---
tnt