SQL-HANDLE-STMT swap alloc-handle ;
: temp-string ( length -- byte-array length )
- [ CHAR: \space <string> ascii string>alien ] keep ;
+ [ CHAR: space <string> ascii string>alien ] keep ;
: odbc-init ( -- env )
alloc-env-handle
: odbc-describe-column ( statement n -- column )
dup >r
- 1024 CHAR: \space <string> ascii string>alien dup >r
+ 1024 CHAR: space <string> ascii string>alien dup >r
1024
0 <short>
0 <short> dup >r
: odbc-get-field ( statement column -- field )
dup column? [ dupd odbc-describe-column ] unless dup >r number>>
SQL-C-DEFAULT
- 8192 CHAR: \space <string> ascii string>alien dup >r
+ 8192 CHAR: space <string> ascii string>alien dup >r
8192
f SQLGetData succeeded? [
r> r> [ dereference-type-pointer ] keep <field>