Xbasic with sql

[shinra]

So I have something like the follow:

dim example1 as c
dim example2 as n
dim example3 as c

and so on...

I'm having some trouble assigning those variable to a table and column. Can this be done?

[Steve Wood]

Re: Xbasic with sql

Here is an example without some error checking, and using arguments.

dim example1 as c
dim example2 as n
dim example3 as c

example1 = "this"
example2 = 4
example3 ="that"

dim cn as sql::connection
dim args as sql::arguments
cn.open("::name::conn")
vsql = "INSERT INTO mytable (example1,example2,example3) VALUES (:example1,:example2,:example3)"
args.add("example1",example1)
args.add("example2",example2)
args.add("example3",example3)
cn.execute(vsql,args)
cn.close()

[shinra]

Re: Xbasic with sql

Thanks for the quick reply I believe I have tried that. Perhaps I missed something.

[Al Buchholz]

Re: Xbasic with sql

Thanks for the quick reply I believe I have tried that. Perhaps I missed something.

No problem. Please post what you tried and we'll (Steve W) help. ;)

[shinra]

Re: Xbasic with sql

Quick update I have tried something similar, but I'm not inserting into a tables I'm retrieving from tables

[Steve Wood]

Re: Xbasic with sql

Show your code.

[shinra]

Re: Xbasic with sql

Quick update I have tried something similar, but I'm not inserting into a tables I'm retrieving from tables

function serverside_489226b2b8b44369853d818b3cb4049c as c (e as p)

serverside_489226b2b8b44369853d818b3cb4049c = "//Replace this with the javascript to be returned by the function."

dim specs_name as c
dim layout_pos as n
dim format as c 
dim default as c
dim start_pos as n
dim end_pos as n
dim naaccr_item as n
dim naaccr_name as c 
dim total_len as n

dim connection as sql::Connection
flag = connection.Open("::Name::demodata")
dim args as SQL::Arguments
dim sqlCommand as c
dim sqlCommand1 as c
sqlCommand = "Select * from Txd_Specs"
sqlCommand1 = "Select * from Txd_Specs_Mv"
flag = connection.Execute(sqlCommand)
flag1 = connection.Execute(sqlCommand1)
args.Set("Specs_Name",e.dataSubmitted.specs_name)
args.Add("layout_pos",layout_pos)
args.Add("format",format)
args.Add("default",default)
args.Add("start_pos",start_pos)
args.Add("end_pos",end_pos)
args.Add("naaccr_item",naaccr_item)
args.Add("naaccr_name",naaccr_name)
debug(1)
if (flag .and. connection.Execute(sqlCommand1))
dim rs as SQL::ResultSet = connection.ResultSet
dim cnt as n = 0

While rs.NextRow()
		cnt = cnt + 1
		row = convert_type(cnt,"C")
	
		e._set.Layout_Pos.value = rs.Data("layout_pos")
		e._set.Format.value = rs.Data("format")
		e._set.Default.value = rs.Data("default")
		e._set.Start_Pos.value = rs.Data("start_pos")
		e._set.End_Pos.value = rs.Data("end_pos")
		e._set.Naaccr_Item.value = rs.Data("naaccr_item")
		e._set.Naaccr_Name.value = rs.Data("naaccr_name")

end while

end if	
if flag then 
	connection.Close()
end if
end function

It should be a repeating row that data is being populated right now it is populating but it's adding all of the data into one row. If I change it around a little I get 0's in the first row.

[shinra]

Re: Xbasic with sql

function serverside_489226b2b8b44369853d818b3cb4049c as c (e as p)

serverside_489226b2b8b44369853d818b3cb4049c = "//Replace this with the javascript to be returned by the function."

dim specs_name as c
dim layout_pos as n
dim format as c
dim default as c
dim start_pos as n
dim end_pos as n
dim naaccr_item as n
dim naaccr_name as c
dim total_len as n
debug(1)
dim connection as sql::Connection
flag = connection.Open("::Name::demodata")
dim args as SQL::Arguments
dim sqlCommand as c
dim sqlCommand1 as c
sqlCommand = "Select * from Txd_Specs"
sqlCommand1 = "Select * from Txd_Specs_Mv"
flag1 = connection.Execute(sqlCommand)
'flag1 = connection.Execute(sqlCommand1)
specs_name = e.datasubmitted.specs_name
layout_pos = "select layout_pos from txd_specs_mv" 'This keeps coming back as 0. If someone knows how to fix this I should be able to get the rest.
debug(1)
if (flag .and. connection.Execute(sqlCommand1))
dim rs as SQL::ResultSet = connection.ResultSet
dim cnt as n = 0)
While rs.NextRow()
cnt = cnt + 1
row = convert_type(cnt,"C")

e._set.Layout_Pos.value = layout_pos
e._set.Format.value = format
e._set.Default.value = default
e._set.Start_Pos.value = start_pos
e._set.End_Pos.value = end_pos
e._set.Naaccr_Item.value = naaccr_item
e._set.Naaccr_Name.value = naaccr_name

end while

end if
if flag then
connection.Close()
end if
end function

Here is another update I did a little code cleanup and changed something around to see what I would get.

[Steve Workings]

Re: Xbasic with sql

Don - I don't have time right now to go through your code, but I think you could benefit from this:

http://www.downloads.alphasoftware.c...SQLTables.html

[shinra]

Re: Xbasic with sql

That actually did not but I think I have workable solution. Still working on it and will post when I'm finished/ everything is working.