易语言ADO数据库对象模块源码

易语言ADO数据库对象模块源码

系统结构:list,取错误内容,取对象,内部_更新连接错误内容,连接MSSql,连接MDB,关闭库,执行_附加文本,执行_附加字节集,查询,开启事务,回滚事务,提交事务,设置记录集,关闭记录集,重新查询,是否为错误,取记录数,取结果字段数,是否在尾记录后,是否在首记录前,到下一条,到上一条,到记录首,到记录尾,到指定记录,到指定页号,取当前页号,取页数,设置页大小,取页大小,读_文本,读_数值,读_逻辑,读_日期,读_字节集,读_变体型,读_从字段号_文本,读_从字段号_数值,读_从字段号_逻辑,读_从字段号_日期,读_从字段号_字节集,读_从字段号_变体型,取对象,CreateObject,CreateADOLinkObject,取对象属性列表,

======ec
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ list
| |
| |
======ADO数据库
| |
| |------ 取错误内容
| |
| |------ 取对象
| |
| |------ 内部_更新连接错误内容
| |
| |------ 连接MSSql
| |
| |------ 连接MDB
| |
| |------ 关闭库
| |
| |------ 执行_附加文本
| |
| |------ 执行_附加字节集
| |
| |------ 查询
| |
| |------ 开启事务
| |
| |------ 回滚事务
| |
| |------ 提交事务
| |
| |
======SQL记录集
| |
| |------ 设置记录集
| |
| |------ 关闭记录集
| |
| |------ 重新查询
| |
| |------ 是否为错误
| |
| |------ 取记录数
| |
| |------ 取结果字段数
| |
| |------ 是否在尾记录后
| |
| |------ 是否在首记录前
| |
| |------ 到下一条
| |
| |------ 到上一条
| |
| |------ 到记录首
| |
| |------ 到记录尾
| |
| |------ 到指定记录
| |
| |------ 到指定页号
| |
| |------ 取当前页号
| |
| |------ 取页数
| |
| |------ 设置页大小
| |
| |------ 取页大小
| |
| |------ 读_文本
| |
| |------ 读_数值
| |
| |------ 读_逻辑
| |
| |------ 读_日期
| |
| |------ 读_字节集
| |
| |------ 读_变体型
| |
| |------ 读_从字段号_文本
| |
| |------ 读_从字段号_数值
| |
| |------ 读_从字段号_逻辑
| |
| |------ 读_从字段号_日期
| |
| |------ 读_从字段号_字节集
| |
| |------ 读_从字段号_变体型
| |
| |------ 取对象
| |
| |
======help
| |
| |------ CreateObject
| |
| |------ CreateADOLinkObject
| |
| |------ 取对象属性列表
| |
| |
======调用的Dll
| |
| |---[dll]------ _CoInitialize
| |
| |---[dll]------ _DeleteCriticalSection
| |
| |---[dll]------ _EnterCriticalSection
| |
| |---[dll]------ _InitializeCriticalSection
| |
| |---[dll]------ _LeaveCriticalSection

调用的DLL命令:

.DLL命令 _CoInitialize, , "ole32.dll", "CoInitialize"
.参数 pvReserved, 整数型

.DLL命令 _DeleteCriticalSection, , , "DeleteCriticalSection"
.参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _EnterCriticalSection, , , "EnterCriticalSection"
.参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _InitializeCriticalSection, , , "InitializeCriticalSection"
.参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 _LeaveCriticalSection, , , "LeaveCriticalSection"
.参数 lpCriticalSection, CRITICAL_SECTION