Precompiles an SQL database query into a rowset variable

PrepareRowset returns > 0 on success.

Sample Source If ( Connect dbDatabase to "DSN=dsn_name" as ODBC ) Then iTemp := 2 PrepareRowset dbRowset As "SELECT 'one', 2, 3.0 WHERE 2 = ?" From dbDatabase BindParameter iTemp To 1 From dbRowset For Input As Integer BindColumn MyOutput1 To 1 From dbRowset As String 10 BindColumn MyOutput2 To 2 From dbRowset As Integer BindColumn MyOutput3 To 3 From dbRowset As Number iReturn := GetRowset dbRowset If iReturn < 0 Then Say GetLastError dbRowset EndIf While iReturn > 0 Say MyOutput1 + "<br>" Say MyOutput2 + "<br>" Say MyOutput3 + "<br>" iReturn := SelectRow Next From dbRowset Loop Disconnect MyDatabase Endif

Minimum version: 1.0