throw-diag-odbc-error ( handle-type hstmt -- * )

Vocabulary

odbc

Inputs

handle-type	an object
hstmt	an object

Outputs

None

Definition

USING: alien.data combinators.extras endian generalizations
io.encodings.string io.encodings.utf8 kernel sequences ;

IN: odbc

: throw-diag-odbc-error ( handle-type hstmt -- * )
    1 SQL_SQLSTATE_SIZE SQLCHAR <c-array> 0 SQLINTEGER <ref>
    SQL_MAX_MESSAGE_LENGTH SQLCHAR <c-array>
    SQL_MAX_MESSAGE_LENGTH 0 SQLSMALLINT <ref>
    [ SQLGetDiagRec "SQLGetDiagRec" check-odbc ] 5 nkeep nip
    [ utf8 decode ] [ le> ] [ ] [ le> head utf8 decode ] quad*
    odbc-statement-error ;