易语言ODBC数据库类模块源码 [db:版本]

易语言ODBC数据库类模块源码

系统结构:取指针文本_,取指针整数_,取指针小数_,取指针双精度_,取指针字节集_,取数据库句柄,置数据库句柄,连接,连接Access,连接SQLServer,关闭,执行SQL,执行,查询,置SQL语句,执行记录集,绑定参数,释放记录集,到下一条,到上一条,到首记录,到尾记录,移到,字段名到序号,读字段文本,读字段字节集,读字段整数,读字段单精度,读字段双精度,读文本,读字节集,读整数,读单精度,读双精度,取字段名,取字段数,取字段类型,取字段定义长度,字段是否可空,取记录数,开始事务,回滚事务,提交事务,设超时时间,取超时时间,取最后错误,SQLAllocHandle,SQLSetEnvAttr,SQLConnect,SQLDriverConnect,SQLDisconnect,SQLExecDirect,SQLFreeHandle,SQLGetDiagRec,SQLRowCount,SQLFetch,SQLGetData,SQLNumResultCols,SQLDescribeCol,SQLSetConnectAttr,SQLGetConnectAttr,SQLBindParameter,SQLPrepare,SQLExecute,SQLEndTran,SQLSetStmtAttr,SQLFetchScroll,SQLGetStmtAttr,SQLBindCol,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 取指针文本_
| |
| |------ 取指针整数_
| |
| |------ 取指针小数_
| |
| |------ 取指针双精度_
| |
| |------ 取指针字节集_
| |
| |
======ODBC数据库类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 取数据库句柄
| |
| |------ 置数据库句柄
| |
| |------ 连接
| |
| |------ 连接Access
| |
| |------ 连接SQLServer
| |
| |------ 关闭
| |
| |------ 执行SQL
| |
| |------ 执行
| |
| |------ 查询
| |
| |------ 置SQL语句
| |
| |------ 执行记录集
| |
| |------ 绑定参数
| |
| |------ 释放记录集
| |
| |------ 到下一条
| |
| |------ 到上一条
| |
| |------ 到首记录
| |
| |------ 到尾记录
| |
| |------ 移到
| |
| |------ 字段名到序号
| |
| |------ 读字段文本
| |
| |------ 读字段字节集
| |
| |------ 读字段整数
| |
| |------ 读字段单精度
| |
| |------ 读字段双精度
| |
| |------ 读文本
| |
| |------ 读字节集
| |
| |------ 读整数
| |
| |------ 读单精度
| |
| |------ 读双精度
| |
| |------ 取字段名
| |
| |------ 取字段数
| |
| |------ 取字段类型
| |
| |------ 取字段定义长度
| |
| |------ 字段是否可空
| |
| |------ 取记录数
| |
| |------ 开始事务
| |
| |------ 回滚事务
| |
| |------ 提交事务
| |
| |------ 设超时时间
| |
| |------ 取超时时间
| |
| |------ 取最后错误
| |
| |
======调用的Dll
| |
| |---[dll]------ SQLAllocHandle
| |
| |---[dll]------ SQLSetEnvAttr
| |
| |---[dll]------ SQLConnect
| |
| |---[dll]------ SQLDriverConnect
| |
| |---[dll]------ SQLDisconnect
| |
| |---[dll]------ SQLExecDirect
| |
| |---[dll]------ SQLFreeHandle
| |
| |---[dll]------ SQLGetDiagRec
| |
| |---[dll]------ SQLRowCount
| |
| |---[dll]------ SQLFetch
| |
| |---[dll]------ SQLGetData
| |
| |---[dll]------ SQLNumResultCols
| |
| |---[dll]------ SQLDescribeCol
| |
| |---[dll]------ SQLSetConnectAttr
| |
| |---[dll]------ SQLGetConnectAttr
| |
| |---[dll]------ SQLBindParameter
| |
| |---[dll]------ SQLPrepare
| |
| |---[dll]------ SQLExecute
| |
| |---[dll]------ SQLEndTran
| |
| |---[dll]------ SQLSetStmtAttr
| |
| |---[dll]------ SQLFetchScroll
| |
| |---[dll]------ SQLGetStmtAttr
| |
| |---[dll]------ SQLBindCol

