>>>I'm having to do a SQL Select on an Access 95 database.
>>>
>>>One of the fields is type Currency.
>>>
>>>The value passed over to compare it to is of type Numeric.... so I get an operator/operand type mismatch.
>>>
>>>What is an easy way to compare the two?
>>>
>>>Thanks
>>
>>Can you show some code? It supposed to work. Maybe can you try to explicitly convert using CCUR.
>
>Here is some of the code...
>*******************************************************************
>
> sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ;
> m_sMdbPath + "pccw.mdb;Persist Security Info=False"
>
> oConn = CREATEOBJECT("ADODB.Connection")
> oConn.OPEN(sConn)
>
>*Select the cursor tfipost
> SELECT tfipost
>*Look at all it's records
> SCAN
> DO chktrans WITH tfipost.ship_id, tfipost.ordertotal, m_lcMerchantNumber ,oConn
> ENDSCAN
>
> oConn.CLOSE
> RELEASE oConn
>
>ENDIF Post-Authorization
>
>***************************************************************************************
>* *
>* *
>***************************************************************************************
>PROCEDURE chkTrans
> PARAMETER m_ship_id, m_ordertotal, m_lcMerNum, m_oConn
>
>SUSPEND
>
> lsShip_id = PADR(ALLTRIM(STR(m_ship_id)),10)
> lsOrderTotal = STR(m_ordertotal,6,2)
>*-- Get orders for Post-Authorization.
>
> sSQL = "SELECT trans.* " + ;
> "FROM trans " + ;
> "WHERE trans.ticket = '" + lsShip_id + "' " + ;
> "AND trans.tid = '" + m_lcMerNum + "' " + ;
> "AND trans.amount = '" + lsOrderTotal + "' "
>
>
> oHeader = CREATEOBJECT("ADODB.Recordset")
> oHeader.OPEN(sSQL, m_oConn)
>
>*****************
>Crashes on the OPEN statement....
>
>with error
>"OLE (Dispatch exception code 0 from Microsoft Jet Database Engine : Data type mismatch in criteria expression....
>
>*******************
>
>The error has been pinned down to the Currency value in TRANS.amount and the string value in lsOrderTotal.
>
>I"m going to try some of the Numeric to Currency Functions to see if they help.
>Tommy

Don't put quote around the amount:
"AND trans.amount = " + lsOrderTotal