|
@@ -21,10 +21,10 @@
|
|
|
|
|
|
{$ifndef DYNLOADINGODBC}
|
|
|
{$IFDEF WINDOWS}
|
|
|
- {$linklib odbc32}
|
|
|
+ { $linklib odbc32}
|
|
|
{$ELSE}
|
|
|
{$linklib odbc}
|
|
|
-{$endif}
|
|
|
+{$endif}
|
|
|
{$endif}
|
|
|
|
|
|
interface
|
|
@@ -130,7 +130,7 @@ const
|
|
|
{$if ODBCVER >= $0350}
|
|
|
SQL_GUID = -11;
|
|
|
{$endif}
|
|
|
-
|
|
|
+
|
|
|
{ interval codes}
|
|
|
{$ifdef ODBCVER3}
|
|
|
SQL_CODE_YEAR = 1;
|
|
@@ -175,7 +175,7 @@ const
|
|
|
SQL_INTERVAL_HOUR_TO_SECOND = -91;
|
|
|
SQL_INTERVAL_MINUTE_TO_SECOND = -92;
|
|
|
{$endif}
|
|
|
-
|
|
|
+
|
|
|
{ Unicode data type codes }
|
|
|
{$ifndef ODBCVER3}
|
|
|
SQL_UNICODE = -95;
|
|
@@ -240,7 +240,7 @@ const
|
|
|
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
|
|
|
-
|
|
|
+
|
|
|
{$ifdef ODBCVER35}
|
|
|
SQL_C_GUID = SQL_GUID;
|
|
|
{$endif}
|
|
@@ -514,7 +514,7 @@ const
|
|
|
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;
|
|
@@ -1055,7 +1055,7 @@ type TSQLGetDiagRec=function (HandleType:SQLSMALLINT;
|
|
|
Sqlstate:PSQLCHAR;var NativeError:SQLINTEGER;
|
|
|
MessageText:PSQLCHAR;BufferLength:SQLSMALLINT;
|
|
|
var TextLength:SQLSMALLINT ):SQLRETURN;{$ifdef fpc} extdecl {$else} stdcall {$endif};
|
|
|
-
|
|
|
+
|
|
|
type TSQLGetDiagField=function (HandleType:SQLSMALLINT;
|
|
|
Handle:SQLHANDLE;RecNumber:SQLSMALLINT;
|
|
|
DiagIdentifier:SQLSMALLINT;DiagInfoPtr:SQLPOINTER;
|
|
@@ -1548,7 +1548,7 @@ begin
|
|
|
inc(RefCount);
|
|
|
if RefCount = 1 then
|
|
|
begin
|
|
|
- if OverrideName='' then
|
|
|
+ if OverrideName='' then
|
|
|
libname:=odbclib
|
|
|
else
|
|
|
libname:=OverrideName;
|