Application uses a value of the wrong type for the current operation.

Hello,
I am filtering a sql server 2005 db by date. it works in one way but i also want it to work with dreamweavers default recordset creation. I attach 2 snippets, the top one works but the bottom one snippet 2 gives me the following error.


ADODB.Command error '800a0d5d'

Application uses a value of the wrong type for the current operation.

/aa.asp, line 19


any help grately received.

k
snippet 1 working
 
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_connpeepeek_STRING
Recordset1_cmd.CommandText = "SELECT usr_image1, dateimage_usr FROM diddle.ps_usr_image WHERE dateimage_usr >= DATEADD(dd,DATEDIFF(d,0,GETDATE()),0)" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
 
 
 
 
 
 
--~~--~~--~~--~~--~~--~~--~~--~~--~~
snippet 2 is below
this is the line 19 given the erro
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp
--~~--~~--~~--~~--~~--~~--~~--~~--~~
 
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "DATEADD(dd,DATEDIFF(d,0,GETDATE()),0)" 
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_connpeepeek_STRING
Recordset1_cmd.CommandText = "SELECT usr_image1, dateimage_usr FROM diddle.ps_usr_image WHERE dateimage_usr >= ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>

Open in new window

LVL 1
thatelvisAsked:
Who is Participating?
 
neeraj523Connect With a Mentor Commented:
can you print the date value before execution and see what is the value
0
 
jmundsackCommented:
In line 19 you have -1 as the "size" argument.  I think that's the problem.
0
 
thatelvisAuthor Commented:
but there is only 1 argument what should i have instead of the 1.

regards

k
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
neeraj523Commented:
Hello

Try this


<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "DATEADD(dd,DATEDIFF(d,0,GETDATE()),0)" 
If isDate(Request("MM_EmptyValue")) Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>

Open in new window

0
 
thatelvisAuthor Commented:
Thanks neeta I tried that but get the following error

Application uses a value of the wrong type for the current operation.

cheets

k
0
 
thatelvisAuthor Commented:
the date value's were all squ if, thanks for your help.
0
 
neeraj523Commented:
B Grade .. huh :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.