Xbasic
SQL::ResultSetNextRow Method
Syntax
Result as L = NextRow()
Returns
- ResultLogical
TRUE (.T.) if the operation was successful; otherwise FALSE (.F.).
Description
The NextRow() method fetches the next row in the SQL::ResultSet.
Example
dim conn as SQL::Connection dim rs as SQL::ResultSet dim connString as C dim select_exp as C connString = "::Name::AADemo-Northwind" select_exp = "select * from customers" if .not. conn.open(connString) ui_msg_box("Error", conn.CallResult.text) end end if if .not. conn.execute(select_exp) ui_msg_box("Error", conn.CallResult.text) conn.close() end end if rs = conn.ResultSet rs.NextRow() ui_msg_box("Some data", rs.data(2) + " " + rs.data(3)) conn.close()
The following script fetches through a ResultSet and places the contents of the FieldName field into the FieldValue variable.
while (rs.NextRow()) FieldValue = rs.Data(FieldName) ... do something end while
The following script builds a list of customer names.
dim conn as SQL::Connection dim rs as SQL::ResultSet dim connString as C dim select_exp as C dim names as C connString = "::Name::AADemo-Northwind" select_exp = "select * from customers" if .not. conn.open(connString) ui_msg_box("Error", conn.CallResult.text) end end if if .not. conn.execute(select_exp) ui_msg_box("Error", conn.CallResult.text) conn.close() end end if rs = conn.ResultSet while rs.NextRow() names = names + rs.data(3) + crlf() end while ui_msg_box("Some data", names) conn.close()