I am having a problem with the IsDBNull function. When it checks what
type of value is contained in the parameter that is passed to it, it
does not successfully determine that it has a DBNull value. If I
access the value of what I am going to pass to the IsDBNull function
before I call the IsDBNull function then it does successfully
determine that it has a DBNull value. Below is a page that I am using
to test. Note: that the value for the column copy_text is null in
this specific case.

<%@ Page %>
<%@ Import namespace="ADODB" %>
<%
Dim Conn As ADODB.Connection
Dim adors As ADODB.Recordset
Dim sql As String
Dim copy As String

Conn = New ADODB.Connection
Conn.Open("DSN=xxx;uid=xxx;pwd=xxx;")

adoRS = New ADODB.Recordset

sql = "select copy_text from printone_copy where ach_id = 43887"
adoRS.Open(sql, conn)

If Not adoRS.eof Then
'dim objtest as Object
'objtest = adoRS.Fields("copy_text").Value
if IsDBNull(adoRS.Fields("copy_text").Value) then
copy = "No Value"
else
copy = adoRS.Fields("copy_text").Value
end if
Else
copy = "No Value"
End If
adoRS.Close()

Response.Write(copy)
%>

If I uncomment the two lines before the IsDBNull function call then
the IsDBNull function correctly returns true, otherwise it returns
false. And when it returns false I get an error as it tries to put
DBNull into the string variable copy. Any help on this would be much
appreciated.

Jim

That does seem kind of strange.

However, why are using ADO and not ADO.NET?

"Jim" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I am having a problem with the IsDBNull function. When it checks what
> type of value is contained in the parameter that is passed to it, it
> does not successfully determine that it has a DBNull value. If I
> access the value of what I am going to pass to the IsDBNull function
> before I call the IsDBNull function then it does successfully
> determine that it has a DBNull value. Below is a page that I am using
> to test. Note: that the value for the column copy_text is null in
> this specific case.
>
> <%@ Page %>
> <%@ Import namespace="ADODB" %>
> <%
> Dim Conn As ADODB.Connection
> Dim adors As ADODB.Recordset
> Dim sql As String
> Dim copy As String
>
> Conn = New ADODB.Connection
> Conn.Open("DSN=xxx;uid=xxx;pwd=xxx;")
>
> adoRS = New ADODB.Recordset
>
> sql = "select copy_text from printone_copy where ach_id = 43887"
> adoRS.Open(sql, conn)
>
> If Not adoRS.eof Then
> 'dim objtest as Object
> 'objtest = adoRS.Fields("copy_text").Value
> if IsDBNull(adoRS.Fields("copy_text").Value) then
> copy = "No Value"
> else
> copy = adoRS.Fields("copy_text").Value
> end if
> Else
> copy = "No Value"
> End If
> adoRS.Close()
>
> Response.Write(copy)
> %>
>
> If I uncomment the two lines before the IsDBNull function call then
> the IsDBNull function correctly returns true, otherwise it returns
> false. And when it returns false I get an error as it tries to put
> DBNull into the string variable copy. Any help on this would be much
> appreciated.
>
> Jim

I have not seen it behave like this before.
What type of database are you connecting to?
You may need to explicitly change either the connection or recordset parameters.
But at this point I don't know what you would need to change, cause as best I
can tell it should be working.

Gerald

"Jim" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I am having a problem with the IsDBNull function. When it checks what
> type of value is contained in the parameter that is passed to it, it
> does not successfully determine that it has a DBNull value. If I
> access the value of what I am going to pass to the IsDBNull function
> before I call the IsDBNull function then it does successfully
> determine that it has a DBNull value. Below is a page that I am using
> to test. Note: that the value for the column copy_text is null in
> this specific case.
>
> <%@ Page %>
> <%@ Import namespace="ADODB" %>
> <%
> Dim Conn As ADODB.Connection
> Dim adors As ADODB.Recordset
> Dim sql As String
> Dim copy As String
>
> Conn = New ADODB.Connection
> Conn.Open("DSN=xxx;uid=xxx;pwd=xxx;")
>
> adoRS = New ADODB.Recordset
>
> sql = "select copy_text from printone_copy where ach_id = 43887"
> adoRS.Open(sql, conn)
>
> If Not adoRS.eof Then
> 'dim objtest as Object
> 'objtest = adoRS.Fields("copy_text").Value
> if IsDBNull(adoRS.Fields("copy_text").Value) then
> copy = "No Value"
> else
> copy = adoRS.Fields("copy_text").Value
> end if
> Else
> copy = "No Value"
> End If
> adoRS.Close()
>
> Response.Write(copy)
> %>
>
> If I uncomment the two lines before the IsDBNull function call then
> the IsDBNull function correctly returns true, otherwise it returns
> false. And when it returns false I get an error as it tries to put
> DBNull into the string variable copy. Any help on this would be much
> appreciated.
>
> Jim

I am connecting to a MS SqlServer 2000 DB. And I am using ADODB because
we are doing a port of an asp application to asp.net and want to do a
minimal amount of code change to start with. I have not investigated
changing connection or recordset parameters yet. I was hoping that
someone else had run into this problem before me. I will see what
progress I can make with changing the parameters.

Jim

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

ah, hmm. well, ADO works best with MS SQL 2K, so I am stumped.
Maybe it has something to do with ASP?
I still use ADO a lot instead of ADO.Net for similar reasons.
But I don't do much in ASP and I have yet to encounter that particular problem
with normal apps. wish I could help.

Gerald

"Jim Bailey" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I am connecting to a MS SqlServer 2000 DB. And I am using ADODB because
> we are doing a port of an asp application to asp.net and want to do a
> minimal amount of code change to start with. I have not investigated
> changing connection or recordset parameters yet. I was hoping that
> someone else had run into this problem before me. I will see what
> progress I can make with changing the parameters.
>
> Jim
>
> *** Sent via Developersdex http://www.developersdex.com ***
> Don't just participate in USENET...get rewarded for it!