调用的DLL命令:

.DLL命令 SQLAllocHandle, 短整数型, "odbc32.dll", "SQLAllocHandle"
.参数 hType, 短整数型, , SQL_HANDLE_
.参数 inputHandle, 整数型
.参数 outputHandle, 整数型, 传址

.DLL命令 SQLSetEnvAttr, 短整数型, "odbc32.dll", "SQLSetEnvAttr"
.参数 henv, 整数型
.参数 attributes, 整数型
.参数 valuePtr, 整数型
.参数 strLength, 整数型

.DLL命令 SQLConnect, 短整数型, "odbc32.dll", "SQLConnect"
.参数 ConnectionHandle, 整数型
.参数 ServerName, 文本型
.参数 NameLength1, 短整数型
.参数 UserName, 文本型
.参数 NameLength2, 短整数型
.参数 Authentication, 文本型
.参数 NameLength3, 短整数型

.DLL命令 SQLDriverConnect, 短整数型, "odbc32.dll", "SQLDriverConnect"
.参数 Hdbc, 整数型
.参数 WindowHandle, 整数型
.参数 InConnectionString, 文本型, , 连接字符串
.参数 StringLength1, 短整数型, , 连接字符串长度
.参数 OutConnecctionString, 文本型, , 输出连接字符串缓冲区
.参数 BufferLength, 短整数型, , 缓冲区长度
.参数 StringLength2Ptr, 整数型, 传址, 返回实际长度
.参数 DriverCompletion, 短整数型, , 指定函数执行的标志。其值可为：SQL_DRIVER_PROMPT:如果连接字符串未包括Driver，DSN，FileDSN关键字，系统会弹出Data Source窗口；SQL_DRIVER_COMPLETE或SQL_DRIVER_COMPLETE_REQUIRED:如果指定数据源，则应用程序使用此数据源，否则，系统弹出DataSource窗口；SQL_DRIVER_NOPROMPT:使用指定的数据源，不弹出Data Source窗口

.DLL命令 SQLDisconnect, 短整数型, "odbc32.dll", "SQLDisconnect", , 断开连接
.参数 Hdbc, 整数型

.DLL命令 SQLExecDirect, 短整数型, "odbc32.dll", "SQLExecDirect"
.参数 StatementHandle, 整数型
.参数 StatementText, 文本型
.参数 TextLength, 整数型

.DLL命令 SQLFreeHandle, 短整数型, "odbc32.dll", "SQLFreeHandle"
.参数 HandleType, 短整数型
.参数 Handle, 整数型

.DLL命令 SQLGetDiagRec, 短整数型, "odbc32.dll", "SQLGetDiagRec"
.参数 HandleType, 整数型
.参数 Handle, 整数型
.参数 RecNumber, 短整数型
.参数 Sqlstate, 文本型, 传址
.参数 NativeError, 整数型, 传址
.参数 MessageText, 文本型, 传址
.参数 BufferLength, 短整数型
.参数 TextLength, 整数型, 传址

.DLL命令 SQLRowCount, 短整数型, "odbc32.dll", "SQLRowCount"
.参数 StatementHandle, 整数型
.参数 RowCount, 整数型, 传址

.DLL命令 SQLFetch, 短整数型, "odbc32.dll", "SQLFetch"
.参数 StatementHandle, 整数型

.DLL命令 SQLGetData, 短整数型, "odbc32.dll", "SQLGetData"
.参数 StatementHandle, 整数型
.参数 ColumnNumber, 短整数型, , 列号，从1开始
.参数 TargetType, 短整数型
.参数 TargetValuePtr, 整数型
.参数 BufferLength, 整数型
.参数 StrLen_or_Ind, 整数型, 传址

