Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Don't try to do 'nextrow' after 'nextresults' returns 0 - the HSTMT is in an unspecified state and may return SQL_NO_DATA rather than giving an error. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f1c411de8a8748134dc3ea7b85415332 |
| User & Date: | kbk 2018-06-19 02:53:38 |
Context
|
2018-06-21
| ||
| 04:56 | Update to most of latest TEA. check-in: d39d482edb user: stu tags: trunk | |
|
2018-06-19
| ||
| 02:53 | Don't try to do 'nextrow' after 'nextresults' returns 0 - the HSTMT is in an unspecified state and may return SQL_NO_DATA rather than giving an error. check-in: f1c411de8a user: kbk tags: trunk | |
| 02:29 | Be more permissive about SQL/CLI HY??? general errors in test cases - they aren't all HY010 on some ODBC implementations. check-in: 29da102373 user: kbk tags: trunk | |
Changes
Changes to tests/tdbcodbc.test.
3662 3663 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 3686 3687 |
while {[$resultset nextrow row]} {
lappend rows $row
}
lappend rowsets $rows
if {[$resultset nextresults] == 0} break
}
lappend rowsets [catch {$resultset nextresults} msg] $msg
lappend rowsets [catch {$resultset nextrow foo} msg] \
$::errorCode
set rowsets
} results
rename $resultset {}
set results
} results
rename $stmt {}
set results
}
-match glob
-result {{{idnum 2 name wilma}} 0 0 1 {TDBC GENERAL_ERROR HY* *}}
}
test tdbc::odbc-30.4 {Multiple result sets - foreach} {*}{
-constraints !jet&&!sqlite
-setup {
::db allrows {delete from people}
set stmt [db prepare {
|
< < | |
3662 3663 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 |
while {[$resultset nextrow row]} {
lappend rows $row
}
lappend rowsets $rows
if {[$resultset nextresults] == 0} break
}
lappend rowsets [catch {$resultset nextresults} msg] $msg
set rowsets
} results
rename $resultset {}
set results
} results
rename $stmt {}
set results
}
-match glob
-result {{{idnum 2 name wilma}} 0 0}
}
test tdbc::odbc-30.4 {Multiple result sets - foreach} {*}{
-constraints !jet&&!sqlite
-setup {
::db allrows {delete from people}
set stmt [db prepare {
|