Add widestring versions of SQLPrepare and SQLExecDirect
SQLPrepareW and SQLExecDirectW are needed to use unicode as otherwise ODBC only recognises ansi codepages.
This commit is contained in:
parent
370781b773
commit
f089d70010
1 changed files with 4 additions and 0 deletions
|
|
@ -680,8 +680,12 @@ proc SQLBrowseConnect*(hdbc: SqlHDBC, szConnStrIn: PSQLCHAR,
|
||||||
dynlib: odbclib, importc.}
|
dynlib: odbclib, importc.}
|
||||||
proc SQLExecDirect*(StatementHandle: SqlHStmt, StatementText: PSQLCHAR,
|
proc SQLExecDirect*(StatementHandle: SqlHStmt, StatementText: PSQLCHAR,
|
||||||
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
||||||
|
proc SQLExecDirectW*(StatementHandle: SqlHStmt, StatementText: WideCString,
|
||||||
|
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
||||||
proc SQLPrepare*(StatementHandle: SqlHStmt, StatementText: PSQLCHAR,
|
proc SQLPrepare*(StatementHandle: SqlHStmt, StatementText: PSQLCHAR,
|
||||||
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
||||||
|
proc SQLPrepareW*(StatementHandle: SqlHStmt, StatementText: WideCString,
|
||||||
|
TextLength: TSqlInteger): TSqlSmallInt{.dynlib: odbclib, importc.}
|
||||||
proc SQLCloseCursor*(StatementHandle: SqlHStmt): TSqlSmallInt{.dynlib: odbclib,
|
proc SQLCloseCursor*(StatementHandle: SqlHStmt): TSqlSmallInt{.dynlib: odbclib,
|
||||||
importc.}
|
importc.}
|
||||||
proc SQLExecute*(StatementHandle: SqlHStmt): TSqlSmallInt{.dynlib: odbclib, importc.}
|
proc SQLExecute*(StatementHandle: SqlHStmt): TSqlSmallInt{.dynlib: odbclib, importc.}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue