|
|
@@ -1,1755 +1,7 @@
|
|
|
unit odbcsql;
|
|
|
|
|
|
-{$mode objfpc}
|
|
|
-{$h+}
|
|
|
-{$macro on}
|
|
|
+{$UNDEF DYNLOADINGODBC}
|
|
|
|
|
|
- // define ODBC version 3.51 by default
|
|
|
-{$define ODBCVER:=$0351}
|
|
|
-{$if ODBCVER >= $0300}
|
|
|
- {$define ODBCVER3}
|
|
|
-{$endif}
|
|
|
-
|
|
|
-interface
|
|
|
-
|
|
|
-uses sysutils;
|
|
|
-
|
|
|
-(* DATA TYPES CORRESPONDENCE
|
|
|
- BDE fields ODBC types
|
|
|
- ---------- ------------------
|
|
|
- ftBlob SQL_BINARY
|
|
|
- ftBoolean SQL_BIT
|
|
|
- ftDate SQL_TYPE_DATE
|
|
|
- ftTime SQL_TYPE_TIME
|
|
|
- ftDateTime SQL_TYPE_TIMESTAMP
|
|
|
- ftInteger SQL_INTEGER
|
|
|
- ftSmallint SQL_SMALLINT
|
|
|
- ftFloat SQL_DOUBLE
|
|
|
- ftString SQL_CHAR
|
|
|
- ftMemo SQL_BINARY // SQL_VARCHAR
|
|
|
-*)
|
|
|
-
|
|
|
-type
|
|
|
- SQLCHAR = Char;
|
|
|
- SQLSMALLINT = smallint;
|
|
|
- SQLUSMALLINT = Word;
|
|
|
- SQLRETURN = SQLSMALLINT;
|
|
|
- SQLHANDLE = LongInt;
|
|
|
- SQLHENV = SQLHANDLE;
|
|
|
- SQLHDBC = SQLHANDLE;
|
|
|
- SQLHSTMT = SQLHANDLE;
|
|
|
- SQLINTEGER = LongInt;
|
|
|
- SQLUINTEGER = Cardinal;
|
|
|
- SQLPOINTER = Pointer;
|
|
|
- SQLREAL = real;
|
|
|
- SQLDOUBLE = Double;
|
|
|
- SQLFLOAT = Double;
|
|
|
- SQLHWND = pointer;
|
|
|
- PSQLCHAR = PChar;
|
|
|
- PSQLINTEGER = ^SQLINTEGER;
|
|
|
- PSQLUINTEGER = ^SQLUINTEGER;
|
|
|
- PSQLSMALLINT = ^SQLSMALLINT;
|
|
|
- PSQLUSMALLINT = ^SQLUSMALLINT;
|
|
|
- PSQLREAL = ^SQLREAL;
|
|
|
- PSQLDOUBLE = ^SQLDOUBLE;
|
|
|
- PSQLFLOAT = ^SQLFLOAT;
|
|
|
- PSQLHandle = ^SQLHANDLE;
|
|
|
-
|
|
|
-const
|
|
|
- { SQL data type codes }
|
|
|
- SQL_UNKNOWN_TYPE = 0;
|
|
|
- SQL_LONGVARCHAR =(-1);
|
|
|
- SQL_BINARY =(-2);
|
|
|
- SQL_VARBINARY =(-3);
|
|
|
- SQL_LONGVARBINARY =(-4);
|
|
|
- SQL_BIGINT =(-5);
|
|
|
- SQL_TINYINT =(-6);
|
|
|
- SQL_BIT =(-7);
|
|
|
- SQL_WCHAR =(-8);
|
|
|
- SQL_WVARCHAR =(-9);
|
|
|
- SQL_WLONGVARCHAR =(-10);
|
|
|
-
|
|
|
-
|
|
|
- SQL_CHAR = 1;
|
|
|
- SQL_NUMERIC = 2;
|
|
|
- SQL_DECIMAL = 3;
|
|
|
- SQL_INTEGER = 4;
|
|
|
- SQL_SMALLINT = 5;
|
|
|
- SQL_FLOAT = 6;
|
|
|
- SQL_REAL = 7;
|
|
|
- SQL_DOUBLE = 8;
|
|
|
- {$ifdef ODBCVER3}
|
|
|
- SQL_DATETIME = 9;
|
|
|
- {$endif}
|
|
|
- SQL_VARCHAR = 12;
|
|
|
-
|
|
|
- {$ifdef ODBCVER3}
|
|
|
- SQL_TYPE_DATE = 91;
|
|
|
- SQL_TYPE_TIME = 92;
|
|
|
- SQL_TYPE_TIMESTAMP= 93;
|
|
|
- {$endif}
|
|
|
-
|
|
|
- SQL_DATE = 9;
|
|
|
- SQL_TIME = 10;
|
|
|
- SQL_TIMESTAMP = 11;
|
|
|
- {$if ODBCVER >= $0300}
|
|
|
- SQL_INTERVAL = 10;
|
|
|
- {$endif}
|
|
|
- {$if ODBCVER >= $0350}
|
|
|
- SQL_GUID = -11;
|
|
|
- {$endif}
|
|
|
-
|
|
|
- { interval codes}
|
|
|
- {$ifdef ODBCVER3}
|
|
|
- SQL_CODE_YEAR = 1;
|
|
|
- SQL_CODE_MONTH = 2;
|
|
|
- SQL_CODE_DAY = 3;
|
|
|
- SQL_CODE_HOUR = 4;
|
|
|
- SQL_CODE_MINUTE = 5;
|
|
|
- SQL_CODE_SECOND = 6;
|
|
|
- SQL_CODE_YEAR_TO_MONTH = 7;
|
|
|
- SQL_CODE_DAY_TO_HOUR = 8;
|
|
|
- SQL_CODE_DAY_TO_MINUTE = 9;
|
|
|
- SQL_CODE_DAY_TO_SECOND = 10;
|
|
|
- SQL_CODE_HOUR_TO_MINUTE = 11;
|
|
|
- SQL_CODE_HOUR_TO_SECOND = 12;
|
|
|
- SQL_CODE_MINUTE_TO_SECOND = 13;
|
|
|
-
|
|
|
- SQL_INTERVAL_YEAR = 100 + SQL_CODE_YEAR;
|
|
|
- SQL_INTERVAL_MONTH = 100 + SQL_CODE_MONTH;
|
|
|
- SQL_INTERVAL_DAY = 100 + SQL_CODE_DAY;
|
|
|
- SQL_INTERVAL_HOUR = 100 + SQL_CODE_HOUR;
|
|
|
- SQL_INTERVAL_MINUTE = 100 + SQL_CODE_MINUTE;
|
|
|
- SQL_INTERVAL_SECOND = 100 + SQL_CODE_SECOND;
|
|
|
- SQL_INTERVAL_YEAR_TO_MONTH = 100 + SQL_CODE_YEAR_TO_MONTH;
|
|
|
- SQL_INTERVAL_DAY_TO_HOUR = 100 + SQL_CODE_DAY_TO_HOUR;
|
|
|
- SQL_INTERVAL_DAY_TO_MINUTE = 100 + SQL_CODE_DAY_TO_MINUTE;
|
|
|
- SQL_INTERVAL_DAY_TO_SECOND = 100 + SQL_CODE_DAY_TO_SECOND;
|
|
|
- SQL_INTERVAL_HOUR_TO_MINUTE = 100 + SQL_CODE_HOUR_TO_MINUTE;
|
|
|
- SQL_INTERVAL_HOUR_TO_SECOND = 100 + SQL_CODE_HOUR_TO_SECOND;
|
|
|
- SQL_INTERVAL_MINUTE_TO_SECOND = 100 + SQL_CODE_MINUTE_TO_SECOND;
|
|
|
- {$else}
|
|
|
- SQL_INTERVAL_YEAR = -80;
|
|
|
- SQL_INTERVAL_MONTH = -81;
|
|
|
- SQL_INTERVAL_YEAR_TO_MONTH = -82;
|
|
|
- SQL_INTERVAL_DAY = -83;
|
|
|
- SQL_INTERVAL_HOUR = -84;
|
|
|
- SQL_INTERVAL_MINUTE = -85;
|
|
|
- SQL_INTERVAL_SECOND = -86;
|
|
|
- SQL_INTERVAL_DAY_TO_HOUR = -87;
|
|
|
- SQL_INTERVAL_DAY_TO_MINUTE = -88;
|
|
|
- SQL_INTERVAL_DAY_TO_SECOND = -89;
|
|
|
- SQL_INTERVAL_HOUR_TO_MINUTE = -90;
|
|
|
- SQL_INTERVAL_HOUR_TO_SECOND = -91;
|
|
|
- SQL_INTERVAL_MINUTE_TO_SECOND = -92;
|
|
|
- {$endif}
|
|
|
-
|
|
|
- { Unicode data type codes }
|
|
|
- {$if ODBCVER <= $0300}
|
|
|
- SQL_UNICODE = -95;
|
|
|
- SQL_UNICODE_VARCHAR = -96;
|
|
|
- SQL_UNICODE_LONGVARCHAR = -97;
|
|
|
- SQL_UNICODE_CHAR = SQL_UNICODE;
|
|
|
- {$else}
|
|
|
- { The previous definitions for SQL_UNICODE_ are historical and obsolete }
|
|
|
- SQL_UNICODE = SQL_WCHAR;
|
|
|
- SQL_UNICODE_VARCHAR = SQL_WVARCHAR;
|
|
|
- SQL_UNICODE_LONGVARCHAR = SQL_WLONGVARCHAR;
|
|
|
- SQL_UNICODE_CHAR = SQL_WCHAR;
|
|
|
- {$endif}
|
|
|
-
|
|
|
- { C datatype to SQL datatype mapping }
|
|
|
- SQL_C_CHAR = SQL_CHAR;
|
|
|
- SQL_C_LONG = SQL_INTEGER;
|
|
|
- SQL_C_SHORT = SQL_SMALLINT;
|
|
|
- SQL_C_FLOAT = SQL_REAL;
|
|
|
- SQL_C_DOUBLE = SQL_DOUBLE;
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_C_NUMERIC = SQL_NUMERIC;
|
|
|
-{$endif}
|
|
|
- SQL_C_DEFAULT = 99;
|
|
|
-
|
|
|
- SQL_SIGNED_OFFSET = -20;
|
|
|
- SQL_UNSIGNED_OFFSET = -22;
|
|
|
-
|
|
|
- SQL_C_DATE = SQL_DATE;
|
|
|
- SQL_C_TIME = SQL_TIME;
|
|
|
- SQL_C_TIMESTAMP = SQL_TIMESTAMP;
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_C_TYPE_DATE = SQL_TYPE_DATE;
|
|
|
- SQL_C_TYPE_TIME = SQL_TYPE_TIME;
|
|
|
- SQL_C_TYPE_TIMESTAMP = SQL_TYPE_TIMESTAMP;
|
|
|
- SQL_C_INTERVAL_YEAR = SQL_INTERVAL_YEAR;
|
|
|
- SQL_C_INTERVAL_MONTH = SQL_INTERVAL_MONTH;
|
|
|
- SQL_C_INTERVAL_DAY = SQL_INTERVAL_DAY;
|
|
|
- SQL_C_INTERVAL_HOUR = SQL_INTERVAL_HOUR;
|
|
|
- SQL_C_INTERVAL_MINUTE = SQL_INTERVAL_MINUTE;
|
|
|
- SQL_C_INTERVAL_SECOND = SQL_INTERVAL_SECOND;
|
|
|
- SQL_C_INTERVAL_YEAR_TO_MONTH = SQL_INTERVAL_YEAR_TO_MONTH;
|
|
|
- SQL_C_INTERVAL_DAY_TO_HOUR = SQL_INTERVAL_DAY_TO_HOUR;
|
|
|
- SQL_C_INTERVAL_DAY_TO_MINUTE = SQL_INTERVAL_DAY_TO_MINUTE;
|
|
|
- SQL_C_INTERVAL_DAY_TO_SECOND = SQL_INTERVAL_DAY_TO_SECOND;
|
|
|
- SQL_C_INTERVAL_HOUR_TO_MINUTE = SQL_INTERVAL_HOUR_TO_MINUTE;
|
|
|
- SQL_C_INTERVAL_HOUR_TO_SECOND = SQL_INTERVAL_HOUR_TO_SECOND;
|
|
|
- SQL_C_INTERVAL_MINUTE_TO_SECOND = SQL_INTERVAL_MINUTE_TO_SECOND;
|
|
|
-{$endif}
|
|
|
- SQL_C_BINARY = SQL_BINARY;
|
|
|
- SQL_C_BIT = SQL_BIT;
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_C_SBIGINT = SQL_BIGINT+SQL_SIGNED_OFFSET; // SIGNED BIGINT
|
|
|
- SQL_C_UBIGINT = SQL_BIGINT+SQL_UNSIGNED_OFFSET; // UNSIGNED BIGINT
|
|
|
-{$endif}
|
|
|
- SQL_C_TINYINT = SQL_TINYINT;
|
|
|
- SQL_C_SLONG = SQL_C_LONG +SQL_SIGNED_OFFSET; // SIGNED INTEGER
|
|
|
- SQL_C_SSHORT = SQL_C_SHORT+SQL_SIGNED_OFFSET; // SIGNED SMALLINT
|
|
|
- SQL_C_STINYINT = SQL_TINYINT+SQL_SIGNED_OFFSET; // SIGNED TINYINT
|
|
|
- SQL_C_ULONG = SQL_C_LONG +SQL_UNSIGNED_OFFSET; // UNSIGNED INTEGER
|
|
|
- SQL_C_USHORT = SQL_C_SHORT+SQL_UNSIGNED_OFFSET; // UNSIGNED SMALLINT
|
|
|
- SQL_C_UTINYINT = SQL_TINYINT+SQL_UNSIGNED_OFFSET; // UNSIGNED TINYINT
|
|
|
- SQL_C_BOOKMARK = SQL_C_ULONG; // BOOKMARK
|
|
|
-
|
|
|
-{$if ODBCVER >= $0350}
|
|
|
- SQL_C_GUID = SQL_GUID;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- SQL_TYPE_NULL = 0;
|
|
|
-{$ifndef ODBCVER3}
|
|
|
- SQL_TYPE_MIN = SQL_BIT;
|
|
|
- SQL_TYPE_MAX = SQL_VARCHAR;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_C_VARBOOKMARK = SQL_C_BINARY;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- SQL_NO_TOTAL = -4;
|
|
|
-
|
|
|
-type
|
|
|
- SQL_DATE_STRUCT = packed record
|
|
|
- Year : SQLSMALLINT;
|
|
|
- Month : SQLUSMALLINT;
|
|
|
- Day : SQLUSMALLINT;
|
|
|
- end;
|
|
|
- PSQL_DATE_STRUCT = ^SQL_DATE_STRUCT;
|
|
|
-
|
|
|
- SQL_TIME_STRUCT = packed record
|
|
|
- Hour : SQLUSMALLINT;
|
|
|
- Minute : SQLUSMALLINT;
|
|
|
- Second : SQLUSMALLINT;
|
|
|
- end;
|
|
|
- PSQL_TIME_STRUCT = ^SQL_TIME_STRUCT;
|
|
|
-
|
|
|
- SQL_TIMESTAMP_STRUCT = packed record
|
|
|
- Year : SQLUSMALLINT;
|
|
|
- Month : SQLUSMALLINT;
|
|
|
- Day : SQLUSMALLINT;
|
|
|
- Hour : SQLUSMALLINT;
|
|
|
- Minute : SQLUSMALLINT;
|
|
|
- Second : SQLUSMALLINT;
|
|
|
- Fraction : SQLUINTEGER;
|
|
|
- end;
|
|
|
- PSQL_TIMESTAMP_STRUCT = ^SQL_TIMESTAMP_STRUCT;
|
|
|
-
|
|
|
-const
|
|
|
- SQL_NAME_LEN = 128;
|
|
|
-
|
|
|
- SQL_OV_ODBC3 = 3;
|
|
|
- SQL_OV_ODBC2 = 2;
|
|
|
- SQL_ATTR_ODBC_VERSION = 200;
|
|
|
-
|
|
|
- { Options for SQLDriverConnect }
|
|
|
- SQL_DRIVER_NOPROMPT = 0;
|
|
|
- SQL_DRIVER_COMPLETE = 1;
|
|
|
- SQL_DRIVER_PROMPT = 2;
|
|
|
- SQL_DRIVER_COMPLETE_REQUIRED = 3;
|
|
|
-
|
|
|
- { whether an attribute is a pointer or not }
|
|
|
- SQL_IS_POINTER = (-4);
|
|
|
- SQL_IS_UINTEGER = (-5);
|
|
|
- SQL_IS_INTEGER = (-6);
|
|
|
- SQL_IS_USMALLINT = (-7);
|
|
|
- SQL_IS_SMALLINT = (-8);
|
|
|
- { SQLExtendedFetch "fFetchType" values }
|
|
|
- SQL_FETCH_BOOKMARK = 8;
|
|
|
-
|
|
|
- SQL_SCROLL_OPTIONS = 44;
|
|
|
-
|
|
|
- { SQL_USE_BOOKMARKS options }
|
|
|
- SQL_UB_OFF = 0;
|
|
|
- SQL_UB_ON = 1;
|
|
|
- SQL_UB_DEFAULT = SQL_UB_OFF;
|
|
|
- SQL_UB_FIXED = SQL_UB_ON;
|
|
|
- SQL_UB_VARIABLE = 2;
|
|
|
-
|
|
|
- { SQL_SCROLL_OPTIONS masks }
|
|
|
- SQL_SO_FORWARD_ONLY = $01;
|
|
|
- SQL_SO_KEYSET_DRIVEN = $02;
|
|
|
- SQL_SO_DYNAMIC = $04;
|
|
|
- SQL_SO_MIXED = $08;
|
|
|
- SQL_SO_STATIC = $10;
|
|
|
-
|
|
|
- SQL_BOOKMARK_PERSISTENCE = 82;
|
|
|
- SQL_STATIC_SENSITIVITY = 83;
|
|
|
-
|
|
|
- { SQL_BOOKMARK_PERSISTENCE values }
|
|
|
- SQL_BP_CLOSE = $01;
|
|
|
- SQL_BP_DELETE = $02;
|
|
|
- SQL_BP_DROP = $04;
|
|
|
- SQL_BP_TRANSACTION = $08;
|
|
|
- SQL_BP_UPDATE = $10;
|
|
|
- SQL_BP_OTHER_HSTMT = $20;
|
|
|
- SQL_BP_SCROLL = $40;
|
|
|
-
|
|
|
- SQL_DYNAMIC_CURSOR_ATTRIBUTES1 = 144;
|
|
|
- SQL_DYNAMIC_CURSOR_ATTRIBUTES2 = 145;
|
|
|
- SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES1 = 146;
|
|
|
- SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES2 = 147;
|
|
|
- SQL_INDEX_KEYWORDS = 148;
|
|
|
- SQL_INFO_SCHEMA_VIEWS = 149;
|
|
|
- SQL_KEYSET_CURSOR_ATTRIBUTES1 = 150;
|
|
|
- SQL_KEYSET_CURSOR_ATTRIBUTES2 = 151;
|
|
|
- SQL_STATIC_CURSOR_ATTRIBUTES1 = 167;
|
|
|
- SQL_STATIC_CURSOR_ATTRIBUTES2 = 168;
|
|
|
-
|
|
|
- { supported SQLFetchScroll FetchOrientation's }
|
|
|
- SQL_CA1_NEXT = 1;
|
|
|
- SQL_CA1_ABSOLUTE = 2;
|
|
|
- SQL_CA1_RELATIVE = 4;
|
|
|
- SQL_CA1_BOOKMARK = 8;
|
|
|
-
|
|
|
- { supported SQLSetPos LockType's }
|
|
|
- SQL_CA1_LOCK_NO_CHANGE= $40;
|
|
|
- SQL_CA1_LOCK_EXCLUSIVE= $80;
|
|
|
- SQL_CA1_LOCK_UNLOCK =$100;
|
|
|
-
|
|
|
- { supported SQLSetPos Operations }
|
|
|
- SQL_CA1_POS_POSITION = $200;
|
|
|
- SQL_CA1_POS_UPDATE = $400;
|
|
|
- SQL_CA1_POS_DELETE = $800;
|
|
|
- SQL_CA1_POS_REFRESH =$1000;
|
|
|
-
|
|
|
- { positioned updates and deletes }
|
|
|
- SQL_CA1_POSITIONED_UPDATE=$2000;
|
|
|
- SQL_CA1_POSITIONED_DELETE=$4000;
|
|
|
- SQL_CA1_SELECT_FOR_UPDATE=$8000;
|
|
|
-
|
|
|
- { supported SQLBulkOperations operations }
|
|
|
- SQL_CA1_BULK_ADD =$10000;
|
|
|
- SQL_CA1_BULK_UPDATE_BY_BOOKMARK =$20000;
|
|
|
- SQL_CA1_BULK_DELETE_BY_BOOKMARK =$40000;
|
|
|
- SQL_CA1_BULK_FETCH_BY_BOOKMARK =$80000;
|
|
|
-
|
|
|
- { supported values for SQL_ATTR_SCROLL_CONCURRENCY }
|
|
|
- SQL_CA2_READ_ONLY_CONCURRENCY = 1;
|
|
|
- SQL_CA2_LOCK_CONCURRENCY = 2;
|
|
|
- SQL_CA2_OPT_ROWVER_CONCURRENCY= 4;
|
|
|
- SQL_CA2_OPT_VALUES_CONCURRENCY= 8;
|
|
|
-
|
|
|
- { sensitivity of the cursor to its own inserts, deletes, and updates }
|
|
|
- SQL_CA2_SENSITIVITY_ADDITIONS =$10;
|
|
|
- SQL_CA2_SENSITIVITY_DELETIONS =$20;
|
|
|
- SQL_CA2_SENSITIVITY_UPDATES =$40;
|
|
|
-
|
|
|
-{ semantics of SQL_ATTR_MAX_ROWS }
|
|
|
- SQL_CA2_MAX_ROWS_SELECT = $80;
|
|
|
- SQL_CA2_MAX_ROWS_INSERT =$100;
|
|
|
- SQL_CA2_MAX_ROWS_DELETE =$200;
|
|
|
- SQL_CA2_MAX_ROWS_UPDATE =$400;
|
|
|
- SQL_CA2_MAX_ROWS_CATALOG =$800;
|
|
|
- SQL_CA2_MAX_ROWS_AFFECTS_ALL =(SQL_CA2_MAX_ROWS_SELECT or
|
|
|
- SQL_CA2_MAX_ROWS_INSERT or SQL_CA2_MAX_ROWS_DELETE or
|
|
|
- SQL_CA2_MAX_ROWS_UPDATE or SQL_CA2_MAX_ROWS_CATALOG);
|
|
|
-
|
|
|
- { semantics of SQL_DIAG_CURSOR_ROW_COUNT }
|
|
|
- SQL_CA2_CRC_EXACT = $1000;
|
|
|
- SQL_CA2_CRC_APPROXIMATE = $2000;
|
|
|
-
|
|
|
- { the kinds of positioned statements that can be simulated }
|
|
|
- SQL_CA2_SIMULATE_NON_UNIQUE = $4000;
|
|
|
- SQL_CA2_SIMULATE_TRY_UNIQUE = $8000;
|
|
|
- SQL_CA2_SIMULATE_UNIQUE =$10000;
|
|
|
-
|
|
|
- { Operations in SQLBulkOperations }
|
|
|
- SQL_ADD = 4;
|
|
|
- SQL_SETPOS_MAX_OPTION_VALUE = SQL_ADD;
|
|
|
- SQL_UPDATE_BY_BOOKMARK = 5;
|
|
|
- SQL_DELETE_BY_BOOKMARK = 6;
|
|
|
- SQL_FETCH_BY_BOOKMARK = 7;
|
|
|
-
|
|
|
- { Operations in SQLSetPos }
|
|
|
- SQL_POSITION = 0;
|
|
|
- SQL_REFRESH = 1;
|
|
|
- SQL_UPDATE = 2;
|
|
|
- SQL_DELETE = 3;
|
|
|
-
|
|
|
- { Lock options in SQLSetPos }
|
|
|
- SQL_LOCK_NO_CHANGE = 0;
|
|
|
- SQL_LOCK_EXCLUSIVE = 1;
|
|
|
- SQL_LOCK_UNLOCK = 2;
|
|
|
-
|
|
|
- { SQLExtendedFetch "rgfRowStatus" element values }
|
|
|
- SQL_ROW_SUCCESS = 0;
|
|
|
- SQL_ROW_DELETED = 1;
|
|
|
- SQL_ROW_UPDATED = 2;
|
|
|
- SQL_ROW_NOROW = 3;
|
|
|
- SQL_ROW_ADDED = 4;
|
|
|
- SQL_ROW_ERROR = 5;
|
|
|
- SQL_ROW_SUCCESS_WITH_INFO = 6;
|
|
|
-
|
|
|
- SQL_ROW_PROCEED = 0;
|
|
|
- SQL_ROW_IGNORE = 1;
|
|
|
-
|
|
|
- SQL_MAX_DSN_LENGTH = 32; { maximum data source name size }
|
|
|
-
|
|
|
- SQL_MAX_OPTION_STRING_LENGTH = 256;
|
|
|
-
|
|
|
- SQL_ODBC_CURSORS = 110;
|
|
|
- SQL_ATTR_ODBC_CURSORS = SQL_ODBC_CURSORS;
|
|
|
- { SQL_ODBC_CURSORS options }
|
|
|
- SQL_CUR_USE_IF_NEEDED = 0;
|
|
|
- SQL_CUR_USE_ODBC = 1;
|
|
|
- SQL_CUR_USE_DRIVER = 2;
|
|
|
- SQL_CUR_DEFAULT = SQL_CUR_USE_DRIVER;
|
|
|
-
|
|
|
- SQL_PARAM_TYPE_UNKNOWN = 0;
|
|
|
- SQL_PARAM_INPUT = 1;
|
|
|
- SQL_PARAM_INPUT_OUTPUT = 2;
|
|
|
- SQL_RESULT_COL = 3;
|
|
|
- SQL_PARAM_OUTPUT = 4;
|
|
|
- SQL_RETURN_VALUE = 5;
|
|
|
-
|
|
|
- { special length/indicator values }
|
|
|
- SQL_NULL_DATA = (-1);
|
|
|
- SQL_DATA_AT_EXEC = (-2);
|
|
|
-
|
|
|
- SQL_SUCCESS = 0;
|
|
|
- SQL_SUCCESS_WITH_INFO = 1;
|
|
|
-
|
|
|
- SQL_NO_DATA = 100;
|
|
|
- SQL_ERROR = (-1);
|
|
|
- SQL_INVALID_HANDLE =(-2);
|
|
|
-
|
|
|
- SQL_STILL_EXECUTING = 2;
|
|
|
- SQL_NEED_DATA = 99;
|
|
|
- { flags for null-terminated string }
|
|
|
- SQL_NTS = (-3);
|
|
|
-
|
|
|
- { maximum message length }
|
|
|
- SQL_MAX_MESSAGE_LENGTH = 512;
|
|
|
-
|
|
|
- { date/time length constants }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_DATE_LEN = 10;
|
|
|
- SQL_TIME_LEN = 8; { add P+1 if precision is nonzero }
|
|
|
- SQL_TIMESTAMP_LEN = 19; { add P+1 if precision is nonzero }
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { handle type identifiers }
|
|
|
- SQL_HANDLE_ENV = 1;
|
|
|
- SQL_HANDLE_DBC = 2;
|
|
|
- SQL_HANDLE_STMT = 3;
|
|
|
- SQL_HANDLE_DESC = 4;
|
|
|
-
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- { environment attribute }
|
|
|
- SQL_ATTR_OUTPUT_NTS = 10001;
|
|
|
- { connection attributes }
|
|
|
- SQL_ATTR_AUTO_IPD = 10001;
|
|
|
- SQL_ATTR_METADATA_ID = 10014;
|
|
|
-{$endif} { ODBCVER >= 0x0300 }
|
|
|
-
|
|
|
- { statement attributes }
|
|
|
- SQL_ATTR_APP_ROW_DESC = 10010;
|
|
|
- SQL_ATTR_APP_PARAM_DESC = 10011;
|
|
|
- SQL_ATTR_IMP_ROW_DESC = 10012;
|
|
|
- SQL_ATTR_IMP_PARAM_DESC = 10013;
|
|
|
- SQL_ATTR_CURSOR_SCROLLABLE = (-1);
|
|
|
- SQL_ATTR_CURSOR_SENSITIVITY = (-2);
|
|
|
- SQL_QUERY_TIMEOUT =0;
|
|
|
- SQL_MAX_ROWS =1;
|
|
|
- SQL_NOSCAN =2;
|
|
|
- SQL_MAX_LENGTH =3;
|
|
|
- SQL_ASYNC_ENABLE =4; // same as SQL_ATTR_ASYNC_ENABLE */
|
|
|
- SQL_BIND_TYPE =5;
|
|
|
- SQL_CURSOR_TYPE = 6;
|
|
|
- SQL_CONCURRENCY = 7;
|
|
|
- SQL_KEYSET_SIZE =8;
|
|
|
- SQL_ROWSET_SIZE =9;
|
|
|
- SQL_SIMULATE_CURSOR =10;
|
|
|
- SQL_RETRIEVE_DATA =11;
|
|
|
- SQL_USE_BOOKMARKS =12;
|
|
|
- SQL_GET_BOOKMARK =13; // GetStmtOption Only */
|
|
|
- SQL_ROW_NUMBER = 14; // GetStmtOption Only */
|
|
|
-
|
|
|
- SQL_ATTR_CURSOR_TYPE = SQL_CURSOR_TYPE;
|
|
|
- SQL_ATTR_CONCURRENCY = SQL_CONCURRENCY;
|
|
|
- SQL_ATTR_FETCH_BOOKMARK_PTR = 16;
|
|
|
- SQL_ATTR_ROW_STATUS_PTR = 25;
|
|
|
- SQL_ATTR_ROWS_FETCHED_PTR = 26;
|
|
|
- SQL_AUTOCOMMIT = 102;
|
|
|
- SQL_ATTR_AUTOCOMMIT = SQL_AUTOCOMMIT;
|
|
|
-
|
|
|
- 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_USE_BOOKMARKS = SQL_USE_BOOKMARKS;
|
|
|
-
|
|
|
-//* connection attributes */
|
|
|
- SQL_ACCESS_MODE =101;
|
|
|
-// SQL_AUTOCOMMIT =102;
|
|
|
- SQL_LOGIN_TIMEOUT =103;
|
|
|
- SQL_OPT_TRACE =104;
|
|
|
- SQL_OPT_TRACEFILE =105;
|
|
|
- SQL_TRANSLATE_DLL =106;
|
|
|
- SQL_TRANSLATE_OPTION =107;
|
|
|
-// SQL_TXN_ISOLATION =108;
|
|
|
- SQL_CURRENT_QUALIFIER =109;
|
|
|
-// SQL_ODBC_CURSORS =110;
|
|
|
- SQL_QUIET_MODE =111;
|
|
|
- SQL_PACKET_SIZE =112;
|
|
|
-
|
|
|
-
|
|
|
-//* connection attributes with new names */
|
|
|
- SQL_ATTR_ACCESS_MODE =SQL_ACCESS_MODE;
|
|
|
-// SQL_ATTR_AUTOCOMMIT =SQL_AUTOCOMMIT;
|
|
|
- SQL_ATTR_CONNECTION_DEAD =1209; //* GetConnectAttr only */
|
|
|
- SQL_ATTR_CONNECTION_TIMEOUT =113;
|
|
|
- SQL_ATTR_CURRENT_CATALOG =SQL_CURRENT_QUALIFIER;
|
|
|
- SQL_ATTR_DISCONNECT_BEHAVIOR=114;
|
|
|
- SQL_ATTR_ENLIST_IN_DTC =1207;
|
|
|
- SQL_ATTR_ENLIST_IN_XA =1208;
|
|
|
- SQL_ATTR_LOGIN_TIMEOUT =SQL_LOGIN_TIMEOUT;
|
|
|
-// SQL_ATTR_ODBC_CURSORS =SQL_ODBC_CURSORS;
|
|
|
- SQL_ATTR_PACKET_SIZE =SQL_PACKET_SIZE;
|
|
|
- SQL_ATTR_QUIET_MODE =SQL_QUIET_MODE;
|
|
|
- SQL_ATTR_TRACE =SQL_OPT_TRACE;
|
|
|
- SQL_ATTR_TRACEFILE =SQL_OPT_TRACEFILE;
|
|
|
- SQL_ATTR_TRANSLATE_LIB =SQL_TRANSLATE_DLL;
|
|
|
- SQL_ATTR_TRANSLATE_OPTION =SQL_TRANSLATE_OPTION;
|
|
|
-// SQL_ATTR_TXN_ISOLATION =SQL_TXN_ISOLATION;
|
|
|
-
|
|
|
-//* SQL_ACCESS_MODE options */
|
|
|
- SQL_MODE_READ_WRITE =0;
|
|
|
- SQL_MODE_READ_ONLY =1;
|
|
|
- SQL_MODE_DEFAULT =SQL_MODE_READ_WRITE;
|
|
|
-
|
|
|
- //* SQL_AUTOCOMMIT options */
|
|
|
- SQL_AUTOCOMMIT_OFF = 0;
|
|
|
- SQL_AUTOCOMMIT_ON = 1;
|
|
|
- SQL_AUTOCOMMIT_DEFAULT = SQL_AUTOCOMMIT_ON;
|
|
|
- { SQL_ATTR_CURSOR_SCROLLABLE values }
|
|
|
- SQL_NONSCROLLABLE = 0;
|
|
|
- SQL_SCROLLABLE = 1;
|
|
|
- { SQL_CURSOR_TYPE options }
|
|
|
- SQL_CURSOR_FORWARD_ONLY = 0;
|
|
|
- SQL_CURSOR_KEYSET_DRIVEN = 1;
|
|
|
- SQL_CURSOR_DYNAMIC = 2;
|
|
|
- SQL_CURSOR_STATIC = 3;
|
|
|
- SQL_CURSOR_TYPE_DEFAULT = SQL_CURSOR_FORWARD_ONLY;{ Default value }
|
|
|
-
|
|
|
- { SQL_CONCURRENCY options }
|
|
|
- SQL_CONCUR_READ_ONLY = 1;
|
|
|
- SQL_CONCUR_LOCK = 2;
|
|
|
- SQL_CONCUR_ROWVER = 3;
|
|
|
- SQL_CONCUR_VALUES = 4;
|
|
|
- SQL_CONCUR_DEFAULT = SQL_CONCUR_READ_ONLY; { Default value }
|
|
|
-
|
|
|
- { identifiers of fields in the SQL descriptor }
|
|
|
- {$ifdef ODBCVER3}
|
|
|
- SQL_DESC_COUNT = 1001;
|
|
|
- SQL_DESC_TYPE = 1002;
|
|
|
- SQL_DESC_LENGTH = 1003;
|
|
|
- SQL_DESC_OCTET_LENGTH_PTR = 1004;
|
|
|
- SQL_DESC_PRECISION = 1005;
|
|
|
- SQL_DESC_SCALE = 1006;
|
|
|
- SQL_DESC_DATETIME_INTERVAL_CODE = 1007;
|
|
|
- SQL_DESC_NULLABLE = 1008;
|
|
|
- SQL_DESC_INDICATOR_PTR = 1009;
|
|
|
- SQL_DESC_DATA_PTR = 1010;
|
|
|
- SQL_DESC_NAME = 1011;
|
|
|
- SQL_DESC_UNNAMED = 1012;
|
|
|
- SQL_DESC_OCTET_LENGTH = 1013;
|
|
|
- SQL_DESC_ALLOC_TYPE = 1099;
|
|
|
- {$endif}
|
|
|
-
|
|
|
- { identifiers of fields in the diagnostics area }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_DIAG_RETURNCODE = 1;
|
|
|
- SQL_DIAG_NUMBER = 2;
|
|
|
- SQL_DIAG_ROW_COUNT = 3;
|
|
|
- SQL_DIAG_SQLSTATE = 4;
|
|
|
- SQL_DIAG_NATIVE = 5;
|
|
|
- SQL_DIAG_MESSAGE_TEXT = 6;
|
|
|
- SQL_DIAG_DYNAMIC_FUNCTION = 7;
|
|
|
- SQL_DIAG_CLASS_ORIGIN = 8;
|
|
|
- SQL_DIAG_SUBCLASS_ORIGIN = 9;
|
|
|
- SQL_DIAG_CONNECTION_NAME = 10;
|
|
|
- SQL_DIAG_SERVER_NAME = 11;
|
|
|
- SQL_DIAG_DYNAMIC_FUNCTION_CODE = 12;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { dynamic function codes }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_DIAG_ALTER_TABLE = 4;
|
|
|
- SQL_DIAG_CREATE_INDEX = (-1);
|
|
|
- SQL_DIAG_CREATE_TABLE = 77;
|
|
|
- SQL_DIAG_CREATE_VIEW = 84;
|
|
|
- SQL_DIAG_DELETE_WHERE = 19;
|
|
|
- SQL_DIAG_DROP_INDEX = (-2);
|
|
|
- SQL_DIAG_DROP_TABLE = 32;
|
|
|
- SQL_DIAG_DROP_VIEW = 36;
|
|
|
- SQL_DIAG_DYNAMIC_DELETE_CURSOR = 38;
|
|
|
- SQL_DIAG_DYNAMIC_UPDATE_CURSOR = 81;
|
|
|
- SQL_DIAG_GRANT = 48;
|
|
|
- SQL_DIAG_INSERT = 50;
|
|
|
- SQL_DIAG_REVOKE = 59;
|
|
|
- SQL_DIAG_SELECT_CURSOR = 85;
|
|
|
- SQL_DIAG_UNKNOWN_STATEMENT = 0;
|
|
|
- SQL_DIAG_UPDATE_WHERE = 82;
|
|
|
-{$endif} { ODBCVER >= 0x0300 }
|
|
|
-
|
|
|
- { Statement attribute values for cursor sensitivity }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_UNSPECIFIED = 0;
|
|
|
- SQL_INSENSITIVE = 1;
|
|
|
- SQL_SENSITIVE = 2;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { GetTypeInfo() request for all data types }
|
|
|
- SQL_ALL_TYPES = 0;
|
|
|
-
|
|
|
- { Default conversion code for SQLBindCol(), SQLBindParam() and SQLGetData() }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_DEFAULT = 99;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { SQLGetData() code indicating that the application row descriptor
|
|
|
- specifies the data type }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_ARD_TYPE = (-99);
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { SQL date/time type subcodes }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_CODE_DATE = 1;
|
|
|
- SQL_CODE_TIME = 2;
|
|
|
- SQL_CODE_TIMESTAMP = 3;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { CLI option values }
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_FALSE = 0;
|
|
|
- SQL_TRUE = 1;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { values of NULLABLE field in descriptor }
|
|
|
- SQL_NO_NULLS = 0;
|
|
|
- SQL_NULLABLE = 1;
|
|
|
-
|
|
|
-{ Value returned by SQLGetTypeInfo() to denote that it is
|
|
|
- not known whether or not a data type supports null values. }
|
|
|
-
|
|
|
- SQL_NULLABLE_UNKNOWN = 2;
|
|
|
-{
|
|
|
-/* Values returned by SQLGetTypeInfo() to show WHERE clause
|
|
|
- * supported
|
|
|
-
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_PRED_NONE 0
|
|
|
-#define SQL_PRED_CHAR 1
|
|
|
-#define SQL_PRED_BASIC 2
|
|
|
-#endif
|
|
|
-
|
|
|
-/* values of UNNAMED field in descriptor */
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_NAMED 0
|
|
|
-#define SQL_UNNAMED 1
|
|
|
-#endif
|
|
|
-
|
|
|
-/* values of ALLOC_TYPE field in descriptor */
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_DESC_ALLOC_AUTO 1
|
|
|
-#define SQL_DESC_ALLOC_USER 2
|
|
|
-#endif
|
|
|
-}
|
|
|
- { FreeStmt() options }
|
|
|
- SQL_CLOSE = 0;
|
|
|
- SQL_DROP = 1;
|
|
|
- SQL_UNBIND = 2;
|
|
|
- SQL_RESET_PARAMS = 3;
|
|
|
-
|
|
|
- { Codes used for FetchOrientation in SQLFetchScroll(),
|
|
|
- and in SQLDataSources() }
|
|
|
- SQL_FETCH_NEXT = 1;
|
|
|
- SQL_FETCH_FIRST = 2;
|
|
|
-{$ifdef odbcver3}
|
|
|
- SQL_FETCH_FIRST_USER = 31;
|
|
|
- SQL_FETCH_FIRST_SYSTEM = 32;
|
|
|
-{$endif}
|
|
|
-
|
|
|
- { Other codes used for FetchOrientation in SQLFetchScroll() }
|
|
|
- SQL_FETCH_LAST = 3;
|
|
|
- SQL_FETCH_PRIOR = 4;
|
|
|
- SQL_FETCH_ABSOLUTE = 5;
|
|
|
- SQL_FETCH_RELATIVE = 6;
|
|
|
-{
|
|
|
-/* SQLEndTran() options */
|
|
|
-#define SQL_COMMIT 0
|
|
|
-#define SQL_ROLLBACK 1
|
|
|
-
|
|
|
-/* null handles returned by SQLAllocHandle() */
|
|
|
-#define SQL_NULL_HENV 0
|
|
|
-#define SQL_NULL_HDBC 0
|
|
|
-#define SQL_NULL_HSTMT 0
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_NULL_HDESC 0
|
|
|
-#endif
|
|
|
-}
|
|
|
-//* null handle used in place of parent handle when allocating HENV */
|
|
|
- SQL_NULL_HANDLE = 0;
|
|
|
-
|
|
|
-//* Values that may appear in the result set of SQLSpecialColumns() */
|
|
|
- SQL_SCOPE_CURROW = 0;
|
|
|
- SQL_SCOPE_TRANSACTION = 1;
|
|
|
- SQL_SCOPE_SESSION = 2;
|
|
|
-
|
|
|
-//* Column types and scopes in SQLSpecialColumns. */
|
|
|
- SQL_BEST_ROWID = 1;
|
|
|
- SQL_ROWVER = 2;
|
|
|
-
|
|
|
-{
|
|
|
-#define SQL_PC_UNKNOWN 0
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_PC_NON_PSEUDO 1
|
|
|
-#endif
|
|
|
-#define SQL_PC_PSEUDO 2
|
|
|
-}
|
|
|
-
|
|
|
-//* Reserved value for the IdentifierType argument of SQLSpecialColumns() */
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_ROW_IDENTIFIER = 1;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-{
|
|
|
-/* Reserved values for UNIQUE argument of SQLStatistics() */
|
|
|
-#define SQL_INDEX_UNIQUE 0
|
|
|
-#define SQL_INDEX_ALL 1
|
|
|
-
|
|
|
-/* Values that may appear in the result set of SQLStatistics() */
|
|
|
-#define SQL_INDEX_CLUSTERED 1
|
|
|
-#define SQL_INDEX_HASHED 2
|
|
|
-#define SQL_INDEX_OTHER 3
|
|
|
-
|
|
|
-/* Information requested by SQLGetInfo() */
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_MAX_DRIVER_CONNECTIONS 0
|
|
|
-#define SQL_MAXIMUM_DRIVER_CONNECTIONS SQL_MAX_DRIVER_CONNECTIONS
|
|
|
-#define SQL_MAX_CONCURRENT_ACTIVITIES 1
|
|
|
-#define SQL_MAXIMUM_CONCURRENT_ACTIVITIES SQL_MAX_CONCURRENT_ACTIVITIES
|
|
|
-#endif
|
|
|
-#define SQL_DATA_SOURCE_NAME 2
|
|
|
-#define SQL_FETCH_DIRECTION 8
|
|
|
-#define SQL_SERVER_NAME 13
|
|
|
-#define SQL_SEARCH_PATTERN_ESCAPE 14
|
|
|
-#define SQL_DBMS_NAME 17
|
|
|
-#define SQL_DBMS_VER 18
|
|
|
-#define SQL_ACCESSIBLE_TABLES 19
|
|
|
-#define SQL_ACCESSIBLE_PROCEDURES 20
|
|
|
-#define SQL_CURSOR_COMMIT_BEHAVIOR 23
|
|
|
-#define SQL_DATA_SOURCE_READ_ONLY 25
|
|
|
-#define SQL_DEFAULT_TXN_ISOLATION 26
|
|
|
-#define SQL_IDENTIFIER_CASE 28
|
|
|
-#define SQL_IDENTIFIER_QUOTE_CHAR 29
|
|
|
-#define SQL_MAX_COLUMN_NAME_LEN 30
|
|
|
-#define SQL_MAXIMUM_COLUMN_NAME_LENGTH SQL_MAX_COLUMN_NAME_LEN
|
|
|
-#define SQL_MAX_CURSOR_NAME_LEN 31
|
|
|
-#define SQL_MAXIMUM_CURSOR_NAME_LENGTH SQL_MAX_CURSOR_NAME_LEN
|
|
|
-#define SQL_MAX_SCHEMA_NAME_LEN 32
|
|
|
-#define SQL_MAXIMUM_SCHEMA_NAME_LENGTH SQL_MAX_SCHEMA_NAME_LEN
|
|
|
-#define SQL_MAX_CATALOG_NAME_LEN 34
|
|
|
-#define SQL_MAXIMUM_CATALOG_NAME_LENGTH SQL_MAX_CATALOG_NAME_LEN
|
|
|
-#define SQL_MAX_TABLE_NAME_LEN 35
|
|
|
-}
|
|
|
- SQL_SCROLL_CONCURRENCY = 43;
|
|
|
- SQL_TXN_CAPABLE = 46;
|
|
|
- SQL_TRANSACTION_CAPABLE = SQL_TXN_CAPABLE;
|
|
|
- SQL_USER_NAME = 47;
|
|
|
- SQL_TXN_ISOLATION_OPTION = 72;
|
|
|
- SQL_TRANSACTION_ISOLATION_OPTION = SQL_TXN_ISOLATION_OPTION;
|
|
|
-{
|
|
|
-#define SQL_INTEGRITY 73
|
|
|
-#define SQL_GETDATA_EXTENSIONS 81
|
|
|
-#define SQL_NULL_COLLATION 85
|
|
|
-#define SQL_ALTER_TABLE 86
|
|
|
-#define SQL_ORDER_BY_COLUMNS_IN_SELECT 90
|
|
|
-#define SQL_SPECIAL_CHARACTERS 94
|
|
|
-#define SQL_MAX_COLUMNS_IN_GROUP_BY 97
|
|
|
-#define SQL_MAXIMUM_COLUMNS_IN_GROUP_BY SQL_MAX_COLUMNS_IN_GROUP_BY
|
|
|
-#define SQL_MAX_COLUMNS_IN_INDEX 98
|
|
|
-#define SQL_MAXIMUM_COLUMNS_IN_INDEX SQL_MAX_COLUMNS_IN_INDEX
|
|
|
-#define SQL_MAX_COLUMNS_IN_ORDER_BY 99
|
|
|
-#define SQL_MAXIMUM_COLUMNS_IN_ORDER_BY SQL_MAX_COLUMNS_IN_ORDER_BY
|
|
|
-#define SQL_MAX_COLUMNS_IN_SELECT 100
|
|
|
-#define SQL_MAXIMUM_COLUMNS_IN_SELECT SQL_MAX_COLUMNS_IN_SELECT
|
|
|
-#define SQL_MAX_COLUMNS_IN_TABLE 101
|
|
|
-#define SQL_MAX_INDEX_SIZE 102
|
|
|
-#define SQL_MAXIMUM_INDEX_SIZE SQL_MAX_INDEX_SIZE
|
|
|
-#define SQL_MAX_ROW_SIZE 104
|
|
|
-#define SQL_MAXIMUM_ROW_SIZE SQL_MAX_ROW_SIZE
|
|
|
-#define SQL_MAX_STATEMENT_LEN 105
|
|
|
-#define SQL_MAXIMUM_STATEMENT_LENGTH SQL_MAX_STATEMENT_LEN
|
|
|
-#define SQL_MAX_TABLES_IN_SELECT 106
|
|
|
-#define SQL_MAXIMUM_TABLES_IN_SELECT SQL_MAX_TABLES_IN_SELECT
|
|
|
-#define SQL_MAX_USER_NAME_LEN 107
|
|
|
-#define SQL_MAXIMUM_USER_NAME_LENGTH SQL_MAX_USER_NAME_LEN}
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_OJ_CAPABILITIES = 115;
|
|
|
- SQL_OUTER_JOIN_CAPABILITIES = SQL_OJ_CAPABILITIES;
|
|
|
-{$endif} { ODBCVER >= 0x0300 }
|
|
|
-
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_XOPEN_CLI_YEAR = 10000;
|
|
|
- SQL_CURSOR_SENSITIVITY = 10001;
|
|
|
- SQL_DESCRIBE_PARAMETER = 10002;
|
|
|
- SQL_CATALOG_NAME = 10003;
|
|
|
- SQL_COLLATION_SEQ = 10004;
|
|
|
- SQL_MAX_IDENTIFIER_LEN = 10005;
|
|
|
- SQL_MAXIMUM_IDENTIFIER_LENGTH = SQL_MAX_IDENTIFIER_LEN;
|
|
|
-{$endif} { ODBCVER >= 0x0300 }
|
|
|
-
|
|
|
-{/* SQL_ALTER_TABLE bitmasks */
|
|
|
-#if (ODBCVER >= 0x0200)
|
|
|
-#define SQL_AT_ADD_COLUMN 0x00000001L
|
|
|
-#define SQL_AT_DROP_COLUMN 0x00000002L
|
|
|
-#endif /* ODBCVER >= 0x0200 */
|
|
|
-
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_AT_ADD_CONSTRAINT 0x00000008L
|
|
|
-
|
|
|
-/* The following bitmasks are ODBC extensions and defined in sqlext.h
|
|
|
-*#define SQL_AT_COLUMN_SINGLE 0x00000020L
|
|
|
-*#define SQL_AT_ADD_COLUMN_DEFAULT 0x00000040L
|
|
|
-*#define SQL_AT_ADD_COLUMN_COLLATION 0x00000080L
|
|
|
-*#define SQL_AT_SET_COLUMN_DEFAULT 0x00000100L
|
|
|
-*#define SQL_AT_DROP_COLUMN_DEFAULT 0x00000200L
|
|
|
-*#define SQL_AT_DROP_COLUMN_CASCADE 0x00000400L
|
|
|
-*#define SQL_AT_DROP_COLUMN_RESTRICT 0x00000800L
|
|
|
-*#define SQL_AT_ADD_TABLE_CONSTRAINT 0x00001000L
|
|
|
-*#define SQL_AT_DROP_TABLE_CONSTRAINT_CASCADE 0x00002000L
|
|
|
-*#define SQL_AT_DROP_TABLE_CONSTRAINT_RESTRICT 0x00004000L
|
|
|
-*#define SQL_AT_CONSTRAINT_NAME_DEFINITION 0x00008000L
|
|
|
-*#define SQL_AT_CONSTRAINT_INITIALLY_DEFERRED 0x00010000L
|
|
|
-*#define SQL_AT_CONSTRAINT_INITIALLY_IMMEDIATE 0x00020000L
|
|
|
-*#define SQL_AT_CONSTRAINT_DEFERRABLE 0x00040000L
|
|
|
-*#define SQL_AT_CONSTRAINT_NON_DEFERRABLE 0x00080000L
|
|
|
-
|
|
|
-#endif /* ODBCVER >= 0x0300 */
|
|
|
-
|
|
|
-
|
|
|
-/* SQL_ASYNC_MODE values */
|
|
|
-#if (ODBCVER >= 0x0300)
|
|
|
-#define SQL_AM_NONE 0
|
|
|
-#define SQL_AM_CONNECTION 1
|
|
|
-#define SQL_AM_STATEMENT 2
|
|
|
-#endif
|
|
|
-
|
|
|
-/* SQL_CURSOR_COMMIT_BEHAVIOR values */
|
|
|
-#define SQL_CB_DELETE 0
|
|
|
-#define SQL_CB_CLOSE 1
|
|
|
-#define SQL_CB_PRESERVE 2
|
|
|
-
|
|
|
-/* SQL_FETCH_DIRECTION bitmasks */
|
|
|
-#define SQL_FD_FETCH_NEXT 0x00000001L
|
|
|
-#define SQL_FD_FETCH_FIRST 0x00000002L
|
|
|
-#define SQL_FD_FETCH_LAST 0x00000004L
|
|
|
-#define SQL_FD_FETCH_PRIOR 0x00000008L
|
|
|
-#define SQL_FD_FETCH_ABSOLUTE 0x00000010L
|
|
|
-#define SQL_FD_FETCH_RELATIVE 0x00000020L
|
|
|
-
|
|
|
-/* SQL_GETDATA_EXTENSIONS bitmasks */
|
|
|
-#define SQL_GD_ANY_COLUMN 0x00000001L
|
|
|
-#define SQL_GD_ANY_ORDER 0x00000002L
|
|
|
-
|
|
|
-/* SQL_IDENTIFIER_CASE values */
|
|
|
-#define SQL_IC_UPPER 1
|
|
|
-#define SQL_IC_LOWER 2
|
|
|
-#define SQL_IC_SENSITIVE 3
|
|
|
-#define SQL_IC_MIXED 4
|
|
|
-
|
|
|
-/* SQL_OJ_CAPABILITIES bitmasks */
|
|
|
-/* NB: this means 'outer join', not what you may be thinking */
|
|
|
-
|
|
|
-
|
|
|
-#if (ODBCVER >= 0x0201)
|
|
|
-#define SQL_OJ_LEFT 0x00000001L
|
|
|
-#define SQL_OJ_RIGHT 0x00000002L
|
|
|
-#define SQL_OJ_FULL 0x00000004L
|
|
|
-#define SQL_OJ_NESTED 0x00000008L
|
|
|
-#define SQL_OJ_NOT_ORDERED 0x00000010L
|
|
|
-#define SQL_OJ_INNER 0x00000020L
|
|
|
-#define SQL_OJ_ALL_COMPARISON_OPS 0x00000040L
|
|
|
-#endif
|
|
|
-}
|
|
|
-{ SQL_SCROLL_CONCURRENCY bitmasks }
|
|
|
- SQL_SCCO_READ_ONLY = 1;
|
|
|
- SQL_SCCO_LOCK = 2;
|
|
|
- SQL_SCCO_OPT_ROWVER = 4;
|
|
|
- SQL_SCCO_OPT_VALUES = 8;
|
|
|
-
|
|
|
-//* SQL_TXN_CAPABLE values */
|
|
|
- SQL_TC_NONE = 0;
|
|
|
- SQL_TC_DML = 1;
|
|
|
- SQL_TC_ALL = 2;
|
|
|
- SQL_TC_DDL_COMMIT = 3;
|
|
|
- SQL_TC_DDL_IGNORE = 4;
|
|
|
-
|
|
|
-//* SQL_TXN_ISOLATION_OPTION bitmasks */
|
|
|
- SQL_TXN_READ_UNCOMMITTED = 1;
|
|
|
- SQL_TRANSACTION_READ_UNCOMMITTED = SQL_TXN_READ_UNCOMMITTED;
|
|
|
- SQL_TXN_READ_COMMITTED = 2;
|
|
|
- SQL_TRANSACTION_READ_COMMITTED = SQL_TXN_READ_COMMITTED;
|
|
|
- SQL_TXN_REPEATABLE_READ = 4;
|
|
|
- SQL_TRANSACTION_REPEATABLE_READ = SQL_TXN_REPEATABLE_READ;
|
|
|
- SQL_TXN_SERIALIZABLE = 8;
|
|
|
- SQL_TRANSACTION_SERIALIZABLE = SQL_TXN_SERIALIZABLE;
|
|
|
-{
|
|
|
-/* SQL_NULL_COLLATION values */
|
|
|
-#define SQL_NC_HIGH 0
|
|
|
-#define SQL_NC_LOW 1
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-{ SQL_STATIC_SENSITIVITY values }
|
|
|
-
|
|
|
- SQL_SS_ADDITIONS = 1;
|
|
|
- SQL_SS_DELETIONS = 2;
|
|
|
- SQL_SS_UPDATES = 4;
|
|
|
-
|
|
|
-{ SQLColAttributes defines }
|
|
|
- SQL_COLUMN_COUNT = 0;
|
|
|
- SQL_COLUMN_NAME = 1;
|
|
|
- SQL_COLUMN_TYPE = 2;
|
|
|
- SQL_COLUMN_LENGTH = 3;
|
|
|
- SQL_COLUMN_PRECISION = 4;
|
|
|
- SQL_COLUMN_SCALE = 5;
|
|
|
- SQL_COLUMN_DISPLAY_SIZE = 6;
|
|
|
- SQL_COLUMN_NULLABLE = 7;
|
|
|
- SQL_COLUMN_UNSIGNED = 8;
|
|
|
- SQL_COLUMN_MONEY = 9;
|
|
|
- SQL_COLUMN_UPDATABLE = 10;
|
|
|
- SQL_COLUMN_AUTO_INCREMENT = 11;
|
|
|
- SQL_COLUMN_CASE_SENSITIVE = 12;
|
|
|
- SQL_COLUMN_SEARCHABLE = 13;
|
|
|
- SQL_COLUMN_TYPE_NAME = 14;
|
|
|
- SQL_COLUMN_TABLE_NAME = 15;
|
|
|
- SQL_COLUMN_OWNER_NAME = 16;
|
|
|
- SQL_COLUMN_QUALIFIER_NAME = 17;
|
|
|
- SQL_COLUMN_LABEL = 18;
|
|
|
- SQL_COLATT_OPT_MAX = SQL_COLUMN_LABEL;
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- SQL_COLUMN_DRIVER_START = 1000;
|
|
|
-{$endif} { ODBCVER >= 0x0300 }
|
|
|
- SQL_DESC_AUTO_UNIQUE_VALUE = SQL_COLUMN_AUTO_INCREMENT;
|
|
|
- SQL_DESC_BASE_COLUMN_NAME = 22;
|
|
|
- SQL_DESC_BASE_TABLE_NAME = 23;
|
|
|
- SQL_DESC_TABLE_NAME = SQL_COLUMN_TABLE_NAME;
|
|
|
-
|
|
|
-//* SQLEndTran() options */
|
|
|
- SQL_COMMIT = 0;
|
|
|
- SQL_ROLLBACK = 1;
|
|
|
-
|
|
|
- SQL_ATTR_ROW_ARRAY_SIZE = 27;
|
|
|
-
|
|
|
-//* SQLConfigDataSource() options */
|
|
|
- ODBC_ADD_DSN = 1;
|
|
|
- ODBC_CONFIG_DSN = 2;
|
|
|
- ODBC_REMOVE_DSN = 3;
|
|
|
- ODBC_ADD_SYS_DSN = 4;
|
|
|
- ODBC_CONFIG_SYS_DSN = 5;
|
|
|
- ODBC_REMOVE_SYS_DSN = 6;
|
|
|
-
|
|
|
-{$ifdef DYNLOADINGODBC}
|
|
|
-
|
|
|
-type tSQLAllocHandle =function(HandleType: SQLSMALLINT;
|
|
|
- InputHandle:SQLHANDLE;Var OutputHandlePtr: SQLHANDLE):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type tSQLSetEnvAttr=function (EnvironmentHandle:SQLHENV;
|
|
|
- Attribute:SQLINTEGER;Value:SQLPOINTER;
|
|
|
- StringLength:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLFreeHandle=function (HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLGetDiagRec=function (HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE;RecNumber:SQLSMALLINT;
|
|
|
- Sqlstate:PSQLCHAR;var NativeError:SQLINTEGER;
|
|
|
- MessageText:PSQLCHAR;BufferLength:SQLSMALLINT;
|
|
|
- var TextLength:SQLSMALLINT ):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLGetDiagField=function (HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE;RecNumber:SQLSMALLINT;
|
|
|
- DiagIdentifier:SQLSMALLINT;DiagInfoPtr:SQLPOINTER;
|
|
|
- BufferLength:SQLSMALLINT;var StringLengthPtr:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLConnect=function (ConnectionHandle:SQLHDBC;
|
|
|
- ServerName:PSQLCHAR;NameLength1:SQLSMALLINT;
|
|
|
- UserName:PSQLCHAR;NameLength2:SQLSMALLINT;
|
|
|
- Authentication:PSQLCHAR;NameLength3:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLDisconnect=function(ConnectionHandle:SQLHDBC):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLDriverConnect=function (hdbc: SQLHDBC;
|
|
|
- hwnd: SQLHWND;szCsin: PChar;
|
|
|
- szCLen: SQLSMALLINT;szCsout: PChar;
|
|
|
- cbCSMax: SQLSMALLINT;Var cbCsOut: SQLSMALLINT;
|
|
|
- f: SQLUSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLExecDirect=function (StatementHandle:SQLHSTMT;
|
|
|
- StatementText:PSQLCHAR;TextLength:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLPrepare=function (StatementHandle:SQLHSTMT;
|
|
|
- StatementText:PSQLCHAR;TextLength:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLCloseCursor=function (StatementHandle:SQLHSTMT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLExecute=function (StatementHandle:SQLHSTMT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLFetch=function (StatementHandle:SQLHSTMT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLNumResultCols=function (StatementHandle:SQLHSTMT;
|
|
|
- var ColumnCount:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLDescribeCol=function (StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;ColumnName:PSQLCHAR;
|
|
|
- BufferLength:SQLSMALLINT;var NameLength:SQLSMALLINT;
|
|
|
- var DataType:SQLSMALLINT;var ColumnSize:SQLUINTEGER;
|
|
|
- var DecimalDigits:SQLSMALLINT;var Nullable:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLFetchScroll=function (StatementHandle:SQLHSTMT;
|
|
|
- FetchOrientation:SQLSMALLINT;FetchOffset:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLExtendedFetch=function (hstmt:SQLHSTMT;
|
|
|
- fFetchType:SQLUSMALLINT;irow:SQLINTEGER;
|
|
|
- pcrow:PSQLUINTEGER;rgfRowStatus:PSQLUSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLGetData=function (StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT;
|
|
|
- TargetValue:SQLPOINTER;BufferLength:SQLINTEGER;
|
|
|
- StrLen_or_Ind:PSQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLSetStmtAttr=function (StatementHandle:SQLHSTMT;
|
|
|
- Attribute:SQLINTEGER;Value:SQLPOINTER;
|
|
|
- StringLength:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLGetStmtAttr=function (StatementHandle:SQLHSTMT;
|
|
|
- Attribute:SQLINTEGER;Value:SQLPOINTER;
|
|
|
- BufferLength:SQLINTEGER;StringLength:PSQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type tSQLGetInfo=function (ConnectionHandle:SQLHDBC;
|
|
|
- InfoType:SQLUSMALLINT;InfoValue:SQLPOINTER;
|
|
|
- BufferLength:SQLSMALLINT;StringLength:PSQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLBulkOperations=function (StatementHandle: SQLHSTMT;
|
|
|
- Operation:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLPutData=function (StatementHandle:SQLHSTMT;
|
|
|
- Data:SQLPOINTER;StrLen_or_Ind:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLBindCol=function (StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;TargetType:SQLSMALLINT;
|
|
|
- TargetValue:SQLPOINTER;BufferLength:SQLINTEGER;
|
|
|
- StrLen_or_Ind:PSQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLSetPos=function (hstmt:SQLHSTMT;
|
|
|
- irow:SQLUSMALLINT;fOption:SQLUSMALLINT;
|
|
|
- fLock:SQLUSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLDataSources=function (EnvironmentHandle:SQLHENV;
|
|
|
- Direction:SQLUSMALLINT;ServerName:PSQLCHAR;
|
|
|
- BufferLength1:SQLSMALLINT;NameLength1:PSQLSMALLINT;
|
|
|
- Description:PSQLCHAR;BufferLength2:SQLSMALLINT;
|
|
|
- NameLength2:PSQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLDrivers=function (EnvironmentHandle:SQLHENV;
|
|
|
- Direction:SQLUSMALLINT;DriverDescription:PSQLCHAR;
|
|
|
- BufferLength1:SQLSMALLINT;DescriptionLength1:PSQLSMALLINT;
|
|
|
- DriverAttributes:PSQLCHAR;BufferLength2:SQLSMALLINT;
|
|
|
- AttributesLength2:PSQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLSetConnectAttr=function (ConnectionHandle:SQLHDBC;
|
|
|
- Attribute:SQLINTEGER; Value:SQLPOINTER;
|
|
|
- StringLength:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLGetCursorName=function (StatementHandle:SQLHSTMT;
|
|
|
- CursorName:PSQLCHAR; BufferLength:SQLSMALLINT;
|
|
|
- NameLength:PSQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLSetCursorName=function (StatementHandle:SQLHSTMT;
|
|
|
- CursorName:PSQLCHAR; NameLength:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLRowCount=function (StatementHandle:SQLHSTMT;
|
|
|
- Var RowCount:SQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLBindParameter=function (hstmt:SQLHSTMT;
|
|
|
- ipar:SQLUSMALLINT;fParamType:SQLSMALLINT;
|
|
|
- fCType:SQLSMALLINT;fSqlType:SQLSMALLINT;
|
|
|
- cbColDef:SQLUINTEGER;ibScale:SQLSMALLINT;
|
|
|
- rgbValue:SQLPOINTER;cbValueMax:SQLINTEGER;
|
|
|
- pcbValue:PSQLINTEGER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLFreeStmt=function (StatementHandle:SQLHSTMT;
|
|
|
- Option:SQLUSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLColAttribute=function (StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;FieldIdentifier:SQLUSMALLINT;
|
|
|
- CharacterAttribute:PSQLCHAR;BufferLength:SQLSMALLINT;
|
|
|
- StringLength:PSQLSMALLINT;NumericAttribute:SQLPOINTER):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLEndTran=function (HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE;CompletionType:SQLSMALLINT):SQLRETURN;stdcall;
|
|
|
-
|
|
|
-type TSQLTables=function ( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;cbTableName : SQLSMALLINT;
|
|
|
- szTableType : PSQLCHAR;cbTableType : SQLSMALLINT ) : SQLRETURN; stdcall;
|
|
|
-
|
|
|
-type TSQLColumns=function ( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;cbTableName : SQLSMALLINT;
|
|
|
- szColumnName : PSQLCHAR;cbColumnName : SQLSMALLINT ) : SQLRETURN; stdcall;
|
|
|
-
|
|
|
-type TSQLSpecialColumns=function (StatementHandle:SQLHSTMT;
|
|
|
- IdentifierType:SQLUSMALLINT;CatalogName:PSQLCHAR;
|
|
|
- NameLength1:SQLSMALLINT;SchemaName:PSQLCHAR;
|
|
|
- NameLength2:SQLSMALLINT;TableName:PSQLCHAR;
|
|
|
- NameLength3:SQLSMALLINT;Scope:SQLUSMALLINT;
|
|
|
- Nullable:SQLUSMALLINT) : SQLRETURN; stdcall;
|
|
|
-
|
|
|
-type TSQLProcedures=function ( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;cbTableName : SQLSMALLINT ) : SQLRETURN; stdcall;
|
|
|
-
|
|
|
-type TSQLPrimaryKeys=function (hstmt : SQLHSTMT;
|
|
|
- CatalogName:PSQLCHAR;NameLength1:SQLSMALLINT;
|
|
|
- SchemaName:PSQLCHAR;NameLength2:SQLSMALLINT;
|
|
|
- TableName:PSQLCHAR;NameLength3:SQLSMALLINT ):SQLRETURN;stdcall;
|
|
|
-type TSQLProcedureColumns = function(hstmt: SQLHSTMT;
|
|
|
- CatalogName: PSQLCHAR; NameLength1: SQLSMALLINT;
|
|
|
- SchemaName: PSQLCHAR; NameLength2: SQLSMALLINT;
|
|
|
- ProcName: PSQLCHAR; NameLength3: SQLSMALLINT;
|
|
|
- ColumnName: PSQLCHAR; NameLength4: SQLSMALLINT): SQLRETURN; stdcall;
|
|
|
-
|
|
|
-var SQLAllocHandle:tSQLAllocHandle;
|
|
|
-var SQLSetEnvAttr:tSQLSetEnvAttr;
|
|
|
-var SQLFreeHandle:tSQLFreeHandle;
|
|
|
-var SQLGetInfo:tSQLGetInfo;
|
|
|
-var SQLProcedures:TSQLProcedures;
|
|
|
-var SQLColumns:TSQLColumns;
|
|
|
-var SQLSpecialColumns:TSQLSpecialColumns;
|
|
|
-var SQLGetDiagRec:TSQLGetDiagRec;
|
|
|
-var SQLGetDiagField:TSQLGetDiagField;
|
|
|
-var SQLConnect:TSQLConnect;
|
|
|
-var SQLDisconnect:TSQLDisconnect;
|
|
|
-var SQLDriverConnect:TSQLDriverConnect;
|
|
|
-var SQLExecDirect:TSQLExecDirect;
|
|
|
-var SQLPrepare:TSQLPrepare;
|
|
|
-var SQLCloseCursor:TSQLCloseCursor;
|
|
|
-var SQLExecute:TSQLExecute;
|
|
|
-var SQLFetch:TSQLFetch;
|
|
|
-var SQLNumResultCols:TSQLNumResultCols;
|
|
|
-var SQLDescribeCol:TSQLDescribeCol;
|
|
|
-var SQLFetchScroll:TSQLFetchScroll;
|
|
|
-var SQLExtendedFetch:TSQLExtendedFetch;
|
|
|
-var SQLGetData:TSQLGetData;
|
|
|
-var SQLSetStmtAttr:TSQLSetStmtAttr;
|
|
|
-var SQLGetStmtAttr:TSQLGetStmtAttr;
|
|
|
-var SQLBulkOperations:TSQLBulkOperations;
|
|
|
-var SQLPutData:TSQLPutData;
|
|
|
-var SQLBindCol:TSQLBindCol;
|
|
|
-var SQLSetPos:TSQLSetPos;
|
|
|
-var SQLDataSources:TSQLDataSources;
|
|
|
-var SQLDrivers:TSQLDrivers;
|
|
|
-var SQLSetConnectAttr:TSQLSetConnectAttr;
|
|
|
-var SQLGetCursorName:TSQLGetCursorName;
|
|
|
-var SQLSetCursorName:TSQLSetCursorName;
|
|
|
-var SQLRowCount:TSQLRowCount;
|
|
|
-var SQLBindParameter:TSQLBindParameter;
|
|
|
-var SQLFreeStmt:TSQLFreeStmt;
|
|
|
-var SQLColAttribute:TSQLColAttribute;
|
|
|
-var SQLEndTran:TSQLEndTran;
|
|
|
-var SQLTables:TSQLTables;
|
|
|
-var SQLPrimaryKeys:TSQLPrimaryKeys;
|
|
|
-var SQLProcedureColumns : TSQLProcedureColumns;
|
|
|
-var odbcversion:word;
|
|
|
-
|
|
|
-{$else}
|
|
|
-
|
|
|
-{$ifdef unix}
|
|
|
-Const
|
|
|
- LibName = 'odbc';
|
|
|
-{$else}
|
|
|
- LibName = 'odbc32.dll';
|
|
|
-{$endif}
|
|
|
-
|
|
|
- function SQLAllocHandle(
|
|
|
- HandleType: SQLSMALLINT;
|
|
|
- InputHandle:SQLHANDLE;
|
|
|
- Var OutputHandlePtr: SQLHANDLE):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLSetEnvAttr(
|
|
|
- EnvironmentHandle:SQLHENV;
|
|
|
- Attribute: SQLINTEGER;
|
|
|
- Value: SQLPOINTER;
|
|
|
- StringLength: SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetEnvAttr(
|
|
|
- EnvironmentHandle:SQLHENV;
|
|
|
- Attribute:SQLINTEGER;
|
|
|
- Value:SQLPOINTER;
|
|
|
- BufferLength:SQLINTEGER;
|
|
|
- StringLength:PSQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLFreeHandle(
|
|
|
- HandleType: SQLSMALLINT;
|
|
|
- Handle: SQLHANDLE):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetDiagRec(
|
|
|
- HandleType: SQLSMALLINT;
|
|
|
- Handle: SQLHANDLE;
|
|
|
- RecNumber: SQLSMALLINT;
|
|
|
- Sqlstate: PSQLCHAR;
|
|
|
- var NativeError: SQLINTEGER;
|
|
|
- MessageText: PSQLCHAR;
|
|
|
- BufferLength: SQLSMALLINT;
|
|
|
- var TextLength: SQLSMALLINT ):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetDiagField(
|
|
|
- HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE;
|
|
|
- RecNumber:SQLSMALLINT;
|
|
|
- DiagIdentifier:SQLSMALLINT;
|
|
|
- DiagInfoPtr:SQLPOINTER;
|
|
|
- BufferLength:SQLSMALLINT;
|
|
|
- var StringLengthPtr:SQLSMALLINT ):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLConnect(
|
|
|
- ConnectionHandle:SQLHDBC;
|
|
|
- ServerName:PSQLCHAR; NameLength1:SQLSMALLINT;
|
|
|
- UserName:PSQLCHAR; NameLength2:SQLSMALLINT;
|
|
|
- Authentication:PSQLCHAR;NameLength3:SQLSMALLINT
|
|
|
- ):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLDisconnect(
|
|
|
- ConnectionHandle:SQLHDBC):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLDriverConnect(
|
|
|
- hdbc: SQLHDBC;
|
|
|
- hwnd: SQLHWND;
|
|
|
- szCsin: PChar;
|
|
|
- szCLen: SQLSMALLINT;
|
|
|
- szCsout: PChar;
|
|
|
- cbCSMax: SQLSMALLINT;
|
|
|
- Var cbCsOut: SQLSMALLINT;
|
|
|
- f: SQLUSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLBrowseConnect(
|
|
|
- hdbc : SQLHDBC;
|
|
|
- szConnStrIn :PSQLCHAR;
|
|
|
- cbConnStrIn: SQLSMALLINT;
|
|
|
- szConnStrOut : PSQLCHAR;
|
|
|
- cbConnStrOutMax : SQLSMALLINT;
|
|
|
- Var cbConnStrOut : SQLSMALLINT) : SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLExecDirect(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- StatementText: PSQLCHAR;
|
|
|
- TextLength: SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLPrepare(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- StatementText:PSQLCHAR;
|
|
|
- TextLength:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLCloseCursor(
|
|
|
- StatementHandle:SQLHSTMT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLExecute(
|
|
|
- StatementHandle:SQLHSTMT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLFetch(
|
|
|
- StatementHandle:SQLHSTMT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLNumResultCols(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- var ColumnCount:SQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLDescribeCol(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;
|
|
|
- ColumnName:PSQLCHAR;
|
|
|
- BufferLength:SQLSMALLINT;
|
|
|
- var NameLength:SQLSMALLINT;
|
|
|
- var DataType:SQLSMALLINT;
|
|
|
- var ColumnSize:SQLUINTEGER;
|
|
|
- var DecimalDigits:SQLSMALLINT;
|
|
|
- var Nullable:SQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLFetchScroll(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- FetchOrientation:SQLSMALLINT;
|
|
|
- FetchOffset:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLExtendedFetch(
|
|
|
- hstmt:SQLHSTMT;
|
|
|
- fFetchType:SQLUSMALLINT;
|
|
|
- irow:SQLINTEGER;
|
|
|
- pcrow:PSQLUINTEGER;
|
|
|
- rgfRowStatus:PSQLUSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetData(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;
|
|
|
- TargetType:SQLSMALLINT;
|
|
|
- TargetValue:SQLPOINTER;
|
|
|
- BufferLength:SQLINTEGER;
|
|
|
- StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLSetStmtAttr(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- Attribute:SQLINTEGER;
|
|
|
- Value:SQLPOINTER;
|
|
|
- StringLength:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetStmtAttr(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- Attribute:SQLINTEGER;
|
|
|
- Value:SQLPOINTER;
|
|
|
- BufferLength:SQLINTEGER;
|
|
|
- StringLength:PSQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetInfo(
|
|
|
- ConnectionHandle:SQLHDBC;
|
|
|
- InfoType:SQLUSMALLINT;
|
|
|
- InfoValue:SQLPOINTER;
|
|
|
- BufferLength:SQLSMALLINT;
|
|
|
- StringLength:PSQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLBulkOperations(
|
|
|
- StatementHandle: SQLHSTMT;
|
|
|
- Operation:SQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLPutData(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- Data:SQLPOINTER;
|
|
|
- StrLen_or_Ind:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLBindCol(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;
|
|
|
- TargetType:SQLSMALLINT;
|
|
|
- TargetValue:SQLPOINTER;
|
|
|
- BufferLength:SQLINTEGER;
|
|
|
- StrLen_or_Ind:PSQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLSetPos(
|
|
|
- hstmt:SQLHSTMT;
|
|
|
- irow:SQLUSMALLINT;
|
|
|
- fOption:SQLUSMALLINT;
|
|
|
- fLock:SQLUSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLDataSources(
|
|
|
- EnvironmentHandle:SQLHENV;
|
|
|
- Direction:SQLUSMALLINT;
|
|
|
- ServerName:PSQLCHAR;
|
|
|
- BufferLength1:SQLSMALLINT;
|
|
|
- NameLength1:PSQLSMALLINT;
|
|
|
- Description:PSQLCHAR;
|
|
|
- BufferLength2:SQLSMALLINT;
|
|
|
- NameLength2:PSQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLDrivers(
|
|
|
- EnvironmentHandle:SQLHENV;
|
|
|
- Direction:SQLUSMALLINT;
|
|
|
- DriverDescription:PSQLCHAR;
|
|
|
- BufferLength1:SQLSMALLINT;
|
|
|
- DescriptionLength1:PSQLSMALLINT;
|
|
|
- DriverAttributes:PSQLCHAR;
|
|
|
- BufferLength2:SQLSMALLINT;
|
|
|
- AttributesLength2:PSQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLSetConnectAttr(
|
|
|
- ConnectionHandle:SQLHDBC;
|
|
|
- Attribute:SQLINTEGER; Value:SQLPOINTER;
|
|
|
- StringLength:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLGetCursorName(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- CursorName:PSQLCHAR; BufferLength:SQLSMALLINT;
|
|
|
- NameLength:PSQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLSetCursorName(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- CursorName:PSQLCHAR; NameLength:SQLSMALLINT
|
|
|
- ):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLRowCount(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- Var RowCount:SQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLBindParameter(
|
|
|
- hstmt:SQLHSTMT;
|
|
|
- ipar:SQLUSMALLINT;
|
|
|
- fParamType:SQLSMALLINT;
|
|
|
- fCType:SQLSMALLINT;
|
|
|
- fSqlType:SQLSMALLINT;
|
|
|
- cbColDef:SQLUINTEGER;
|
|
|
- ibScale:SQLSMALLINT;
|
|
|
- rgbValue:SQLPOINTER;
|
|
|
- cbValueMax:SQLINTEGER;
|
|
|
- pcbValue:PSQLINTEGER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLFreeStmt(
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- Option:SQLUSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLColAttribute (
|
|
|
- StatementHandle:SQLHSTMT;
|
|
|
- ColumnNumber:SQLUSMALLINT;
|
|
|
- FieldIdentifier:SQLUSMALLINT;
|
|
|
- CharacterAttribute:PSQLCHAR;
|
|
|
- BufferLength:SQLSMALLINT;
|
|
|
- StringLength:PSQLSMALLINT;
|
|
|
- NumericAttribute:SQLPOINTER):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
-{$ifdef ODBCVER3}
|
|
|
- function SQLEndTran(
|
|
|
- HandleType:SQLSMALLINT;
|
|
|
- Handle:SQLHANDLE;
|
|
|
- CompletionType:SQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
-{$endif}
|
|
|
- function SQLTables( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;
|
|
|
- cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;
|
|
|
- cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;
|
|
|
- cbTableName : SQLSMALLINT;
|
|
|
- szTableType : PSQLCHAR;
|
|
|
- cbTableType : SQLSMALLINT ) : SQLRETURN; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName;
|
|
|
- function SQLColumns( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;
|
|
|
- cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;
|
|
|
- cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;
|
|
|
- cbTableName : SQLSMALLINT;
|
|
|
- szColumnName : PSQLCHAR;
|
|
|
- cbColumnName : SQLSMALLINT ) : SQLRETURN; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName;
|
|
|
- function SQLSpecialColumns(StatementHandle:SQLHSTMT;
|
|
|
- IdentifierType:SQLUSMALLINT;
|
|
|
- CatalogName:PSQLCHAR;
|
|
|
- NameLength1:SQLSMALLINT;
|
|
|
- SchemaName:PSQLCHAR;
|
|
|
- NameLength2:SQLSMALLINT;
|
|
|
- TableName:PSQLCHAR;
|
|
|
- NameLength3:SQLSMALLINT;
|
|
|
- Scope:SQLUSMALLINT;
|
|
|
- Nullable:SQLUSMALLINT) : SQLRETURN; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName;
|
|
|
- function SQLProcedures( hstmt : SQLHSTMT;
|
|
|
- szTableQualifier : PSQLCHAR;
|
|
|
- cbTableQualifier : SQLSMALLINT;
|
|
|
- szTableOwner : PSQLCHAR;
|
|
|
- cbTableOwner : SQLSMALLINT;
|
|
|
- szTableName : PSQLCHAR;
|
|
|
- cbTableName : SQLSMALLINT ) : SQLRETURN; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName;
|
|
|
- function SQLPrimaryKeys(hstmt : SQLHSTMT;
|
|
|
- CatalogName:PSQLCHAR;NameLength1:SQLSMALLINT;
|
|
|
- SchemaName:PSQLCHAR;NameLength2:SQLSMALLINT;
|
|
|
- TableName:PSQLCHAR;
|
|
|
- NameLength3:SQLSMALLINT):SQLRETURN;{$ifdef win32}stdcall{$else}cdecl{$endif};external LibName;
|
|
|
- function SQLProcedureColumns(hstmt: SQLHSTMT;
|
|
|
- CatalogName: PSQLCHAR; NameLength1: SQLSMALLINT;
|
|
|
- SchemaName: PSQLCHAR; NameLength2: SQLSMALLINT;
|
|
|
- ProcName: PSQLCHAR; NameLength3: SQLSMALLINT;
|
|
|
- ColumnName: PSQLCHAR; NameLength4: SQLSMALLINT): SQLRETURN; {$ifdef win32}stdcall{$else}cdecl{$endif};
|
|
|
- external LibName;
|
|
|
-{$endif}
|
|
|
-// This function always load dynamic
|
|
|
-type TSQLConfigDataSource=function (
|
|
|
- hwndParent: Integer;
|
|
|
- fRequest: Integer;
|
|
|
- lpszDriverString: String;
|
|
|
- lpszAttributes: String): SQLRETURN;stdcall;
|
|
|
- TSQLInstallerError=function (
|
|
|
- iError: SQLUSMALLINT;
|
|
|
- pfErrorCode: PSQLINTEGER;
|
|
|
- lpszErrorMsg: PCHAR;
|
|
|
- cbErrorMsgMax: SQLUSMALLINT;
|
|
|
- pcbErrorMsg: PSQLUSMALLINT): SQLRETURN;stdcall;
|
|
|
-{$ifndef unix}
|
|
|
-function SQLConfigDataSource(
|
|
|
- hwndParent: Integer;
|
|
|
- fRequest: Integer;
|
|
|
- lpszDriverString: String;
|
|
|
- lpszAttributes: String): Integer;stdcall;
|
|
|
-function SQLInstallerError(
|
|
|
- iError: SQLUSMALLINT;
|
|
|
- pfErrorCode: PSQLINTEGER;
|
|
|
- lpszErrorMsg: PCHAR;
|
|
|
- cbErrorMsgMax: SQLUSMALLINT;
|
|
|
- pcbErrorMsg: PSQLUSMALLINT): SQLRETURN;
|
|
|
-{$endif}
|
|
|
-function DateStructToDateTime( b:PSQL_DATE_STRUCT):TDateTime;
|
|
|
-function DateTimeToDateStruct( b:TDateTime):SQL_DATE_STRUCT;
|
|
|
-procedure DateTime2TimeStampStruct( var Value:SQL_TIMESTAMP_STRUCT; b:TDateTime);
|
|
|
-Function TimeStampStructToDateTime( B : PSQL_TIMESTAMP_STRUCT) : TDateTime;
|
|
|
-Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;
|
|
|
-
|
|
|
-procedure LoadOdbc;
|
|
|
-procedure UnLoadOdbc;
|
|
|
-
|
|
|
-implementation
|
|
|
-
|
|
|
-{$ifndef unix}
|
|
|
-uses Windows;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-{$IFDEF VER110}
|
|
|
-{$HPPEMIT '#pragma comment(lib,"odbc32.lib")'}
|
|
|
-{$ENDIF}
|
|
|
-
|
|
|
-{$ifndef unix}
|
|
|
-Var
|
|
|
-{$IFDEF DYNLOADINGODBC}
|
|
|
- OdbcHMODULE: HMODULE;
|
|
|
-{$ENDIF}
|
|
|
- OdbccpHMODULE:HMODULE;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-function DateStructToDateTime( b:PSQL_DATE_STRUCT):TDateTime;
|
|
|
-begin
|
|
|
- Result:=EncodeDate( b^.Year, b^.Month, b^.Day);
|
|
|
-end;
|
|
|
-
|
|
|
-function DateTimeToDateStruct( b:TDateTime):SQL_DATE_STRUCT;
|
|
|
-var
|
|
|
- y,m,d: Word;
|
|
|
-begin
|
|
|
- DecodeDate( b, y, m, d);
|
|
|
- with Result do
|
|
|
- begin
|
|
|
- Year:=y; Month:=m; Day:=d;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure DateTime2TimeStampStruct( var Value:SQL_TIMESTAMP_STRUCT; b:TDateTime);
|
|
|
-var
|
|
|
- w1,w2,w3,w4: Word;
|
|
|
-begin
|
|
|
- with Value do
|
|
|
- begin
|
|
|
- DecodeDate(b,w1,w2,w3);
|
|
|
- Year := w1;
|
|
|
- Month := w2;
|
|
|
- Day := w3;
|
|
|
- DecodeTime(b,w1,w2,w3,w4);
|
|
|
- Hour := w1;
|
|
|
- Minute := w2;
|
|
|
- Second := w3;
|
|
|
- fraction := Integer(w4)*1000000;
|
|
|
- end;
|
|
|
-end;
|
|
|
-{
|
|
|
- SQL_DATE_STRUCT = packed record
|
|
|
- Year : SQLSMALLINT;
|
|
|
- Month : SQLUSMALLINT;
|
|
|
- Day : SQLUSMALLINT;
|
|
|
- end;
|
|
|
- PSQL_DATE_STRUCT = ^SQL_DATE_STRUCT;
|
|
|
-}
|
|
|
-
|
|
|
-Function TimeStampStructToDateTime( B : PSQL_TIMESTAMP_STRUCT) : TDateTime;
|
|
|
-
|
|
|
-begin
|
|
|
- With B^ do
|
|
|
- Result:=EncodeDate(Year,Month,Day)+
|
|
|
- EncodeTime(Hour,Minute,Second,0);
|
|
|
-end;
|
|
|
-
|
|
|
-Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;
|
|
|
-begin
|
|
|
- With B^ do
|
|
|
- Result:=EncodeTime(Hour,Minute,Second,0);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-{$ifdef DYNLOADINGODBC}
|
|
|
-
|
|
|
-Function GetODBCVersion(Odbc:HMODULE):word;
|
|
|
-var
|
|
|
- lpFilename:pchar;
|
|
|
-{$IFDEF D4UP}
|
|
|
- tmp,lpdwHandle:cardinal;
|
|
|
-{$ELSE}
|
|
|
- tmp,lpdwHandle:integer;
|
|
|
-{$ENDIF}
|
|
|
- F,lpData:pointer;
|
|
|
-begin
|
|
|
- getmem(lpFilename,255);
|
|
|
- if GetModuleFileName(Odbc,lpFilename,254) = 0 then
|
|
|
- raise Exception.Create('Error while get module file name');
|
|
|
-
|
|
|
- lpdwHandle:=GetFileVersionInfoSize(lpFilename,tmp);
|
|
|
- getmem( lpdata, lpdwHandle);
|
|
|
- result := 0;
|
|
|
- if GetFileVersionInfo(lpFilename,0,lpdwHandle,lpData) then
|
|
|
- begin
|
|
|
-{$IFDEF D4UP}
|
|
|
- tmp := sizeof(tagVS_FIXEDFILEINFO);
|
|
|
-{$ELSE}
|
|
|
- tmp := sizeof(TVSFixedFileInfo);
|
|
|
-{$ENDIF}
|
|
|
- VerQueryValue( lpData, '\', f, tmp);
|
|
|
- result := hiword(PVSFixedFileInfo(f).dwProductVersionMS) * 256 + Loword(PVSFixedFileInfo(f).dwProductVersionMS);
|
|
|
- end;
|
|
|
- Freemem(lpdata,lpdwHandle);
|
|
|
- Freemem(lpFilename,255);
|
|
|
-end;
|
|
|
-
|
|
|
-Function GetAdresstoFunction(funcname:string):FARPROC;
|
|
|
-begin
|
|
|
- result:=GetProcAddress(OdbcHMODULE,pchar(funcname));
|
|
|
- if result = nil then
|
|
|
- begin
|
|
|
- //result:=@ThisFunctionisnotavailable;
|
|
|
- raise Exception.create('Error Getting adress for '+Funcname+#13+syserrormessage(GetLastError));
|
|
|
- end;
|
|
|
-end;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-function syserrormessage(I : Integer) : string;
|
|
|
-begin
|
|
|
- result:='error '+inttostr(i);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure LoadOdbc;
|
|
|
-begin
|
|
|
-{$ifdef DYNLOADINGODBC}
|
|
|
- if OdbcHMODULE <> 0 then
|
|
|
- exit;
|
|
|
-
|
|
|
- OdbcHMODULE := LoadLibrary('ODBC32.DLL');
|
|
|
-
|
|
|
- if OdbcHMODULE = 0 then
|
|
|
- raise Exception.create(syserrormessage(GetLastError));
|
|
|
-
|
|
|
- odbcversion:=GetODBCVersion(OdbcHMODULE);
|
|
|
-//Here we know the version of the odbc driver. eg '3.5'
|
|
|
-
|
|
|
- SQLAllocHandle:=GetAdresstoFunction('SQLAllocHandle');
|
|
|
- SQLSetEnvAttr:=GetAdresstoFunction('SQLSetEnvAttr');
|
|
|
- SQLFreeHandle:=GetAdresstoFunction('SQLFreeHandle');
|
|
|
- SQLGetInfo:=GetAdresstoFunction('SQLGetInfo');
|
|
|
- SQLProcedures:=GetAdresstoFunction('SQLProcedures');
|
|
|
- SQLColumns:=GetAdresstoFunction('SQLColumns');
|
|
|
- SQLSpecialColumns:=GetAdresstoFunction('SQLSpecialColumns');
|
|
|
- SQLGetDiagRec:=GetAdresstoFunction('SQLGetDiagRec');
|
|
|
- SQLGetDiagField:=GetAdresstoFunction('SQLGetDiagField');
|
|
|
- SQLConnect:=GetAdresstoFunction('SQLConnect');
|
|
|
- SQLDisconnect:=GetAdresstoFunction('SQLDisconnect');
|
|
|
- SQLDriverConnect:=GetAdresstoFunction('SQLDriverConnect');
|
|
|
- SQLExecDirect:=GetAdresstoFunction('SQLExecDirect');
|
|
|
- SQLPrepare:=GetAdresstoFunction('SQLPrepare');
|
|
|
- SQLCloseCursor:=GetAdresstoFunction('SQLCloseCursor');
|
|
|
- SQLExecute:=GetAdresstoFunction('SQLExecute');
|
|
|
- SQLFetch:=GetAdresstoFunction('SQLFetch');
|
|
|
- SQLNumResultCols:=GetAdresstoFunction('SQLNumResultCols');
|
|
|
- SQLDescribeCol:=GetAdresstoFunction('SQLDescribeCol');
|
|
|
- SQLFetchScroll:=GetAdresstoFunction('SQLFetchScroll');
|
|
|
- SQLExtendedFetch:=GetAdresstoFunction('SQLExtendedFetch');
|
|
|
- SQLGetData:=GetAdresstoFunction('SQLGetData');
|
|
|
- SQLSetStmtAttr:=GetAdresstoFunction('SQLSetStmtAttr');
|
|
|
- SQLGetStmtAttr:=GetAdresstoFunction('SQLGetStmtAttr');
|
|
|
- SQLBulkOperations:=GetAdresstoFunction('SQLBulkOperations');
|
|
|
- SQLPutData:=GetAdresstoFunction('SQLPutData');
|
|
|
- SQLBindCol:=GetAdresstoFunction('SQLBindCol');
|
|
|
- SQLSetPos:=GetAdresstoFunction('SQLSetPos');
|
|
|
- SQLDataSources:=GetAdresstoFunction('SQLDataSources');
|
|
|
- SQLDrivers:=GetAdresstoFunction('SQLDrivers');
|
|
|
- SQLSetConnectAttr:=GetAdresstoFunction('SQLSetConnectAttr');
|
|
|
- SQLGetCursorName:=GetAdresstoFunction('SQLGetCursorName');
|
|
|
- SQLSetCursorName:=GetAdresstoFunction('SQLSetCursorName');
|
|
|
- SQLRowCount:=GetAdresstoFunction('SQLRowCount');
|
|
|
- SQLBindParameter:=GetAdresstoFunction('SQLBindParameter');
|
|
|
- SQLFreeStmt:=GetAdresstoFunction('SQLFreeStmt');
|
|
|
- SQLColAttribute:=GetAdresstoFunction('SQLColAttribute');
|
|
|
- SQLEndTran:=GetAdresstoFunction('SQLEndTran');
|
|
|
- SQLTables:=GetAdresstoFunction('SQLTables');
|
|
|
- SQLPrimaryKeys:=GetAdresstoFunction('SQLPrimaryKeys');
|
|
|
- SQLProcedureColumns:=GetAdresstoFunction('SQLProcedureColumns');
|
|
|
-{$endif}
|
|
|
-end;
|
|
|
-
|
|
|
-procedure UnLoadOdbc;
|
|
|
-begin
|
|
|
-{$ifdef DYNLOADINGODBC}
|
|
|
- if OdbcHMODULE<>0 then
|
|
|
- begin
|
|
|
- if not FreeLibrary(OdbcHMODULE) then
|
|
|
- begin
|
|
|
- raise Exception.create(syserrormessage(GetLastError));
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- OdbcHMODULE := 0;
|
|
|
-{$endif}
|
|
|
-{$ifndef unix}
|
|
|
- if OdbccpHMODULE <> 0 then
|
|
|
- begin
|
|
|
- if not FreeLibrary(OdbccpHMODULE) then
|
|
|
- begin
|
|
|
- raise Exception.create(syserrormessage(GetLastError));
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- OdbccpHMODULE:=0;
|
|
|
-{$endif}
|
|
|
-end;
|
|
|
-
|
|
|
-// function SQLConfigDataSource(
|
|
|
-// hwndParent: Integer;
|
|
|
-// fRequest: Integer;
|
|
|
-// lpszDriverString: String;
|
|
|
-// lpszAttributes: String): Integer;stdcall;external 'ODBCCP32.DLL';
|
|
|
-
|
|
|
-{$ifndef unix}
|
|
|
-function SQLConfigDataSource(
|
|
|
- hwndParent: Integer;
|
|
|
- fRequest: Integer;
|
|
|
- lpszDriverString: String;
|
|
|
- lpszAttributes: String): Integer;stdcall;
|
|
|
-var
|
|
|
- func: TSQLConfigDataSource;
|
|
|
-begin
|
|
|
- if OdbccpHMODULE = 0 then
|
|
|
- begin
|
|
|
- OdbccpHMODULE := LoadLibrary('ODBCCP32.DLL');
|
|
|
- if OdbccpHMODULE = 0 then
|
|
|
- raise Exception.create(syserrormessage(GetLastError));
|
|
|
- end;
|
|
|
-
|
|
|
- func := TSQLConfigDataSource(GetProcAddress(OdbccpHMODULE,pchar('SQLConfigDataSource')));
|
|
|
- if @func = nil then
|
|
|
- raise Exception.create('Error Getting adress for SQLConfigDataSource'+#13+syserrormessage(GetLastError));
|
|
|
-
|
|
|
- Result := func(hwndParent,fRequest,lpszDriverString,lpszAttributes);
|
|
|
-end;
|
|
|
-
|
|
|
-//SQLRETURN INSTAPI SQLInstallerError(WORD iError,
|
|
|
-// DWORD *pfErrorCode,
|
|
|
-// LPSTR lpszErrorMsg,
|
|
|
-// WORD cbErrorMsgMax,
|
|
|
-// WORD *pcbErrorMsg);
|
|
|
-function SQLInstallerError(
|
|
|
- iError: SQLUSMALLINT;
|
|
|
- pfErrorCode: PSQLINTEGER;
|
|
|
- lpszErrorMsg: PCHAR;
|
|
|
- cbErrorMsgMax: SQLUSMALLINT;
|
|
|
- pcbErrorMsg: PSQLUSMALLINT): SQLRETURN;
|
|
|
-var
|
|
|
- func: TSQLInstallerError;
|
|
|
-begin
|
|
|
- if OdbccpHMODULE = 0 then
|
|
|
- begin
|
|
|
- OdbccpHMODULE := LoadLibrary('ODBCCP32.DLL');
|
|
|
- if OdbccpHMODULE = 0 then
|
|
|
- raise Exception.create(syserrormessage(GetLastError));
|
|
|
- end;
|
|
|
-
|
|
|
- func := TSQLInstallerError(GetProcAddress(OdbccpHMODULE,pchar('SQLInstallerError')));
|
|
|
-
|
|
|
- if @func = nil then
|
|
|
- raise Exception.create('Error Getting adress for SQLInstallerError'+#13+syserrormessage(GetLastError));
|
|
|
-
|
|
|
- Result := func( iError, pfErrorCode, lpszErrorMsg, cbErrorMsgMax, pcbErrorMsg);
|
|
|
-end;
|
|
|
-{$endif}
|
|
|
-
|
|
|
-initialization
|
|
|
-
|
|
|
-finalization
|
|
|
-begin
|
|
|
- UnloadODBC;
|
|
|
-end;
|
|
|
+{$i odbcsql.inc}
|
|
|
|
|
|
end.
|
joost