Re: QC 11 - Getting Max Value from a field and using it in script Editor

Sub CurrentValue

Msgbox " Into CurrentValue Function....."

dim com
dim rec
dim td

set td = TDConnection
set com = td.Command
com.CommandText = "select MAX(TS_USER_07) from dbo.V_RegressionGolden"
set rec = com.Execute
rec.First
Msgbox rec.First

set com = nothing
set rec = nothing
set td = nothing

End Sub

HI,

        I removed On Error Resume Next, as discussed in this forum, how do i make sure whether its connecting to DB correctly and executing the query.

I am getting first alert(Msgbox " Into CurrentValue Function....."), but after that i am trying to print the output of the query and its coming up as blank(Msgbox rec.First ).....

Can i connect to Database view instead of real tables, I am not that much sure how to go about it ....