Need some help with comparing data in basic

[Atta]

I have a xbasic script see below,
MainSR = numeric
Assettag = character

Do I need to change the MainSR variable to character, and if I have to how do I do that?


And this is the error I am getting when I run this script in the ShowRowExpanderIcon Server Side Events

Error executing ShowRowExpanderIcon event handler: command: count = e.rtc.cn.resultset.data(1) Function sequence error. while getting result set data column.'

Hope someone can give me a pointer to this.

dim sqltxt as c
dim args as sql::arguments
sqltxt = "select count(*) from help where Assettag = :arg1"
args.add("arg1",e.rowData.data("MainSR"))
e.conn.execute(sqltxt,args)
dim count as n
count = e.rtc.cn.resultset.data(1)

if count = 0 then
ShowRowExpanderIcon = .f.
else
ShowRowExpanderIcon = .t.
end if

[Atta]

Re: Need some help with comparing data in basic

Can someone help me here, I can pay some for your time, or I have Microsoft help cards that are worth $75.00 each

These help cards are that you can call Microsoft for any help for free.
Thanks

[Steve Workings]

Re: Need some help with comparing data in basic

After a bit of review, it looks like you're doing well. Try the type comparison like this though:

args.add("arg1", convert_type(e.rowData.data("MainSR"),"C"))

[Atta]

Re: Need some help with comparing data in basic

Thanks very much for the input, but even after changes the item that you mention I get this error and I don't know what it means:

Error executing ShowRowExpanderIcon event handler: command: count = e.rtc.cn.resultset.data(1) Function sequence error. while getting result set data column.'

dim sqltxt as c
dim args as sql::arguments
sqltxt = "select count(*) from help where assettag = :arg1"
args.add("arg1", convert_type(e.rowData.data("MainSR"),"C"))
e.conn.execute(sqltxt,args)
dim count as n
count = e.rtc.cn.resultset.data(1)
if count = 0 then
ShowRowExpanderIcon = .f.
else
ShowRowExpanderIcon = .t.
end if

So does this mean that it cannot GET to the resultset, or it does not have ANY results.
Thanks
Roelof

[Lance Gurd]

Re: Need some help with comparing data in basic

I am learning a lot by using

debug(1)

at the begining of my code, then checking each and every variable has the expected value

[Lance Gurd]

Re: Need some help with comparing data in basic

I just spotted you dont open a connection to your database!

[Atta]

Re: Need some help with comparing data in basic

Is this not the statement that opens up a table e.conn.execute(sqltxt,args)


Thanks

[Atta]

Re: Need some help with comparing data in basic

I have added the cn.open statement but I keep getting the same error

Function sequence error, wile getting result set data column

I hope someone can point me in the right direction

debug(1)
ShowRowExpanderIcon = .t.

DIM cn as SQL::Connection
dim flagResult as l
cn.open("::Name::Help")
flagResult = cn.open("::Name::Help")
if flagResult = .f. then
ui_msg_box("Error","Could not connect to database. Error reported was: " + crlf() + cn.CallResult.text)
end
end if

dim sqltxt as c
dim args as sql::arguments
sqltxt = "select count(*) from help where Assettag = :arg1"
args.add("arg1",e.rowData.data("MainSR"))
e.conn.execute(sqltxt,args)
dim count as n
count = e.rtc.cn.resultset.data(1)

if count = 0 then
ShowRowExpanderIcon = .f.
else
ShowRowExpanderIcon = .t.
end if
cn.Close()

end function

[BigBoss1]

Re: Need some help with comparing data in basic

Ok A few small things seem to be incorrect.

You seem to opening the table twice 'cn.open("N......")' and then 'flagResult = cn.open(;;N.....).

ui_msg_box do not run in the web. Use aa[].text to alert you of any errors.

sqltxt ="select count(*).........") should be

sqltxt=<<%txt%
SELECT count(*) from help.....=args1
%txt%


Next instead of 'args.add(".....") use

args.set("args1",convert_type(e.Datasubmitted.MainSR, "N'))


hope this helps

David

[BigBoss1]

Re: Need some help with comparing data in basic

Further note
e.conn.execute is not right as you have declared 'cn' as the connection.

so the execute should be

if not cn.execute(sqltxt,args) then
aa[].text ="alert('error in select xyz');"