paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-08 21:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity
c400fbe5b2
fpc/packages/base/odbc/odbcsql.pp

1615 lines
57 KiB
ObjectPascal
Raw Blame History

unit odbcsql;
{$ifndef fpc}
{$I mODBC.INC}
{$else}
{$mode objfpc}
{$h+}
{$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;
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;
SQL_C_LONG = SQL_INTEGER;
{$ifdef ODBCVER3}
SQL_TYPE_DATE = 91;
SQL_TYPE_TIME = 92;
SQL_TYPE_TIMESTAMP= 93;
{$endif}
{ODBC2}
SQL_DATE = 9;
SQL_TIME = 10;
SQL_TIMESTAMP = 11;
{end of Odbc2}
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 }
SQL_C_DEFAULT = 99;
SQL_UNSIGNED_OFFSET = (-22);
SQL_C_ULONG = (SQL_C_LONG+SQL_UNSIGNED_OFFSET);
SQL_C_BOOKMARK = SQL_C_ULONG;
{ 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 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: Integer;szCsin: PChar;
szCLen: SQLSMALLINT;szCsout: PChar;
cbCSMax: SQLSMALLINT;Var cbCsOut: SQLSMALLINT;
f: Integer):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 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 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: Integer;
szCsin: PChar;
szCLen: SQLSMALLINT;
szCsout: PChar;
cbCSMax: SQLSMALLINT;
Var cbCsOut: SQLSMALLINT;
f: Integer):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');
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;
end.
Reference in New Issue View Git Blame Copy Permalink