易语言oracle数据库连接模块源码 [db:版本]

易语言oracle数据库连接模块源码

系统结构:置字符集,置dll路径,连接oracle数据库,取最后错误,释放句柄,断开服务器,执行sql_select,执行sql_非select,开始事务,提交事务,回滚事务,断开事务,取下个记录集,执行存储过程,取整数地址,执行存储过程_,是否连接,置大小,取记录集地址,取类内字节集地址,读字段文本,字段数量,到下一条,取记录总数,到上一条,取列名,清空,读文本_字段名,复制数据,到记录行,GetOpenFileNamePreview,OCIEnvCreate,OCIEnvNlsCreate,OCIHandleAlloc,OCIServerAttach,OCIAttrSet,OCIAttrSet_XID,OCIAttrSet_文本,OCISessionBegin,OCIHandleFree,OCITerminate,OCIServerDetach,OCISessionEnd,OCIErrorGet,OCIStmtPrepare,OCIStmtExecute,OCIParamGet,OCIAttrGet_文本,OCIAttrGet,OCIDefineByPos,OCIStmtFetch,OCITransCommit,OCITransRollback,OCIBindByPos,OCIDefineByPos_,OCITransStart,OCITransDetach,OCIDefineArrayOfStruct,MessageBoxA,SetCurrentDirectoryA,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======ora数据库
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 置字符集
| |
| |------ 置dll路径
| |
| |------ 连接oracle数据库
| |
| |------ 取最后错误
| |
| |------ 释放句柄
| |
| |------ 断开服务器
| |
| |------ 执行sql_select
| |
| |------ 执行sql_非select
| |
| |------ 开始事务
| |
| |------ 提交事务
| |
| |------ 回滚事务
| |
| |------ 断开事务
| |
| |------ 取下个记录集
| |
| |------ 执行存储过程
| |
| |------ 取整数地址
| |
| |------ 执行存储过程_
| |
| |------ 是否连接
| |
| |
======ora记录集
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 置大小
| |
| |------ 取记录集地址
| |
| |------ 取类内字节集地址
| |
| |------ 读字段文本
| |
| |------ 字段数量
| |
| |------ 到下一条
| |
| |------ 取记录总数
| |
| |------ 到上一条
| |
| |------ 取列名
| |
| |------ 清空
| |
| |------ 读文本_字段名
| |
| |------ 复制数据
| |
| |------ 到记录行
| |
| |
======调用的Dll
| |
| |---[dll]------ GetOpenFileNamePreview
| |
| |---[dll]------ OCIEnvCreate
| |
| |---[dll]------ OCIEnvNlsCreate
| |
| |---[dll]------ OCIHandleAlloc
| |
| |---[dll]------ OCIServerAttach
| |
| |---[dll]------ OCIAttrSet
| |
| |---[dll]------ OCIAttrSet_XID
| |
| |---[dll]------ OCIAttrSet_文本
| |
| |---[dll]------ OCISessionBegin
| |
| |---[dll]------ OCIHandleFree
| |
| |---[dll]------ OCITerminate
| |
| |---[dll]------ OCIServerDetach
| |
| |---[dll]------ OCISessionEnd
| |
| |---[dll]------ OCIErrorGet
| |
| |---[dll]------ OCIStmtPrepare
| |
| |---[dll]------ OCIStmtExecute
| |
| |---[dll]------ OCIParamGet
| |
| |---[dll]------ OCIAttrGet_文本
| |
| |---[dll]------ OCIAttrGet
| |
| |---[dll]------ OCIDefineByPos
| |
| |---[dll]------ OCIStmtFetch
| |
| |---[dll]------ OCITransCommit
| |
| |---[dll]------ OCITransRollback
| |
| |---[dll]------ OCIBindByPos
| |
| |---[dll]------ OCIDefineByPos_
| |
| |---[dll]------ OCITransStart
| |
| |---[dll]------ OCITransDetach
| |
| |---[dll]------ OCIDefineArrayOfStruct
| |
| |---[dll]------ MessageBoxA
| |
| |---[dll]------ SetCurrentDirectoryA