.DLL命令 SQLNumResultCols, 短整数型, "odbc32.dll", "SQLNumResultCols"
.参数 StatementHandle, 整数型
.参数 ColumnCountPtr, 整数型, 传址

.DLL命令 SQLDescribeCol, 短整数型, "odbc32.dll", "SQLDescribeCol"
.参数 StatementHandle, 整数型
.参数 ColumnNumber, 短整数型
.参数 ColumnName, 文本型
.参数 BufferLength, 短整数型
.参数 NameLengthPtr, 整数型, 传址
.参数 DataTypePtr, 整数型, 传址
.参数 ColumnSizePtr, 整数型, 传址
.参数 DecimalDigitsPtr, 整数型, 传址
.参数 NullablePtr, 整数型, 传址

.DLL命令 SQLSetConnectAttr, 短整数型, "odbc32.dll", "SQLSetConnectAttr"
.参数 ConnectionHandle, 整数型
.参数 Attribute, 整数型
.参数 ValuePtr, 整数型
.参数 StringLength, 整数型

.DLL命令 SQLGetConnectAttr, 短整数型, "odbc32.dll", "SQLGetConnectAttr"
.参数 ConnectionHandle, 整数型
.参数 Attribute, 整数型
.参数 ValuePtr, 整数型
.参数 BufferLength, 整数型
.参数 StringLength, 整数型, 传址

.DLL命令 SQLBindParameter, 短整数型, "odbc32.dll", "SQLBindParameter"
.参数 StatementHandle, 整数型
.参数 ParameterNumber, 短整数型
.参数 InputOutputType, 短整数型, , SQL_PARAM_INPUT，SQL_PARAM_OUTPUT ，SQL_PARAM_INPUT_OUTPUT
.参数 ValueType, 短整数型
.参数 ParameterType, 短整数型
.参数 ColumnSize, 整数型
.参数 DecimalDigits, 短整数型
.参数 ParameterValuePtr, 字节集
.参数 BufferLength, 整数型
.参数 StrLen_or_IndPtr, 整数型, 传址

.DLL命令 SQLPrepare, 短整数型, "odbc32.dll", "SQLPrepare"
.参数 StatementHandle, 整数型
.参数 StatementText, 文本型
.参数 TextLength, 整数型

.DLL命令 SQLExecute, 短整数型, "odbc32.dll", "SQLExecute"
.参数 StatementHandle, 整数型

.DLL命令 SQLEndTran, 短整数型, "odbc32.dll", "SQLEndTran"
.参数 HandleType, 短整数型
.参数 Handle, 整数型
.参数 CompletionType, 短整数型

.DLL命令 SQLSetStmtAttr, 短整数型, "odbc32.dll", "SQLSetStmtAttr"
.参数 StatementHandle, 整数型
.参数 Attribute, 整数型
.参数 Value, 整数型
.参数 StringLength, 整数型

.DLL命令 SQLFetchScroll, 短整数型, "odbc32.dll", "SQLFetchScroll"
.参数 StatementHandle, 整数型
.参数 FetchOrientation, 短整数型
.参数 FetchOffset, 整数型

.DLL命令 SQLGetStmtAttr, 短整数型, "odbc32.dll", "SQLGetStmtAttr"
.参数 StatementHandle, 整数型
.参数 Attribute, 整数型
.参数 Value, 整数型, 传址
.参数 BufferLength, 整数型
.参数 StringLength, 整数型, 传址

.DLL命令 SQLBindCol, 短整数型, "odbc32.dll", "SQLBindCol"
.参数 StatementHandle, 整数型
.参数 ColumnNumber, 短整数型
.参数 TargetType, 短整数型
.参数 TargetValue, 整数型
.参数 BufferLength, 整数型
.参数 StrLen_or_Ind, 整数型, 传址