paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Windows 64-bit patches from Laco

Browse Source 
git-svn-id: trunk@23702 -
This commit is contained in:
michael 2013-03-07 08:57:18 +00:00
parent d9758e5d0e
commit 94e021157b
1 changed files with 103 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

194
packages/odbc/src/odbcsql.inc
View File

@ -1,30 +1,36 @@
{$ifdef fpc} {$ifdef fpc}
{$mode objfpc} {$mode objfpc}
{$macro on} {$macro on}
{$endif} {$endif}
{$h+} {$h+}
{$ifdef fpc} {$ifdef fpc}
// define ODBC version 3.51 by default // define ODBC version 3.52 by default for Windows and MAC and 3.51 for Linux/Unix
{$define ODBCVER:=$0351} {$if defined(WINDOWS) or defined(DARWIN)}
{$define ODBCVER:=$0352}
{$else}
{$define ODBCVER:=$0351}
{$endif}
{$else fpc}
{$define ODBCVER:=$0352}
{$endif fpc}
{$if ODBCVER >= $0300} {$if ODBCVER >= $0300}
{$define ODBCVER3} {$define ODBCVER3}
{$endif} {$endif}
{$if ODBCVER >= $0350} {$if ODBCVER >= $0350}
{$define ODBCVER35} {$define ODBCVER35}
{$endif} {$endif}
{$else fpc} {$if ODBCVER >= $0352}
{$define ODBCVER3} {$define ODBCVER352}
{$define ODBCVER35} {$endif}
{$endif fpc}
{$ifndef DYNLOADINGODBC} {$ifndef DYNLOADINGODBC}
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
{ $linklib odbc32} { $linklib odbc32}
{$ELSE} {$ELSE}
{$linklib odbc} {$linklib odbc}
{$endif} {$ENDIF}
{$endif} {$endif}
interface interface
@ -65,24 +71,29 @@ type
SQLSCHAR = cschar; SQLSCHAR = cschar;
SQLSMALLINT = csshort; SQLSMALLINT = csshort;
SQLUSMALLINT = cushort; SQLUSMALLINT = cushort;
SQLINTEGER = clong;
SQLUINTEGER = culong;
SQLLEN = {$IFDEF ODBCVER352}PtrInt{$ELSE}SQLINTEGER{$ENDIF};
SQLULEN = {$IFDEF ODBCVER352}PtrUInt{$ELSE}SQLUINTEGER{$ENDIF};
SQLREAL = cfloat;
SQLDOUBLE = cdouble;
SQLFLOAT = cdouble;
SQLRETURN = SQLSMALLINT; SQLRETURN = SQLSMALLINT;
SQLPOINTER = pointer;
SQLHANDLE = pointer; SQLHANDLE = pointer;
SQLHENV = SQLHANDLE; SQLHENV = SQLHANDLE;
SQLHDBC = SQLHANDLE; SQLHDBC = SQLHANDLE;
SQLHSTMT = SQLHANDLE; SQLHSTMT = SQLHANDLE;
SQLHDESC = SQLHANDLE; SQLHDESC = SQLHANDLE;
SQLINTEGER = clong;
SQLUINTEGER = culong;
SQLPOINTER = pointer;
SQLREAL = cfloat;
SQLDOUBLE = cdouble;
SQLFLOAT = cdouble;
SQLHWND = pointer; SQLHWND = pointer;
SQLSETPOSIROW= {$IF DEFINED(CPU64) AND DEFINED(ODBCVER352)}cuint64{$ELSE}SQLUSMALLINT{$ENDIF};
PSQLCHAR = PChar; PSQLCHAR = PChar;
PSQLINTEGER = ^SQLINTEGER;
PSQLUINTEGER = ^SQLUINTEGER;
PSQLSMALLINT = ^SQLSMALLINT; PSQLSMALLINT = ^SQLSMALLINT;
PSQLUSMALLINT = ^SQLUSMALLINT; PSQLUSMALLINT = ^SQLUSMALLINT;
PSQLINTEGER = ^SQLINTEGER;
PSQLUINTEGER = ^SQLUINTEGER;
PSQLLEN = ^SQLLEN;
PSQLULEN = ^SQLULEN;
PSQLREAL = ^SQLREAL; PSQLREAL = ^SQLREAL;
PSQLDOUBLE = ^SQLDOUBLE; PSQLDOUBLE = ^SQLDOUBLE;
PSQLFLOAT = ^SQLFLOAT; PSQLFLOAT = ^SQLFLOAT;
@ -240,7 +251,7 @@ const
SQL_C_ULONG = SQL_C_LONG +SQL_UNSIGNED_OFFSET; // UNSIGNED INTEGER SQL_C_ULONG = SQL_C_LONG +SQL_UNSIGNED_OFFSET; // UNSIGNED INTEGER
SQL_C_USHORT = SQL_C_SHORT+SQL_UNSIGNED_OFFSET; // UNSIGNED SMALLINT SQL_C_USHORT = SQL_C_SHORT+SQL_UNSIGNED_OFFSET; // UNSIGNED SMALLINT
SQL_C_UTINYINT = SQL_TINYINT+SQL_UNSIGNED_OFFSET; // UNSIGNED TINYINT SQL_C_UTINYINT = SQL_TINYINT+SQL_UNSIGNED_OFFSET; // UNSIGNED TINYINT
SQL_C_BOOKMARK = SQL_C_ULONG; // BOOKMARK SQL_C_BOOKMARK = {$if defined(CPU64) and defined(ODBCVER352)}SQL_C_UBIGINT{$else}SQL_C_ULONG{$endif}; // BOOKMARK
{$ifdef ODBCVER35} {$ifdef ODBCVER35}
SQL_C_GUID = SQL_GUID; SQL_C_GUID = SQL_GUID;
@ -445,8 +456,6 @@ const
SQL_MAX_OPTION_STRING_LENGTH = 256; SQL_MAX_OPTION_STRING_LENGTH = 256;
SQL_ODBC_CURSORS = 110;
SQL_ATTR_ODBC_CURSORS = SQL_ODBC_CURSORS;
{ SQL_ODBC_CURSORS options } { SQL_ODBC_CURSORS options }
SQL_CUR_USE_IF_NEEDED = 0; SQL_CUR_USE_IF_NEEDED = 0;
SQL_CUR_USE_ODBC = 1; SQL_CUR_USE_ODBC = 1;
@ -521,55 +530,51 @@ const
SQL_RETRIEVE_DATA =11; SQL_RETRIEVE_DATA =11;
SQL_USE_BOOKMARKS =12; SQL_USE_BOOKMARKS =12;
SQL_GET_BOOKMARK =13; // GetStmtOption Only */ SQL_GET_BOOKMARK =13; // GetStmtOption Only */
SQL_ROW_NUMBER = 14; // GetStmtOption Only */ SQL_ROW_NUMBER =14 ; // GetStmtOption Only */
SQL_ATTR_CURSOR_TYPE = SQL_CURSOR_TYPE; SQL_ATTR_CURSOR_TYPE = SQL_CURSOR_TYPE;
SQL_ATTR_CONCURRENCY = SQL_CONCURRENCY; SQL_ATTR_CONCURRENCY = SQL_CONCURRENCY;
SQL_ATTR_FETCH_BOOKMARK_PTR = 16; SQL_ATTR_FETCH_BOOKMARK_PTR = 16;
SQL_ATTR_ROW_STATUS_PTR = 25; SQL_ATTR_ROW_STATUS_PTR = 25;
SQL_ATTR_ROWS_FETCHED_PTR = 26; SQL_ATTR_ROWS_FETCHED_PTR = 26;
SQL_AUTOCOMMIT = 102;
SQL_ATTR_AUTOCOMMIT = SQL_AUTOCOMMIT;
SQL_ATTR_ROW_NUMBER = SQL_ROW_NUMBER; SQL_ATTR_ROW_NUMBER = SQL_ROW_NUMBER;
SQL_TXN_ISOLATION = 108;
SQL_ATTR_TXN_ISOLATION = SQL_TXN_ISOLATION;
SQL_ATTR_MAX_ROWS = SQL_MAX_ROWS; SQL_ATTR_MAX_ROWS = SQL_MAX_ROWS;
SQL_ATTR_USE_BOOKMARKS = SQL_USE_BOOKMARKS; SQL_ATTR_USE_BOOKMARKS = SQL_USE_BOOKMARKS;
//* connection attributes */ //* connection attributes */
SQL_ACCESS_MODE =101; SQL_ACCESS_MODE =101;
// SQL_AUTOCOMMIT =102; SQL_AUTOCOMMIT =102;
SQL_LOGIN_TIMEOUT =103; SQL_LOGIN_TIMEOUT =103;
SQL_OPT_TRACE =104; SQL_OPT_TRACE =104;
SQL_OPT_TRACEFILE =105; SQL_OPT_TRACEFILE =105;
SQL_TRANSLATE_DLL =106; SQL_TRANSLATE_DLL =106;
SQL_TRANSLATE_OPTION =107; SQL_TRANSLATE_OPTION =107;
// SQL_TXN_ISOLATION =108; SQL_TXN_ISOLATION =108;
SQL_CURRENT_QUALIFIER =109; SQL_CURRENT_QUALIFIER =109;
// SQL_ODBC_CURSORS =110; SQL_ODBC_CURSORS =110;
SQL_QUIET_MODE =111; SQL_QUIET_MODE =111;
SQL_PACKET_SIZE =112; SQL_PACKET_SIZE =112;
//* connection attributes with new names */ //* connection attributes with new names */
SQL_ATTR_ACCESS_MODE =SQL_ACCESS_MODE; SQL_ATTR_ACCESS_MODE =SQL_ACCESS_MODE;
// SQL_ATTR_AUTOCOMMIT =SQL_AUTOCOMMIT; SQL_ATTR_AUTOCOMMIT =SQL_AUTOCOMMIT;
SQL_ATTR_CONNECTION_DEAD =1209; //* GetConnectAttr only */ SQL_ATTR_CONNECTION_DEAD =1209; //* GetConnectAttr only */
SQL_ATTR_CONNECTION_TIMEOUT =113; SQL_ATTR_CONNECTION_TIMEOUT =113;
SQL_ATTR_CURRENT_CATALOG =SQL_CURRENT_QUALIFIER; SQL_ATTR_CURRENT_CATALOG =SQL_CURRENT_QUALIFIER;
SQL_ATTR_DISCONNECT_BEHAVIOR=114; SQL_ATTR_DISCONNECT_BEHAVIOR=114;
SQL_ATTR_ENLIST_IN_DTC =1207; SQL_ATTR_ENLIST_IN_DTC =1207;
SQL_ATTR_ENLIST_IN_XA =1208; SQL_ATTR_ENLIST_IN_XA =1208;
SQL_ATTR_LOGIN_TIMEOUT =SQL_LOGIN_TIMEOUT; SQL_ATTR_LOGIN_TIMEOUT =SQL_LOGIN_TIMEOUT;
// SQL_ATTR_ODBC_CURSORS =SQL_ODBC_CURSORS; SQL_ATTR_ODBC_CURSORS =SQL_ODBC_CURSORS;
SQL_ATTR_PACKET_SIZE =SQL_PACKET_SIZE; SQL_ATTR_PACKET_SIZE =SQL_PACKET_SIZE;
SQL_ATTR_QUIET_MODE =SQL_QUIET_MODE; SQL_ATTR_QUIET_MODE =SQL_QUIET_MODE;
SQL_ATTR_TRACE =SQL_OPT_TRACE; SQL_ATTR_TRACE =SQL_OPT_TRACE;
SQL_ATTR_TRACEFILE =SQL_OPT_TRACEFILE; SQL_ATTR_TRACEFILE =SQL_OPT_TRACEFILE;
SQL_ATTR_TRANSLATE_LIB =SQL_TRANSLATE_DLL; SQL_ATTR_TRANSLATE_LIB =SQL_TRANSLATE_DLL;
SQL_ATTR_TRANSLATE_OPTION =SQL_TRANSLATE_OPTION; SQL_ATTR_TRANSLATE_OPTION =SQL_TRANSLATE_OPTION;
// SQL_ATTR_TXN_ISOLATION =SQL_TXN_ISOLATION; SQL_ATTR_TXN_ISOLATION =SQL_TXN_ISOLATION;
//* SQL_ACCESS_MODE options */ //* SQL_ACCESS_MODE options */
SQL_MODE_READ_WRITE =0; SQL_MODE_READ_WRITE =0;
@ -797,19 +802,14 @@ const
#define SQL_MAX_CONCURRENT_ACTIVITIES 1 #define SQL_MAX_CONCURRENT_ACTIVITIES 1
#define SQL_MAXIMUM_CONCURRENT_ACTIVITIES SQL_MAX_CONCURRENT_ACTIVITIES #define SQL_MAXIMUM_CONCURRENT_ACTIVITIES SQL_MAX_CONCURRENT_ACTIVITIES
#endif #endif
#define SQL_DATA_SOURCE_NAME 2
#define SQL_FETCH_DIRECTION 8 #define SQL_FETCH_DIRECTION 8
#define SQL_SERVER_NAME 13
#define SQL_SEARCH_PATTERN_ESCAPE 14 #define SQL_SEARCH_PATTERN_ESCAPE 14
#define SQL_DBMS_NAME 17
#define SQL_DBMS_VER 18
#define SQL_ACCESSIBLE_TABLES 19 #define SQL_ACCESSIBLE_TABLES 19
#define SQL_ACCESSIBLE_PROCEDURES 20 #define SQL_ACCESSIBLE_PROCEDURES 20
#define SQL_CURSOR_COMMIT_BEHAVIOR 23 #define SQL_CURSOR_COMMIT_BEHAVIOR 23
#define SQL_DATA_SOURCE_READ_ONLY 25 #define SQL_DATA_SOURCE_READ_ONLY 25
#define SQL_DEFAULT_TXN_ISOLATION 26 #define SQL_DEFAULT_TXN_ISOLATION 26
#define SQL_IDENTIFIER_CASE 28 #define SQL_IDENTIFIER_CASE 28
#define SQL_IDENTIFIER_QUOTE_CHAR 29
#define SQL_MAX_COLUMN_NAME_LEN 30 #define SQL_MAX_COLUMN_NAME_LEN 30
#define SQL_MAXIMUM_COLUMN_NAME_LENGTH SQL_MAX_COLUMN_NAME_LEN #define SQL_MAXIMUM_COLUMN_NAME_LENGTH SQL_MAX_COLUMN_NAME_LEN
#define SQL_MAX_CURSOR_NAME_LEN 31 #define SQL_MAX_CURSOR_NAME_LEN 31
@ -820,9 +820,16 @@ const
#define SQL_MAXIMUM_CATALOG_NAME_LENGTH SQL_MAX_CATALOG_NAME_LEN #define SQL_MAXIMUM_CATALOG_NAME_LENGTH SQL_MAX_CATALOG_NAME_LEN
#define SQL_MAX_TABLE_NAME_LEN 35 #define SQL_MAX_TABLE_NAME_LEN 35
} }
SQL_DATA_SOURCE_NAME = 2;
SQL_DRIVER_NAME = 6;
SQL_DRIVER_VER = 7;
SQL_SERVER_NAME = 13;
SQL_DBMS_NAME = 17;
SQL_DBMS_VER = 18;
SQL_IDENTIFIER_QUOTE_CHAR = 29;
SQL_SCROLL_CONCURRENCY = 43; SQL_SCROLL_CONCURRENCY = 43;
SQL_TXN_CAPABLE = 46; SQL_TXN_CAPABLE = 46;
SQL_TRANSACTION_CAPABLE = SQL_TXN_CAPABLE; SQL_TRANSACTION_CAPABLE = SQL_TXN_CAPABLE;
SQL_USER_NAME = 47; SQL_USER_NAME = 47;
SQL_TXN_ISOLATION_OPTION = 72; SQL_TXN_ISOLATION_OPTION = 72;
SQL_TRANSACTION_ISOLATION_OPTION = SQL_TXN_ISOLATION_OPTION; SQL_TRANSACTION_ISOLATION_OPTION = SQL_TXN_ISOLATION_OPTION;
@ -1000,7 +1007,7 @@ const
SQL_COLUMN_DRIVER_START = 1000; SQL_COLUMN_DRIVER_START = 1000;
{$endif} { ODBCVER >= 0x0300 } {$endif} { ODBCVER >= 0x0300 }
{ SQLColAttribute defines } { SQLColAttribute defines }
{$ifdef ODBCVER3} {$ifdef ODBCVER3}
SQL_DESC_ARRAY_SIZE = 20; SQL_DESC_ARRAY_SIZE = 20;
SQL_DESC_ARRAY_STATUS_PTR = 21; SQL_DESC_ARRAY_STATUS_PTR = 21;
@ -1032,6 +1039,11 @@ const
SQL_DESC_UPDATABLE = SQL_COLUMN_UPDATABLE; SQL_DESC_UPDATABLE = SQL_COLUMN_UPDATABLE;
{$endif} {$endif}
{ SQLColAttributes subdefines for SQL_COLUMN_UPDATABLE }
SQL_ATTR_READONLY = 0;
SQL_ATTR_WRITE = 1;
SQL_ATTR_READWRITE_UNKNOWN = 2;
//* SQLEndTran() options */ //* SQLEndTran() options */
SQL_COMMIT = 0; SQL_COMMIT = 0;
SQL_ROLLBACK = 1; SQL_ROLLBACK = 1;
@ -1100,20 +1112,20 @@ type TSQLNumResultCols=function (StatementHandle:SQLHSTMT;
type TSQLDescribeCol=function (StatementHandle:SQLHSTMT; type TSQLDescribeCol=function (StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT;ColumnName:PSQLCHAR; ColumnNumber:SQLUSMALLINT;ColumnName:PSQLCHAR;
BufferLength:SQLSMALLINT;var NameLength:SQLSMALLINT; BufferLength:SQLSMALLINT;var NameLength:SQLSMALLINT;
var DataType:SQLSMALLINT;var ColumnSize:SQLUINTEGER; var DataType:SQLSMALLINT;var ColumnSize:SQLULEN;
var DecimalDigits:SQLSMALLINT;var Nullable:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; var DecimalDigits:SQLSMALLINT;var Nullable:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLFetchScroll=function (StatementHandle:SQLHSTMT; type TSQLFetchScroll=function (StatementHandle:SQLHSTMT;
FetchOrientation:SQLSMALLINT;FetchOffset:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; FetchOrientation:SQLSMALLINT;FetchOffset:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLExtendedFetch=function (hstmt:SQLHSTMT; type TSQLExtendedFetch=function (hstmt:SQLHSTMT;
fFetchType:SQLUSMALLINT;irow:SQLINTEGER; fFetchType:SQLUSMALLINT;irow:SQLLEN;
pcrow:PSQLUINTEGER;rgfRowStatus:PSQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; pcrow:PSQLULEN;rgfRowStatus:PSQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLGetData=function (StatementHandle:SQLHSTMT; type TSQLGetData=function (StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT; ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT;
TargetValue:SQLPOINTER;BufferLength:SQLINTEGER; TargetValue:SQLPOINTER;BufferLength:SQLLEN;
StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; StrLen_or_Ind:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLSetStmtAttr=function (StatementHandle:SQLHSTMT; type TSQLSetStmtAttr=function (StatementHandle:SQLHSTMT;
Attribute:SQLINTEGER;Value:SQLPOINTER; Attribute:SQLINTEGER;Value:SQLPOINTER;
@ -1129,8 +1141,8 @@ type TSQLSetDescField=function (DescriptorHandle:SQLHDESC;
type TSQLSetDescRec=function (DescriptorHandle:SQLHDESC; type TSQLSetDescRec=function (DescriptorHandle:SQLHDESC;
RecNumber:SQLSMALLINT; DescType, SubType:SQLSMALLINT; RecNumber:SQLSMALLINT; DescType, SubType:SQLSMALLINT;
Length:SQLINTEGER; Precision, Scale: SQLSMALLINT; Length:SQLLEN; Precision, Scale: SQLSMALLINT;
DataPtr:SQLPOINTER; StringLengthPtr,IndicatorPtr:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; DataPtr:SQLPOINTER; StringLengthPtr,IndicatorPtr:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type tSQLGetInfo=function (ConnectionHandle:SQLHDBC; type tSQLGetInfo=function (ConnectionHandle:SQLHDBC;
InfoType:SQLUSMALLINT;InfoValue:SQLPOINTER; InfoType:SQLUSMALLINT;InfoValue:SQLPOINTER;
@ -1140,16 +1152,16 @@ type TSQLBulkOperations=function (StatementHandle: SQLHSTMT;
Operation:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; Operation:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLPutData=function (StatementHandle:SQLHSTMT; type TSQLPutData=function (StatementHandle:SQLHSTMT;
Data:SQLPOINTER;StrLen_or_Ind:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; Data:SQLPOINTER;StrLen_or_Ind:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLBindCol=function (StatementHandle:SQLHSTMT; type TSQLBindCol=function (StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT; ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT;
TargetValue:SQLPOINTER;BufferLength:SQLINTEGER; TargetValue:SQLPOINTER;BufferLength:SQLLEN;
StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; StrLen_or_Ind:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLSetPos=function (hstmt:SQLHSTMT; type TSQLSetPos=function (StatementHandle:SQLHSTMT;
irow:SQLUSMALLINT;fOption:SQLUSMALLINT; RowNumber:SQLSETPOSIROW; Operation:SQLUSMALLINT;
fLock:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; LockType:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLDataSources=function (EnvironmentHandle:SQLHENV; type TSQLDataSources=function (EnvironmentHandle:SQLHENV;
Direction:SQLUSMALLINT;ServerName:PSQLCHAR; Direction:SQLUSMALLINT;ServerName:PSQLCHAR;
@ -1175,14 +1187,14 @@ type TSQLSetCursorName=function (StatementHandle:SQLHSTMT;
CursorName:PSQLCHAR; NameLength:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; CursorName:PSQLCHAR; NameLength:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLRowCount=function (StatementHandle:SQLHSTMT; type TSQLRowCount=function (StatementHandle:SQLHSTMT;
Var RowCount:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; var RowCount:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLBindParameter=function (hstmt:SQLHSTMT; type TSQLBindParameter=function (hstmt:SQLHSTMT;
ipar:SQLUSMALLINT;fParamType:SQLSMALLINT; ipar:SQLUSMALLINT;fParamType:SQLSMALLINT;
fCType:SQLSMALLINT;fSqlType:SQLSMALLINT; fCType:SQLSMALLINT;fSqlType:SQLSMALLINT;
cbColDef:SQLUINTEGER;ibScale:SQLSMALLINT; cbColDef:SQLULEN;ibScale:SQLSMALLINT;
rgbValue:SQLPOINTER;cbValueMax:SQLINTEGER; rgbValue:SQLPOINTER;cbValueMax:SQLLEN;
pcbValue:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; pcbValue:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLFreeStmt=function (StatementHandle:SQLHSTMT; type TSQLFreeStmt=function (StatementHandle:SQLHSTMT;
Option:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; Option:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
@ -1190,7 +1202,7 @@ type TSQLFreeStmt=function (StatementHandle:SQLHSTMT;
type TSQLColAttribute=function (StatementHandle:SQLHSTMT; type TSQLColAttribute=function (StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT;FieldIdentifier:SQLUSMALLINT; ColumnNumber:SQLUSMALLINT;FieldIdentifier:SQLUSMALLINT;
CharacterAttribute:PSQLCHAR;BufferLength:SQLSMALLINT; CharacterAttribute:PSQLCHAR;BufferLength:SQLSMALLINT;
StringLength:PSQLSMALLINT;NumericAttribute:SQLPOINTER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; StringLength:PSQLSMALLINT;NumericAttribute:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
type TSQLEndTran=function (HandleType:SQLSMALLINT; type TSQLEndTran=function (HandleType:SQLSMALLINT;
Handle:SQLHANDLE;CompletionType:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif}; Handle:SQLHANDLE;CompletionType:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
@ -1366,26 +1378,26 @@ var odbcversion:word;
BufferLength:SQLSMALLINT; BufferLength:SQLSMALLINT;
var NameLength:SQLSMALLINT; var NameLength:SQLSMALLINT;
var DataType:SQLSMALLINT; var DataType:SQLSMALLINT;
var ColumnSize:SQLUINTEGER; var ColumnSize:SQLULEN;
var DecimalDigits:SQLSMALLINT; var DecimalDigits:SQLSMALLINT;
var Nullable:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; var Nullable:SQLSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLFetchScroll( function SQLFetchScroll(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
FetchOrientation:SQLSMALLINT; FetchOrientation:SQLSMALLINT;
FetchOffset:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; FetchOffset:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLExtendedFetch( function SQLExtendedFetch(
hstmt:SQLHSTMT; hstmt:SQLHSTMT;
fFetchType:SQLUSMALLINT; fFetchType:SQLUSMALLINT;
irow:SQLINTEGER; irow:SQLLEN;
pcrow:PSQLUINTEGER; pcrow:PSQLULEN;
rgfRowStatus:PSQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; rgfRowStatus:PSQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLGetData( function SQLGetData(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT; ColumnNumber:SQLUSMALLINT;
TargetType:SQLSMALLINT; TargetType:SQLSMALLINT;
TargetValue:SQLPOINTER; TargetValue:SQLPOINTER;
BufferLength:SQLINTEGER; BufferLength:SQLLEN;
StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; StrLen_or_Ind:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLSetStmtAttr( function SQLSetStmtAttr(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
Attribute:SQLINTEGER; Attribute:SQLINTEGER;
@ -1409,19 +1421,19 @@ var odbcversion:word;
function SQLPutData( function SQLPutData(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
Data:SQLPOINTER; Data:SQLPOINTER;
StrLen_or_Ind:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; StrLen_or_Ind:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLBindCol( function SQLBindCol(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
ColumnNumber:SQLUSMALLINT; ColumnNumber:SQLUSMALLINT;
TargetType:SQLSMALLINT; TargetType:SQLSMALLINT;
TargetValue:SQLPOINTER; TargetValue:SQLPOINTER;
BufferLength:SQLINTEGER; BufferLength:SQLLEN;
StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; StrLen_or_Ind:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLSetPos( function SQLSetPos(
hstmt:SQLHSTMT; StatementHandle:SQLHSTMT;
irow:SQLUSMALLINT; RowNumber:SQLSETPOSIROW;
fOption:SQLUSMALLINT; Operation:SQLUSMALLINT;
fLock:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; LockType:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLDataSources( function SQLDataSources(
EnvironmentHandle:SQLHENV; EnvironmentHandle:SQLHENV;
Direction:SQLUSMALLINT; Direction:SQLUSMALLINT;
@ -1454,18 +1466,18 @@ var odbcversion:word;
):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; ):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLRowCount( function SQLRowCount(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
Var RowCount:SQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; var RowCount:SQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLBindParameter( function SQLBindParameter(
hstmt:SQLHSTMT; hstmt:SQLHSTMT;
ipar:SQLUSMALLINT; ipar:SQLUSMALLINT;
fParamType:SQLSMALLINT; fParamType:SQLSMALLINT;
fCType:SQLSMALLINT; fCType:SQLSMALLINT;
fSqlType:SQLSMALLINT; fSqlType:SQLSMALLINT;
cbColDef:SQLUINTEGER; cbColDef:SQLULEN;
ibScale:SQLSMALLINT; ibScale:SQLSMALLINT;
rgbValue:SQLPOINTER; rgbValue:SQLPOINTER;
cbValueMax:SQLINTEGER; cbValueMax:SQLLEN;
pcbValue:PSQLINTEGER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; pcbValue:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
function SQLFreeStmt( function SQLFreeStmt(
StatementHandle:SQLHSTMT; StatementHandle:SQLHSTMT;
Option:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; Option:SQLUSMALLINT):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
@ -1476,7 +1488,7 @@ var odbcversion:word;
CharacterAttribute:PSQLCHAR; CharacterAttribute:PSQLCHAR;
BufferLength:SQLSMALLINT; BufferLength:SQLSMALLINT;
StringLength:PSQLSMALLINT; StringLength:PSQLSMALLINT;
NumericAttribute:SQLPOINTER):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib; NumericAttribute:PSQLLEN):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};external odbclib;
{$ifdef ODBCVER3} {$ifdef ODBCVER3}
function SQLEndTran( function SQLEndTran(
HandleType:SQLSMALLINT; HandleType:SQLSMALLINT;