调用的DLL命令:

.DLL命令 GetOpenFileNamePreview, 逻辑型, "msvfw32", "GetOpenFileNamePreview"
.参数 lpofn, OPENFILENAME

.DLL命令 OCIEnvCreate, 整数型, "oraociei10.dll", "@OCIEnvCreate"
.参数 环境句柄_参, 整数型, 传址
.参数 mode, 整数型
.参数 ctxp, 整数型
.参数 malocfp, 整数型
.参数 ralocfp, 整数型
.参数 mfreefp, 整数型
.参数 xtramem, 整数型
.参数 usrmempp, 整数型

.DLL命令 OCIEnvNlsCreate, 整数型, "oraociei10.dll", "@OCIEnvNlsCreate"
.参数 环境句柄_参, 整数型, 传址
.参数 mode, 整数型
.参数 ctxp, 整数型
.参数 malocfp, 整数型
.参数 ralocfp, 整数型
.参数 mfreefp, 整数型
.参数 xtramem, 整数型
.参数 usrmempp, 整数型
.参数 charset, 整数型, , 字符集
.参数 ncharset, 整数型

.DLL命令 OCIHandleAlloc, 整数型, "oraociei10.dll", "@OCIHandleAlloc"
.参数 环境句柄, 整数型, , 已初始化后的环境句柄
.参数 hndlpp, 整数型, 传址, 返回的一个OCI句柄；该返回值的具体含义由type参数来决定
.参数 type, 整数型
.参数 xtramem_sz, 整数型, , 指定在该句柄生存期内分配内存的数量
.参数 usrmempp, 整数型, , 指向xtramem_sz参数的指针，由函数返回

.DLL命令 OCIServerAttach, 整数型, "oraociei10.dll", "@OCIServerAttach", , 连接服务器
.参数 服务器句柄, 整数型
.参数 错误句柄, 整数型
.参数 实例名, 文本型
.参数 实例名长度, 整数型
.参数 模式mode, 整数型, , 只能OCI_DEFAULT(0)

.DLL命令 OCIAttrSet, 整数型, "oraociei10.dll", "@OCIAttrSet"
.参数 需设置句柄, 整数型
.参数 句柄类型, 整数型
.参数 属性值, 整数型
.参数 属性值长度, 整数型
.参数 属性类型, 整数型
.参数 错误句柄, 整数型

.DLL命令 OCIAttrSet_XID, 整数型, "oraociei10.dll", "@OCIAttrSet"
.参数 需设置句柄, 整数型
.参数 句柄类型, 整数型
.参数 属性值, 字节集
.参数 属性值长度, 整数型
.参数 属性类型, 整数型
.参数 错误句柄, 整数型

.DLL命令 OCIAttrSet_文本, 整数型, "oraociei10.dll", "@OCIAttrSet"
.参数 需设置句柄, 整数型
.参数 句柄类型, 整数型
.参数 属性值, 文本型
.参数 属性值长度, 整数型
.参数 属性类型, 整数型
.参数 错误句柄, 整数型

.DLL命令 OCISessionBegin, 整数型, "oraociei10.dll", "@OCISessionBegin"
.参数 服务上下文句柄, 整数型
.参数 错误句柄, 整数型
.参数 会话句柄, 整数型
.参数 会话类型, 整数型, , 建立用户会话的类型OCI_CRED_RDBMS用户名和密码会话
.参数 模式, 整数型

.DLL命令 OCIHandleFree, 整数型, "oraociei10.dll", "@OCIHandleFree"
.参数 句柄, 整数型
.参数 类型, 整数型

.DLL命令 OCITerminate, 整数型, "oraociei10.dll", "@OCITerminate"
.参数 标志, 整数型

