check-odbc ( retcode message -- )

Vocabulary

odbc

Inputs

retcode	an object
message	an object

Outputs

None

Definition

USING: combinators kernel ;

IN: odbc

: check-odbc ( retcode message -- )
    swap {
        { SQL_SUCCESS [ drop ] }
        { SQL_SUCCESS_WITH_INFO [ drop ] }
        { SQL_ERROR [ odbc-error ] }
        { SQL_INVALID_HANDLE [ odbc-invalid-handle-error ] }
        [ 2drop ]
    } case ;