' ########################################################################################
' Microsoft Windows
' File: sqlucode.inc
' Contents: This is the the unicode include for ODBC Core functions
' Copyright (c) 2011 Jos? Roca
' Portions Copyright (c) Microsoft Corporation.
' All Rights Reserved.
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
' EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF
' MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ########################################################################################
#IF NOT %DEF(PBX_sqlucode_PBI)
#DEFINE PBX_sqlucode_PBI
%EQUATE `SQLUCODE_INC = 1
#INCLUDE ONCE "Legacy/Data/sqlext.inc"
%EQUATE `SQL_WCHAR = -8
%EQUATE `SQL_WVARCHAR = -9
%EQUATE `SQL_WLONGVARCHAR = -10
%EQUATE `SQL_C_WCHAR = %SQL_WCHAR
'#ifdef UNICODE
'#define SQL_C_TCHAR SQL_C_WCHAR
'#else
'#define SQL_C_TCHAR SQL_C_CHAR
'#endif
%EQUATE `SQL_SQLSTATE_SIZEW = 10 ' /* size of SQLSTATE for unicode */
'// UNICODE versions
DECLARE FUNCTION SQLColAttributeW LIB "odbc32.dll" ALIAS "SQLColAttributeW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL icol AS WORD ' SQLUSMALLINT icol , BYVAL iField AS WORD ' SQLUSMALLINT iField , BYREF pCharAttr AS ANY ' SQLPOINTER pCharAttr , BYVAL cbCharAttrMax AS INTEGER ' SQLSMALLINT cbCharAttrMax , BYREF pcbCharAttr AS INTEGER ' SQLSMALLINT *pcbCharAttr , BYREF pNumAttr AS ANY ' SQLPOINTER pNumAttr ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLColAttributesW LIB "odbc32.dll" ALIAS "SQLColAttributesW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL icol AS WORD ' SQLUSMALLINT icol , BYVAL fDescType AS WORD ' SQLUSMALLINT fDescType , BYREF rgbDesc AS ANY ' SQLPOINTER rgbDesc , BYVAL cbDescMax AS INTEGER ' SQLSMALLINT cbDescMax , BYREF pcbDesc AS INTEGER ' SQLSMALLINT *pcbDesc , BYREF pfDesc AS INTEGER ' SQLLEN *pfDesc ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLConnectW LIB "odbc32.dll" ALIAS "SQLConnectW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYREF szDSN AS WSTRINGZ ' SQLWCHAR *szDSN , BYVAL cbDSN AS INTEGER ' SQLSMALLINT cbDSN , BYREF szUID AS WSTRINGZ ' SQLWCHAR *szUID , BYVAL cbUID AS INTEGER ' SQLSMALLINT cbUID , BYREF szAuthStr AS WSTRINGZ ' SQLWCHAR *szAuthStr , BYVAL cbAuthStr AS INTEGER ' SQLSMALLINT cbAuthStr ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLDescribeColW LIB "odbc32.dll" ALIAS "SQLDescribeColW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL icol AS WORD ' SQLUSMALLINT icol , BYREF szColName AS WSTRINGZ ' SQLWCHAR *szColName , BYVAL cbColNameMax AS INTEGER ' SQLSMALLINT cbColNameMax , BYREF pcbColName AS INTEGER ' SQLSMALLINT *pcbColName , BYREF pfSqlType AS INTEGER ' SQLSMALLINT *pfSqlType , BYREF pcbColDef AS QUAD ' SQLULEN *pcbColDef , BYREF pibScale AS INTEGER ' SQLSMALLINT *pibScale , BYREF pfNullable AS INTEGER ' SQLSMALLINT *pfNullable ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLErrorW LIB "odbc32.dll" ALIAS "SQLErrorW" ( BYVAL henv AS QUAD ' SQLHENV henv , BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szSqlState AS WSTRINGZ ' SQLWCHAR *szSqlState , BYREF pfNativeError AS LONG ' SQLINTEGER *pfNativeError , BYREF szErrorMsg AS WSTRINGZ ' SQLWCHAR *szErrorMsg , BYVAL cbErrorMsgMax AS INTEGER ' SQLSMALLINT cbErrorMsgMax , BYREF pcbErrorMsg AS INTEGER ' SQLSMALLINT *pcbErrorMsg ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLExecDirectW LIB "odbc32.dll" ALIAS "SQLExecDirectW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szSqlStr AS WSTRINGZ ' SQLWCHAR *szSqlStr , BYVAL cbSqlStr AS LONG ' SQLINTEGER cbSqlStr ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetConnectAttrW LIB "odbc32.dll" ALIAS "SQLGetConnectAttrW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL fAttribute AS LONG ' SQLINTEGER fAttribute , BYREF rgbValue AS ANY ' SQLPOINTER rgbValue , BYVAL cbValueMax AS LONG ' SQLINTEGER cbValueMax , BYREF pcbValue AS LONG ' SQLINTEGER *pcbValue ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetCursorNameW LIB "odbc32.dll" ALIAS "SQLGetCursorNameW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCursor AS WSTRINGZ ' SQLWCHAR *szCursor , BYVAL cbCursorMax AS INTEGER ' SQLSMALLINT cbCursorMax , BYREF pcbCursor AS INTEGER ' SQLSMALLINT *pcbCursor ) AS INTEGER ' SQLRETURN
#IF %ODBCVER >= &H0300
DECLARE FUNCTION SQLSetDescFieldW LIB "odbc32.dll" ALIAS "SQLSetDescFieldW" ( BYVAL DescriptorHandle AS QUAD ' SQLHDESC DescriptorHandle , BYVAL RecNumber AS INTEGER ' SQLSMALLINT RecNumber , BYVAL FieldIdentifier AS INTEGER ' SQLSMALLINT FieldIdentifier , BYREF Value AS ANY ' SQLPOINTER Value , BYVAL BufferLength AS LONG ' SQLINTEGER BufferLength ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetDescFieldW LIB "odbc32.dll" ALIAS "SQLGetDescFieldW" ( BYVAL hdesc AS QUAD ' SQLHDESC hdesc , BYVAL iRecord AS INTEGER ' SQLSMALLINT iRecord , BYVAL iField AS INTEGER ' SQLSMALLINT iField , BYREF rgbValue AS ANY ' SQLPOINTER rgbValue , BYVAL cbValueMax AS LONG ' SQLINTEGER cbValueMax , BYREF pcbValue AS LONG ' SQLINTEGER *pcbValue ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetDescRecW LIB "odbc32.dll" ALIAS "SQLGetDescRecW" ( BYVAL hdesc AS QUAD ' SQLHDESC hdesc , BYVAL iRecord AS INTEGER ' SQLSMALLINT iRecord , BYREF szName AS WSTRINGZ ' SQLWCHAR *szName , BYVAL cbNameMax AS INTEGER ' SQLSMALLINT cbNameMax , BYREF pcbName AS INTEGER ' SQLSMALLINT *pcbName , BYREF pfType AS INTEGER ' SQLSMALLINT *pfType , BYREF pfSubType AS INTEGER ' SQLSMALLINT *pfSubType , BYREF pLength AS LONG ' SQLLEN *pLength , BYREF pPrecision AS INTEGER ' SQLSMALLINT *pPrecision , BYREF pScale AS INTEGER ' SQLSMALLINT *pScale , BYREF pNullable AS INTEGER ' SQLSMALLINT *pNullable ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetDiagFieldW LIB "odbc32.dll" ALIAS "SQLGetDiagFieldW" ( BYVAL fHandleType AS INTEGER ' SQLSMALLINT fHandleType , BYVAL Handle AS QUAD ' SQLHANDLE Handle , BYVAL iRecord AS INTEGER ' SQLSMALLINT iRecord , BYVAL fDiagField AS INTEGER ' SQLSMALLINT fDiagField , BYREF rgbDiagInfo AS ANY ' SQLPOINTER rgbDiagInfo , BYVAL cbDiagInfoMax AS INTEGER ' SQLSMALLINT cbDiagInfoMax , BYREF pcbDiagInfo AS INTEGER ' SQLSMALLINT *pcbDiagInfo ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetDiagRecW LIB "odbc32.dll" ALIAS "SQLGetDiagRecW" ( BYVAL fHandleType AS INTEGER ' SQLSMALLINT fHandleType , BYVAL handle AS QUAD ' SQLHANDLE handle , BYVAL iRecord AS INTEGER ' SQLSMALLINT iRecord , BYREF szSqlState AS WSTRINGZ ' SQLWCHAR *szSqlState , BYREF pfNativeError AS LONG ' SQLINTEGER *pfNativeError , BYREF szErrorMsg AS WSTRINGZ ' SQLWCHAR *szErrorMsg , BYVAL cbErrorMsgMax AS INTEGER ' SQLSMALLINT cbErrorMsgMax , BYREF pcbErrorMsg AS INTEGER ' SQLSMALLINT *pcbErrorMsg ) AS INTEGER ' SQLRETURN
#ENDIF ' #IF %ODBCVER >= &H0300
DECLARE FUNCTION SQLPrepareW LIB "odbc32.dll" ALIAS "SQLPrepareW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szSqlStr AS WSTRINGZ ' SQLWCHAR *szSqlStr , BYVAL cbSqlStr AS LONG ' SQLINTEGER cbSqlStr ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLSetConnectAttrW LIB "odbc32.dll" ALIAS "SQLSetConnectAttrW" ( BYVAL ConnectionHandle AS QUAD ' SQLHDBC ConnectionHandle , BYVAL Attribute AS LONG ' SQLINTEGER Attribute , BYREF Value AS ANY ' SQLPOINTER Value , BYVAL StringLength AS LONG ' SQLINTEGER StringLength ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLSetCursorNameW LIB "odbc32.dll" ALIAS "SQLSetCursorNameW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCursor AS WSTRINGZ ' SQLWCHAR *szCursor , BYVAL cbCursor AS INTEGER ' SQLSMALLINT cbCursor ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLColumnsW LIB "odbc32.dll" ALIAS "SQLColumnsW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName , BYREF szColumnName AS WSTRINGZ ' SQLWCHAR *szColumnName , BYVAL cbColumnName AS INTEGER ' SQLSMALLINT cbColumnName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetConnectOptionW LIB "odbc32.dll" ALIAS "SQLGetConnectOptionW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL fOption AS WORD ' SQLUSMALLINT fOption , BYREF pvParam AS ANY ' SQLPOINTER pvParam ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetInfoW LIB "odbc32.dll" ALIAS "SQLGetInfoW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL fInfoType AS WORD ' SQLUSMALLINT fInfoType , BYREF rgbInfoValue AS ANY ' SQLPOINTER rgbInfoValue , BYVAL cbInfoValueMax AS INTEGER ' SQLSMALLINT cbInfoValueMax , BYREF pcbInfoValue AS INTEGER ' SQLSMALLINT *pcbInfoValue ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetTypeInfoW LIB "odbc32.dll" ALIAS "SQLGetTypeInfoW" ( BYVAL StatementHandle AS QUAD ' SQLHSTMT StatementHandle , BYVAL DataType AS INTEGER ' SQLSMALLINT DataType ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLSetConnectOptionW LIB "odbc32.dll" ALIAS "SQLSetConnectOptionW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL fOption AS WORD ' SQLUSMALLINT fOption , BYVAL vParam AS QUAD ' SQLULEN vParam ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLSpecialColumnsW LIB "odbc32.dll" ALIAS "SQLSpecialColumnsW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL fColType AS WORD ' SQLUSMALLINT fColType , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName , BYVAL fScope AS WORD ' SQLUSMALLINT fScope , BYVAL fNullable AS WORD ' SQLUSMALLINT fNullable ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLStatisticsW LIB "odbc32.dll" ALIAS "SQLStatisticsW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName , BYVAL fUnique AS WORD ' SQLUSMALLINT fUnique , BYVAL fAccuracy AS WORD ' SQLUSMALLINT fAccuracy ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLTablesW LIB "odbc32.dll" ALIAS "SQLTablesW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName , BYREF szTableType AS WSTRINGZ ' SQLWCHAR *szTableType , BYVAL cbTableType As INTEGER ' SQLSMALLINT cbTableType ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLDataSourcesW LIB "odbc32.dll" ALIAS "SQLDataSourcesW" ( BYVAL henv AS QUAD ' SQLHENV henv , BYVAL fDirection AS WORD ' SQLUSMALLINT fDirection , BYREF szDSN AS WSTRINGZ ' SQLWCHAR *szDSN , BYVAL cbDSNMax AS INTEGER ' SQLSMALLINT cbDSNMax , BYREF pcbDSN AS INTEGER ' SQLSMALLINT *pcbDSN , BYREF szDescription AS WSTRINGZ ' SQLWCHAR *szDescription , BYVAL cbDescriptionMax AS INTEGER ' SQLSMALLINT cbDescriptionMax , BYREF pcbDescription AS INTEGER ' SQLSMALLINT *pcbDescription ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLDriverConnectW LIB "odbc32.dll" ALIAS "SQLDriverConnectW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYVAL hwnd AS QUAD ' SQLHWND hwnd , BYREF szConnStrIn As WSTRINGZ ' SQLWCHAR *szConnStrIn , BYVAL cbConnStrIn AS INTEGER ' SQLSMALLINT cbConnStrIn , BYREF szConnStrOut AS WSTRINGZ ' SQLWCHAR *szConnStrOut , BYVAL cbConnStrOutMax AS INTEGER ' SQLSMALLINT cbConnStrOutMax , BYREF pcbConnStrOut AS INTEGER ' SQLSMALLINT *pcbConnStrOut , BYVAL fDriverCompletion AS WORD ' SQLUSMALLINT fDriverCompletion ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLBrowseConnectW LIB "odbc32.dll" ALIAS "SQLBrowseConnectW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYREF szConnStrIn AS WSTRINGZ ' SQLWCHAR *szConnStrIn , BYVAL cbConnStrIn AS INTEGER ' SQLSMALLINT cbConnStrIn , BYREF szConnStrOut AS WSTRINGZ ' SQLWCHAR *szConnStrOut , BYVAL cbConnStrOutMax AS INTEGER ' SQLSMALLINT cbConnStrOutMax , BYREF pcbConnStrOut AS INTEGER ' SQLSMALLINT *pcbConnStrOut ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLColumnPrivilegesW LIB "odbc32.dll" ALIAS "SQLColumnPrivilegesW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName , BYREF szColumnName AS WSTRINGZ ' SQLWCHAR *szColumnName , BYVAL cbColumnName AS INTEGER ' SQLSMALLINT cbColumnName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLGetStmtAttrW LIB "odbc32.dll" ALIAS "SQLGetStmtAttrW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL fAttribute AS LONG ' SQLINTEGER fAttribute , BYREF rgbValue AS ANY ' SQLPOINTER rgbValue , BYVAL cbValueMax AS LONG ' SQLINTEGER cbValueMax , BYREF pcbValue AS LONG ' SQLINTEGER *pcbValue ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLSetStmtAttrW LIB "odbc32.dll" ALIAS "SQLSetStmtAttrW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYVAL fAttribute AS LONG ' SQLINTEGER fAttribute , BYREF rgbValue AS ANY ' SQLPOINTER rgbValue , BYVAL cbValueMax AS LONG ' SQLINTEGER cbValueMax ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLForeignKeysW LIB "odbc32.dll" ALIAS "SQLForeignKeysW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szPkCatalogName AS WSTRINGZ ' SQLWCHAR *szPkCatalogName , BYVAL cbPkCatalogName AS INTEGER ' SQLSMALLINT cbPkCatalogName , BYREF szPkSchemaName AS WSTRINGZ ' SQLWCHAR *szPkSchemaName , BYVAL cbPkSchemaName AS INTEGER ' SQLSMALLINT cbPkSchemaName , BYREF szPkTableName AS WSTRINGZ ' SQLWCHAR *szPkTableName , BYVAL cbPkTableName AS INTEGER ' SQLSMALLINT cbPkTableName , BYREF szFkCatalogName AS WSTRINGZ ' SQLWCHAR *szFkCatalogName , BYVAL cbFkCatalogName AS INTEGER ' SQLSMALLINT cbFkCatalogName , BYREF szFkSchemaName AS WSTRINGZ ' SQLWCHAR *szFkSchemaName , BYVAL cbFkSchemaName AS INTEGER ' SQLSMALLINT cbFkSchemaName , BYREF szFkTableName AS WSTRINGZ ' SQLWCHAR *szFkTableName , BYVAL cbFkTableName AS INTEGER ' SQLSMALLINT cbFkTableName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLNativeSqlW LIB "odbc32.dll" ALIAS "SQLNativeSqlW" ( BYVAL hdbc AS QUAD ' SQLHDBC hdbc , BYREF szSqlStrIn AS WSTRINGZ ' SQLWCHAR *szSqlStrIn , BYVAL cbSqlStrIn AS LONG ' SQLINTEGER cbSqlStrIn , BYREF szSqlStr AS WSTRINGZ ' SQLWCHAR *szSqlStr , BYVAL cbSqlStrMax AS LONG ' SQLINTEGER cbSqlStrMax , BYREF pcbSqlStr AS LONG ' SQLINTEGER *pcbSqlStr ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLPrimaryKeysW LIB "odbc32.dll" ALIAS "SQLPrimaryKeysW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLProcedureColumnsW LIB "odbc32.dll" ALIAS "SQLProcedureColumnsW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szProcName AS WSTRINGZ ' SQLWCHAR *szProcName , BYVAL cbProcName AS INTEGER ' SQLSMALLINT cbProcName , BYREF szColumnName AS WSTRINGZ ' SQLWCHAR *szColumnName , BYVAL cbColumnName AS INTEGER ' SQLSMALLINT cbColumnName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLProceduresW LIB "odbc32.dll" ALIAS "SQLProceduresW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szProcName AS WSTRINGZ ' SQLWCHAR *szProcName , BYVAL cbProcName AS INTEGER ' SQLSMALLINT cbProcName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLTablePrivilegesW LIB "odbc32.dll" ALIAS "SQLTablePrivilegesW" ( BYVAL hstmt AS QUAD ' SQLHSTMT hstmt , BYREF szCatalogName AS WSTRINGZ ' SQLWCHAR *szCatalogName , BYVAL cbCatalogName AS INTEGER ' SQLSMALLINT cbCatalogName , BYREF szSchemaName AS WSTRINGZ ' SQLWCHAR *szSchemaName , BYVAL cbSchemaName AS INTEGER ' SQLSMALLINT cbSchemaName , BYREF szTableName AS WSTRINGZ ' SQLWCHAR *szTableName , BYVAL cbTableName AS INTEGER ' SQLSMALLINT cbTableName ) AS INTEGER ' SQLRETURN
DECLARE FUNCTION SQLDriversW LIB "odbc32.dll" ALIAS "SQLDriversW" ( BYVAL henv AS QUAD ' SQLHENV henv , BYVAL fDirection AS WORD ' SQLUSMALLINT fDirection , BYREF szDriverDesc AS WSTRINGZ ' SQLWCHAR *szDriverDesc , BYVAL cbDriverDescMax AS INTEGER ' SQLSMALLINT cbDriverDescMax , BYREF pcbDriverDesc AS INTEGER ' SQLSMALLINT *pcbDriverDesc , BYREF szDriverAttributes AS WSTRINGZ ' SQLWCHAR *szDriverAttributes , BYVAL cbDrvrAttrMax AS INTEGER ' SQLSMALLINT cbDrvrAttrMax , BYREF pcbDrvrAttr AS INTEGER ' SQLSMALLINT *pcbDrvrAttr ) AS INTEGER ' SQLRETURN
#ENDIF