.DLL命令 OCIServerDetach, 整数型, "oraociei10.dll", "@OCIServerDetach", , 断开服务器
.参数 服务器句柄, 整数型
.参数 错误句柄, 整数型
.参数 模式, 整数型, , OCI_DEFAULT

.DLL命令 OCISessionEnd, 整数型, "oraociei10.dll", "@OCISessionEnd"
.参数 服务器句柄, 整数型
.参数 会话句柄, 整数型
.参数 模式, 整数型, , OCI_DEFAULT

.DLL命令 OCIErrorGet, 整数型, "oraociei10.dll", "@OCIErrorGet"
.参数 错误句柄, 整数型
.参数 错误位置, 整数型, , 1
.参数 参数_不用, 整数型, , 没用
.参数 错误代码, 整数型, 传址
.参数 错误文本, 文本型
.参数 文本长度, 整数型
.参数 句柄类型, 整数型, , OCI_HTYPE_ERROR或者OCI_HTYPE_ENV

.DLL命令 OCIStmtPrepare, 整数型, "oraociei10.dll", "@OCIStmtPrepare"
.参数 会话句柄, 整数型
.参数 错误句柄, 整数型
.参数 sql语句, 文本型
.参数 语句长度, 整数型
.参数 语法模式, 整数型, , 声明是本地语法，还是V7模式语法
.参数 模式, 整数型, , OCI_DEFAULT

.DLL命令 OCIStmtExecute, 整数型, "oraociei10.dll", "@OCIStmtExecute"
.参数 上下文句柄, 整数型
.参数 会话句柄, 整数型
.参数 错误句柄, 整数型
.参数 iters, 整数型
.参数 rowoff, 整数型
.参数 snap_in, 整数型, , 默认为0
.参数 snap_out, 整数型, , 默认为0
.参数 模式, 整数型

.DLL命令 OCIParamGet, 整数型, "oraociei10.dll", "@OCIParamGet"
.参数 会话句柄, 整数型
.参数 标志, 整数型
.参数 错误句柄, 整数型
.参数 获取描述值, 整数型, 传址
.参数 获取位置, 整数型

.DLL命令 OCIAttrGet_文本, 整数型, "oraociei10.dll", "@OCIAttrGet"
.参数 会话句柄, 整数型
.参数 标志, 整数型
.参数 获取属性值, 整数型, 传址
.参数 属性值长度, 整数型, 传址
.参数 属性类型, 整数型
.参数 错误句柄, 整数型

.DLL命令 OCIAttrGet, 整数型, "oraociei10.dll", "@OCIAttrGet"
.参数 会话句柄, 整数型
.参数 标志, 整数型
.参数 获取属性值, 整数型, 传址
.参数 属性值长度, 整数型
.参数 属性类型, 整数型
.参数 错误句柄, 整数型

.DLL命令 OCIDefineByPos, 整数型, "oraociei10.dll", "@OCIDefineByPos"
.参数 语句句柄, 整数型
.参数 定义句柄, 整数型, 传址
.参数 错误句柄, 整数型
.参数 列号, 整数型
.参数 输出缓冲区, 整数型
.参数 输出长度, 整数型
.参数 数据类型, 整数型
.参数 列是否为空, 整数型
.参数 指示器, 整数型, 传址
.参数 真实长度, 整数型, 传址
.参数 模式, 整数型

.DLL命令 OCIStmtFetch, 整数型, "oraociei10.dll", "@OCIStmtFetch"
.参数 语句句柄, 整数型
.参数 错误句柄, 整数型
.参数 行数, 整数型
.参数 方向, 整数型, , OCI_FETCH_NEXT
.参数 模式, 整数型

.DLL命令 OCITransCommit, 整数型, "oraociei10.dll", "@OCITransCommit"
.参数 服务上下文句柄, 整数型
.参数 错误句柄, 整数型
.参数 标志, 整数型, , OCI_DEFAULT

.DLL命令 OCITransRollback, 整数型, "oraociei10.dll", "@OCITransRollback"
.参数 服务上下文句柄, 整数型
.参数 错误句柄, 整数型
.参数 标志, 整数型, , OCI_DEFAULT

.DLL命令 OCIBindByPos, 整数型, "oraociei10.dll", "@OCIBindByPos", , 返回0成功
.参数 语句句柄, 整数型
.参数 绑定句柄, 整数型, 传址, 返回的对应该变量的绑定句柄
.参数 错误句柄, 整数型
.参数 占位符位置, 整数型, , 需要绑定的该变量在陈述语句的列表中的位置，从1开始，依次递增
.参数 变量, 文本型, , 需要绑定的传入值的存储地址
.参数 变量长度, 整数型, , 存储地址空间的长度
.参数 变量类型, 整数型, , 需要绑定的变量的数据类型；SQLT_STR字符串变量；SQLT_INT表示整型变量等.
.参数 indp, 整数型, , 变量或数组指示器，默认为0
.参数 alenp, 整数型, , 变量或数组长度指示器，默认为0
.参数 rcodep, 整数型, , 即将提取的变量的值指示器，默认为0
.参数 maxarr_len, 整数型, , dyt参数的最大可能取值的数目，在非PL/SQL语句中该差数无效果；默认值为0
.参数 curelep, 整数型, , 对应与maxarr_len，表示dyt参数取值的实际数目；默认值为0
.参数 标志, 整数型, , 变量提取模式。其取值为OCI_DEFAULT或OCI_DATA_AT_EXEC,一般来说，取值都为OCI_DEFAULT

.DLL命令 OCIDefineByPos_, 整数型, "oraociei10.dll", "@OCIDefineByPos"
.参数 语句句柄, 整数型
.参数 绑定句柄, 整数型
.参数 错误句柄, 整数型
.参数 占位符位置, 整数型
.参数 变量, 文本型, , 需要绑定的传入值的存储地址
.参数 变量长度, 整数型, , 存储地址空间的长度
.参数 变量类型, 整数型, , 需要绑定的变量的数据类型；SQLT_STR字符串变量；SQLT_INT表示整型变量等.
.参数 indp, 整数型, , 变量或数组指示器，默认为0
.参数 rlenp, 整数型, , 变量或数组长度指示器，默认为0
.参数 rcodep, 整数型, , 即将提取的变量的值指示器，默认为0
.参数 标志, 整数型, , 取值为OCI_DEFAULT或OCI_DYNAMIC_FETCH

.DLL命令 OCITransStart, 整数型, "oraociei10.dll", "@OCITransStart"
.参数 服务上下文句柄, 整数型
.参数 错误句柄, 整数型
.参数 激活时间秒, 整数型, , 类型为#OCI_TRANS_RESUME时还有多少秒事务将激活为#OCI_TRANS_NEW时为响应时间
.参数 类型, 整数型, , #OCI_TRANS_NEW或#OCI_TRANS_RESUME

.DLL命令 OCITransDetach, 整数型, "oraociei10.dll", "@OCITransDetach"
.参数 上下文句柄, 整数型
.参数 错误句柄, 整数型
.参数 类型, 整数型

.DLL命令 OCIDefineArrayOfStruct, 整数型, "oraociei10.dll", "@OCIDefineArrayOfStruct"
.参数 定义句柄, 整数型
.参数 错误句柄, 整数型
.参数 列长, 整数型
.参数 indskip, 整数型, , 下一个指示器或结构跳过的字节数,=0
.参数 rlskip, 整数型, , 下一个实际值跳过的字节数,=0
.参数 rcskip, 整数型, , 下一个列列级返回值跳过的字节数,=0

.DLL命令 MessageBoxA, 整数型, "user32", "MessageBoxA"
.参数 hWnd, 整数型
.参数 lpText, 文本型
.参数 lpCaption, 文本型
.参数 uType, 整数型

.DLL命令 SetCurrentDirectoryA, 逻辑型, "kernel32", "SetCurrentDirectoryA"
.参数 lpPathName, 文本型