>I am having an issue with my Parameter in my SelectCmd of my cursor adapter. I want an empty cursor to be returned if I set the value of my parameter to .null. This works great for CHAR fields, however, integers, I am getting an error.
>
>This works just the way I want it too.
>

>RELEASE lomyca, loConnection, loCommand
>
>PUBLIC lomyca       AS CURSORADAPTER
>PUBLIC loConnection AS ADODB.CONNECTION
>PUBLIC loCommand    AS ADODB.COMMAND
>
>loConnection = CREATEOBJECT('ADODB.Connection')
>loCommand    = CREATEOBJECT('ADODB.Command')
>
>***<DataSource>
>loConnection.ConnectionString = "***"
>***</DataSource>
>loConnection.OPEN()
>
>loCommand.ActiveConnection = loConnection
>
>lomyca = CREATEOBJECT("cursoradapter")
>
>vp_members_pk = .NULL.
>
>WITH lomyca
>   .CURSORSCHEMA ="MEMBERS_PK C(10), FIRSTNAME C(50), LASTNAME C(50)"
>   .USECURSORSCHEMA = .T.
>   .DATASOURCETYPE ="ADO"
>   .DATASOURCE = CREATEOBJECT('ADODB.RecordSet')
>   .DATASOURCE.CursorLocation   = 3  && adUseClient
>   .DATASOURCE.LockType         = 3  && adLockOptimistic
>   .DATASOURCE.ActiveConnection = loConnection
>   .ALIAS = "Members"
>   .SELECTCMD = "SELECT * FROM MEMBERS WHERE MEMBERS_PK = ?VP_MEMBERS_PK"
>
>   lxRetVal = .CURSORFILL(.T.,.F.,-1,loCommand)
>
>   IF NOT lxRetVal
>      MESSAGEBOX(MESSAGE())
>   ENDIF
>ENDWITH && myca
>
>RETURN lxRetVal
>

>
>
>The following code gives me an error message from the Microsoft OLE DB Provider for SQL Server: "Invalid Input Parameter Values. Check the status values for detail."
>
>

>RELEASE lomyca, loConnection, loCommand
>
>PUBLIC lomyca       AS CURSORADAPTER
>PUBLIC loConnection AS ADODB.CONNECTION
>PUBLIC loCommand    AS ADODB.COMMAND
>
>loConnection = CREATEOBJECT('ADODB.Connection')
>loCommand    = CREATEOBJECT('ADODB.Command')
>
>***<DataSource>
>loConnection.ConnectionString = "***"
>
>***</DataSource>
>loConnection.OPEN()
>
>loCommand.ActiveConnection = loConnection
>
>lomyca = CREATEOBJECT("cursoradapter")
>
>vp_members_pk = .NULL.
>
>WITH lomyca
>   .CURSORSCHEMA ="MEMBERS_PK I, FIRSTNAME C(50), LASTNAME C(50)"
>   .USECURSORSCHEMA = .T.
>   .DATASOURCETYPE ="ADO"
>   .DATASOURCE = CREATEOBJECT('ADODB.RecordSet')
>   .DATASOURCE.CursorLocation   = 3  && adUseClient
>   .DATASOURCE.LockType         = 3  && adLockOptimistic
>   .DATASOURCE.ActiveConnection = loConnection
>   .ALIAS = "Members"
>   .SELECTCMD = "SELECT * FROM MEMBERS WHERE MEMBERS_PK = ?VP_MEMBERS_PK"
>
>   lxRetVal = .CURSORFILL(.T.,.F.,-1,loCommand)
>
>   IF NOT lxRetVal
>      MESSAGEBOX(MESSAGE())
>   ENDIF
>ENDWITH && myca
>
>RETURN lxRetVal
>

>
>Does anyone have any ideas?

.SELECTCMD = "SELECT * FROM MEMBERS WHERE MEMBERS_PK = ?CAST(VP_MEMBERS_PK AS I)"