Return Null on ExecQuerySingleResult

[tcgoh]

Hi,

How can I return a Null or "0" into a edittext box with ExecQuerySingleResult, I get a error with this code.

lblr.Text = SQL1.ExecQuerySingleResult("select date from table where date = '30-08'")

The textbox will return a value when the Query result can match a value.

I would like to display a zero or blank in the textbox when No matching result was found.

Thanks for any help.

 

[mc73]

You can use a 'try-catch' block:

try
lblr.Text = SQL1.ExecQuerySingleResult("select date from table where date = '30-08'")
catch
lblr.Text="0"
end try

 

[Informatix]

You can also use an object to test if null:

Dim SQLResult As Object
SQLResult = SQL1.ExecQuerySingleResult("select date from table where date = '30-08'")
if SQLResult = Null then
  lblr.Text = ""
else
  lblr.Text = SQLResult
end if

 

[tcgoh]

You can use a 'try-catch' block:

try
lblr.Text = SQL1.ExecQuerySingleResult("select date from table where date = '30-08'")
catch
lblr.Text="0"
end try

Thanks. I found out that it will return "Null" if I follow up with another statement which I intended the code to be.

lblr.Text = SQL1.ExecQuerySingleResult("select TIME from table where dep = '27-08'")& " " & SQL1.ExecQuerySingleResult("select TIME from table where dep = '30-08'")

Is there a way to return the text to " " blank ? or any other text instate of "Null"?

Thanks

 

[Informatix]

Is there a way to return the text to " " blank ? or any other text instate of "Null"?

The answer is in the previous posts. Read them carefully.

 

[tcgoh]

The answer is in the previous posts. Read them carefully.

Thanks, but not using your code and I have found a work around.