📄 sdodbc.pas
字号:
* ODBC 3.0 SQLGetInfo values that are not part *
* of the X/Open standard at this time. X/Open *
* standard values are in sql.h. *
*-----------------------------------------------*}
//#if (ODBCVER >= 0x0300)
SQL_ACTIVE_ENVIRONMENTS = 116;
SQL_ALTER_DOMAIN = 117;
SQL_SQL_CONFORMANCE = 118;
SQL_DATETIME_LITERALS = 119;
SQL_ASYNC_MODE = 10021; // new X/Open spec
SQL_BATCH_ROW_COUNT = 120;
SQL_BATCH_SUPPORT = 121;
(* translate the following later :
#define SQL_CATALOG_LOCATION SQL_QUALIFIER_LOCATION
#define SQL_CATALOG_NAME_SEPARATOR SQL_QUALIFIER_NAME_SEPARATOR
#define SQL_CATALOG_TERM SQL_QUALIFIER_TERM
#define SQL_CATALOG_USAGE SQL_QUALIFIER_USAGE
#define SQL_CONVERT_WCHAR 122
#define SQL_CONVERT_INTERVAL_DAY_TIME 123
#define SQL_CONVERT_INTERVAL_YEAR_MONTH 124
#define SQL_CONVERT_WLONGVARCHAR 125
#define SQL_CONVERT_WVARCHAR 126
#define SQL_CREATE_ASSERTION 127
#define SQL_CREATE_CHARACTER_SET 128
#define SQL_CREATE_COLLATION 129
#define SQL_CREATE_DOMAIN 130
#define SQL_CREATE_SCHEMA 131
#define SQL_CREATE_TABLE 132
#define SQL_CREATE_TRANSLATION 133
#define SQL_CREATE_VIEW 134
#define SQL_DRIVER_HDESC 135
#define SQL_DROP_ASSERTION 136
#define SQL_DROP_CHARACTER_SET 137
#define SQL_DROP_COLLATION 138
#define SQL_DROP_DOMAIN 139
#define SQL_DROP_SCHEMA 140
#define SQL_DROP_TABLE 141
#define SQL_DROP_TRANSLATION 142
#define SQL_DROP_VIEW 143
#define SQL_DYNAMIC_CURSOR_ATTRIBUTES1 144
#define SQL_DYNAMIC_CURSOR_ATTRIBUTES2 145
#define SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES1 146
#define SQL_FORWARD_ONLY_CURSOR_ATTRIBUTES2 147
#define SQL_INDEX_KEYWORDS 148
#define SQL_INFO_SCHEMA_VIEWS 149
#define SQL_KEYSET_CURSOR_ATTRIBUTES1 150
#define SQL_KEYSET_CURSOR_ATTRIBUTES2 151
#define SQL_MAX_ASYNC_CONCURRENT_STATEMENTS 10022 /* new X/Open spec */
#define SQL_ODBC_INTERFACE_CONFORMANCE 152
#define SQL_PARAM_ARRAY_ROW_COUNTS 153
#define SQL_PARAM_ARRAY_SELECTS 154
#define SQL_SCHEMA_TERM SQL_OWNER_TERM
#define SQL_SCHEMA_USAGE SQL_OWNER_USAGE
#define SQL_SQL92_DATETIME_FUNCTIONS 155
#define SQL_SQL92_FOREIGN_KEY_DELETE_RULE 156
#define SQL_SQL92_FOREIGN_KEY_UPDATE_RULE 157
#define SQL_SQL92_GRANT 158
#define SQL_SQL92_NUMERIC_VALUE_FUNCTIONS 159
#define SQL_SQL92_PREDICATES 160
#define SQL_SQL92_RELATIONAL_JOIN_OPERATORS 161
#define SQL_SQL92_REVOKE 162
#define SQL_SQL92_ROW_VALUE_CONSTRUCTOR 163
#define SQL_SQL92_STRING_FUNCTIONS 164
#define SQL_SQL92_VALUE_EXPRESSIONS 165
#define SQL_STANDARD_CLI_CONFORMANCE 166
#define SQL_STATIC_CURSOR_ATTRIBUTES1 167
#define SQL_STATIC_CURSOR_ATTRIBUTES2 168
#define SQL_AGGREGATE_FUNCTIONS 169
#define SQL_DDL_INDEX 170
#define SQL_DM_VER 171
#define SQL_INSERT_STATEMENT 172
#define SQL_CONVERT_GUID 173
#define SQL_UNION_STATEMENT SQL_UNION
#endif /* ODBCVER >= 0x0300 */
*)
// SQL_GETDATA_EXTENSIONS values
SQL_GD_BLOCK = 4;
SQL_GD_BOUND = 8;
// Defines for SQLBindParameter and SQLProcedureColumns (returned in the result set)
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;
// Defines for SQLProcedures (returned in the result set)
SQL_PT_UNKNOWN = 0;
SQL_PT_PROCEDURE = 1;
SQL_PT_FUNCTION = 2;
// Column types and scopes in SQLSpecialColumns
SQL_BEST_ROWID = 1;
SQL_ROWVER = 2;
// Defines for SQLSpecialColumns (returned in the result set)
// SQL_PC_UNKNOWN and SQL_PC_PSEUDO are defined in sql.h
SQL_PC_NOT_PSEUDO = 1;
// Defines for SQLStatistics
SQL_QUICK = 0;
SQL_ENSURE = 1;
// Defines for SQLStatistics (returned in the result set)
// SQL_INDEX_CLUSTERED, SQL_INDEX_HASHED, and SQL_INDEX_OTHER are defined in sql.h
SQL_TABLE_STAT = 0;
// Defines for SQLTables
//#if (ODBCVER >= 0x0300)
SQL_ALL_CATALOGS = '%';
SQL_ALL_SCHEMAS = '%';
SQL_ALL_TABLE_TYPES = '%';
//#endif /* ODBCVER >= 0x0300 */
// Options for SQLDriverConnect
SQL_DRIVER_NOPROMPT = 0;
SQL_DRIVER_COMPLETE = 1;
SQL_DRIVER_PROMPT = 2;
SQL_DRIVER_COMPLETE_REQUIRED = 3;
// SQLExtendedFetch "fFetchType" values
SQL_FETCH_BOOKMARK = 8;
// 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;
//#if (ODBCVER >= 0x0300)
SQL_ROW_SUCCESS_WITH_INFO = 6;
SQL_ROW_PROCEED = 0;
SQL_ROW_IGNORE = 1;
//#endif
// value for SQL_DESC_ARRAY_STATUS_PTR
//#if (ODBCVER >= 0x0300)
SQL_PARAM_SUCCESS = 0;
SQL_PARAM_SUCCESS_WITH_INFO = 6;
SQL_PARAM_ERROR = 5;
SQL_PARAM_UNUSED = 7;
SQL_PARAM_DIAG_UNAVAILABLE = 1;
SQL_PARAM_PROCEED = 0;
SQL_PARAM_IGNORE = 1;
//#endif /* ODBCVER >= 0x0300 */
// Defines for SQLForeignKeys (UPDATE_RULE and DELETE_RULE)
SQL_CASCADE = 0;
SQL_RESTRICT = 1;
SQL_SET_NULL = 2;
//#if (ODBCVER >= 0x0250)
SQL_NO_ACTION = 3;
SQL_SET_DEFAULT = 4;
//#endif /* ODBCVER >= 0x0250 */
//#if (ODBCVER >= 0x0300)
// Note that the following are in a different column of SQLForeignKeys than
// the previous #defines. These are for DEFERRABILITY.
SQL_INITIALLY_DEFERRED = 5;
SQL_INITIALLY_IMMEDIATE = 6;
SQL_NOT_DEFERRABLE = 7;
//#endif /* ODBCVER >= 0x0300 */
{********************************************************************
** SQLUCODE.H - This is the the unicode include for ODBC Core functions.
**
** Created 6/20 for 3.00 specification
*********************************************************************}
const
SQL_WCHAR = (-8);
SQL_WVARCHAR = (-9);
SQL_WLONGVARCHAR = (-10);
SQL_C_WCHAR = SQL_WCHAR;
SQL_C_TCHAR = SQL_C_WCHAR;
SQL_SQLSTATE_SIZEW = 10; // size of SQLSTATE for unicode
type
TSQLAllocConnect=
function (henv :SQLHENV; var hdbc: SQLHDBC): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLAllocEnv=
function (var henv: SQLHENV): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLAllocHandle=
function(fHandleType: SQLSMALLINT; hInput: SQLHANDLE;
var hOutput: SQLHANDLE): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLAllocStmt=
function (hdbc: SQLHDBC; var hstmt: SQLHSTMT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLBindCol= function (hstmt: SQLHSTMT; icol: SQLUSMALLINT; fCType: SQLSMALLINT;
rgbValue: SQLPOINTER; cbValueMax: SQLINTEGER;
pcbValue: SQLPOINTER{PSQLINTEGER}): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLCancel= function (hstmt: SQLHSTMT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLCloseCursor=
function(hStmt: SQLHSTMT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLColAttribute=
function (hstmt: SQLHSTMT; icol, fDescType: SQLUSMALLINT;
rgbDesc: SQLPOINTER; cbDescMax: SQLSMALLINT;
pcbDesc: SQLPOINTER; pfDesc: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLColumns= function (hStmt: SQLHSTMT;
szCatalogName: TSDCharPtr; cbCatalogName: SQLSMALLINT;
szSchemaName: TSDCharPtr; cbSchemaName: SQLSMALLINT;
szTableName: TSDCharPtr; cbTableName: SQLSMALLINT;
szColumnName: TSDCharPtr; cbColumnName: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLConnect= function (hdbc: SQLHDBC; szDSN: TSDCharPtr; cbDSN: SQLSMALLINT;
szUID: TSDCharPtr; cbUID: SQLSMALLINT;
szAuthStr: TSDCharPtr; cbAuthStr: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLCopyDesc=
function (hDescSource: SQLHDESC; hDescTarget: SQLHDESC): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLDataSources =
function (hEnv: SQLHENV; fDirection: SQLUSMALLINT;
szDSN: TSDCharPtr; cbDSNMax: SQLSMALLINT; var cbDSN: SQLSMALLINT;
szDescription: TSDCharPtr; cbDescriptionMax: SQLSMALLINT;
var cbDescription: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLDescribeCol =
function (hstmt: SQLHSTMT; icol: SQLUSMALLINT;
szColName: TSDCharPtr; cbColNameMax: SQLSMALLINT; var cbColName, fSqlType: SQLSMALLINT;
var cbColDef: SQLUINTEGER; var ibScale, fNullable: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLDisconnect =
function (hdbc: SQLHDBC): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLEndTran = function (fHandleType: SQLSMALLINT; hHandle: SQLHANDLE; fType: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLError = function (henv: SQLHENV; hdbc: SQLHDBC; hstmt: SQLHSTMT;
szSqlState: TSDCharPtr; var fNativeError: SQLINTEGER;
szErrorMsg: TSDCharPtr; cbErrorMsgMax: SQLSMALLINT;
var cbErrorMsg: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLExecDirect =
function (hstmt: SQLHSTMT; szSqlStr: TSDCharPtr; cbSqlStr: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLExecute = function (hstmt: SQLHSTMT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFetch = function (hstmt: SQLHSTMT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFetchScroll =
function (hStmt: SQLHSTMT;
FetchOrientation: SQLSMALLINT; FetchOffset: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFreeConnect =
function (hdbc: SQLHDBC): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFreeEnv = function (henv: SQLHENV): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFreeHandle =
function (fHandleType: SQLSMALLINT; hHandle: SQLHANDLE): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLFreeStmt =
function (hstmt: SQLHSTMT; fOption: SQLUSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetConnectAttr =
function (hDbc: SQLHDBC; Attribute: SQLINTEGER; Value: SQLPOINTER;
BufferLength: SQLINTEGER; pStringLength: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetConnectOption =
function (hDbc: SQLHDBC; fOption: SQLUSMALLINT; pvParam: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetCursorName =
function (hStmt: SQLHSTMT; szCursor: TSDCharPtr; cbCursorMax: SQLSMALLINT;
var cbCursor: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetData = function (hStmt: SQLHSTMT; icol: SQLUSMALLINT; fCType: SQLSMALLINT;
rgbValue: SQLPOINTER; cbValueMax: SQLINTEGER;
var cbValue: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetDescField =
function (DescriptorHandle: SQLHDESC; RecNumber, FieldIdentifier: SQLSMALLINT;
Value: SQLPOINTER; BufferLength: SQLINTEGER;
var StringLength: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetDescRec =
function (DescriptorHandle: SQLHDESC; RecNumber: SQLSMALLINT;
Name: TSDCharPtr; BufferLength: SQLSMALLINT; var StringLength, RecType, RecSubType: SQLSMALLINT;
var Length: SQLINTEGER; var Precision, Scale, Nullable: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetDiagField =
function (fHandleType: SQLSMALLINT; hHandle: SQLHANDLE; iRecNumber: SQLSMALLINT;
fDiagIdentifier: SQLSMALLINT; var cbDiagInfo: SQLINTEGER;
cbDiagInfoMax: SQLSMALLINT; pcbDiagInfo: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetDiagRec =
function (fHandleType: SQLSMALLINT; hHandle: SQLHANDLE; iRecNumber: SQLSMALLINT;
szSqlState: TSDCharPtr; var fNativeError: SQLINTEGER;
szErrorMsg: TSDCharPtr; cbErrorMsgMax: SQLSMALLINT;
var cbErrorMsg: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetEnvAttr =
function(hEnv: SQLHENV; Attr: SQLINTEGER; Value: SQLPOINTER;
BufLen: SQLINTEGER; var StringLength: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetFunctions =
function (hDbc: SQLHDBC; fFunction: SQLUSMALLINT; var fExists: SQLUSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetInfo = function (hDbc: SQLHDBC; fInfoType: SQLUSMALLINT; rgbInfoValue: SQLPOINTER;
cbInfoValueMax: SQLSMALLINT; var cbInfoValue: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetStmtAttr =
function (hStmt: SQLHSTMT; Attribute: SQLINTEGER; Value: SQLPOINTER;
BufferLength: SQLINTEGER; var StringLength: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetStmtOption =
function (hStmt: SQLHSTMT; fOption: SQLUSMALLINT; pvParam: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLGetTypeInfo =
function (hStmt: SQLHSTMT; fSqlType: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLNumResultCols =
function (hStmt: SQLHSTMT; var ccol: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLParamData =
function (hStmt: SQLHSTMT; var gbValue: SQLPOINTER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLPrepare = function (hStmt: SQLHSTMT; szSqlStr: TSDCharPtr; cbSqlStr: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLPutData = function (hStmt: SQLHSTMT; rgbValue: SQLPOINTER; cbValue: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLRowCount =
function (hStmt: SQLHSTMT; var crow: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetConnectAttr =
function (hDbc: SQLHDBC; fOption: SQLINTEGER;
pvParam: SQLPOINTER; fStrLen: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetConnectOption =
function (hDbc: SQLHDBC; fOption: SQLUSMALLINT; vParam: SQLUINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetCursorName =
function (hStmt: SQLHSTMT; szCursor: TSDCharPtr; cbCursor: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetDescField =
function (DescriptorHandle: SQLHDESC; RecNumber, FieldIdentifier: SQLSMALLINT;
Value: SQLPOINTER; BufferLength: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetDescRec =
function (DescriptorHandle: SQLHDESC; RecNumber, RecType, RecSubType: SQLSMALLINT;
Length: SQLINTEGER; Precision, Scale: SQLSMALLINT;
Data: SQLPOINTER; var StringLength, Indicator: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetEnvAttr =
function(hEnv: SQLHENV; Attr: SQLINTEGER; Value: SQLPOINTER;
StringLength: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetParam =function (hStmt: SQLHSTMT; ipar: SQLUSMALLINT; fCType, fSqlType: SQLSMALLINT;
cbParamDef: SQLUINTEGER; ibScale: SQLSMALLINT;
rgbValue: SQLPOINTER; var cbValue: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetStmtAttr =
function (hStmt: SQLHSTMT; fOption: SQLINTEGER;
pvParam: SQLPOINTER; fStrLen: SQLINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSetStmtOption =
function (hStmt: SQLHSTMT; fOption: SQLUSMALLINT; vParam: SQLUINTEGER): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLSpecialColumns =
function (hStmt: SQLHSTMT; fColType: SQLUSMALLINT;
szCatalogName: TSDCharPtr; cbCatalogName: SQLSMALLINT;
szSchemaName: TSDCharPtr; cbSchemaName: SQLSMALLINT;
szTableName: TSDCharPtr; cbTableName: SQLSMALLINT;
fScope, fNullable: SQLUSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLStatistics =
function (hStmt: SQLHSTMT;
szCatalogName: TSDCharPtr; cbCatalogName: SQLSMALLINT;
szSchemaName: TSDCharPtr; cbSchemaName: SQLSMALLINT;
szTableName: TSDCharPtr; cbTableName: SQLSMALLINT;
fUnique, fAccuracy: SQLUSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLTables = function (hStmt: SQLHSTMT;
szCatalogName: TSDCharPtr; cbCatalogName: SQLSMALLINT;
szSchemaName: TSDCharPtr; cbSchemaName: SQLSMALLINT;
szTableName: TSDCharPtr; cbTableName: SQLSMALLINT;
szTableType: TSDCharPtr; cbTableType: SQLSMALLINT): SQLRETURN; {$IFNDEF SD_CLR} stdcall; {$ENDIF}
TSQLTransact =function (hEnv: SQLHENV; hDbc: SQLHDBC; fTyp⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -