UniBasic Commands Reference - Rocket Software

Example
This example shows how you might use SQLParamOptions to load a simple table.
Table TAB1 has two columns: an integer column and a CHAR(30) column.
1-840 UniBasic Commands Reference
$include INCLUDE ODBC.H
arrsize = 20
dim p1(arrsize)
dim p2(arrsize)
SQLINS1 = "INSERT INTO TAB1 VALUES(?,?)"
rowindex = 0
status = SQLAllocEnv(henv)
status = SQLAllocConnect(henv, hdbc)
status = SQLConnect(hdbc, "odbcds", "dbuid", "dbpwd")
status = SQLAllocStmt(hdbc, hstmt)
status = SQLPrepare(hstmt, SQLINS1)
status = SQLBindParameter(hstmt, 1, SQL.B.BASIC, SQL.INTEGER, 0,
0, p1(1),
SQL.PARAM.INPUT)
status = SQLBindParameter(hstmt, 2, SQL.B.BASIC, SQL.CHAR, 30, 0,
p2(1),
SQL.PARAM.INPUT)
status = SQLParamOptions(hstmt, SQL.PARAMOPTIONS.SET, arrsize)
for index = 1 to arrsize
p1(index) = index
p2(index) = "This is row ":index
next index
* now execute, delivering 20 sets of parameters in one network
operation
stexec = SQLExecute(hstmt)
status = SQLParamOptions(hstmt, SQL.PARAMOPTIONS.READ, rowindex)
if stexec = SQL.ERROR then
print "Error in parameter row number ":rowindex
end else
print rowindex:" parameter marker sets were processed"
end