易语言模块 黑月ADODB数据库操作类.ec
模块名称：黑月ADODB数据库操作类模块
作者：云外归鸟
版本：1.2
用于连接和对外部数据库进行操作
利用COM对象访问数据库，只能用于黑月程序。
------------------------------
.版本 2
.子程序 创建新Access数据库文件, 逻辑型, 公开, 成功返回真，失败返回假，原因查看错误文本
.参数 数据库文件名, 文本型, , 扩展名为*.MDB
.参数 错误信息, 文本型, 参考
.子程序 添加Access数据库表, 逻辑型, 公开, 成功返回真，失败返回假，原因查看错误文本
.参数 数据库文件名, 文本型, , 扩展名为*.MDB
.参数 表名, 文本型, , 扩展名为*.MDB
.参数 字段信息, 字段信息, 可空 数组, 如果为空，则只创建表格，不创建字段
.参数 错误信息, 文本型, 参考
.程序集 ADODB记录集类, , 公开
.子程序 保存到ADTG, 逻辑型, 公开, 将数据库表用专用的"Advanced Data Tablegram"格式保存。返回一个逻辑值，如果保存ADTG文件成功返回真，否则返回假。
.参数 ADTG文件名, 文本型
.子程序 保存到XML, 逻辑型, 公开, 将数据库表保存到XML文本文件，以作为交换通用数据表，返回一个逻辑值，如果保存XML文件成功返回真，否则返回假。
.参数 XML文件名, 文本型
.子程序 操作状态, 整数型, 公开, 0、没有编辑；1、正在编辑未保存；2、已经用添加新记录未存盘；4、正在删除未保存
.子程序 查找, 逻辑型, 公开, 查找满足条件的记录，返回一个逻辑型值，如果找到记录即返回真，并停留在满足条件的记录上，否则返回假。找到第一个满足条件的记录后，以后可以用"查找下一个"方法继续进行查找。
.参数 查找条件, 文本型, , 条件只能为一个,不能用AND OR 组合
.参数 是否反方向, 逻辑型, 可空, 真为逆向，假为正向。默认为假
.子程序 查找下一个, 逻辑型, 公开, 查找下一个满足条件的记录。此命令用于"查找"命令之后使用，可继续按查找命令找到下一个满足条件的记录。返回一个逻辑型值，如果找到返回真，否则返回假。
.子程序 打开, 逻辑型, 公开, 打开数据库表，用于具体指定是操作那一个表，返回一个逻辑值，如果打开表成功返回真，否则返回假。必须执行"ADODB数据库_连接()"等程序先进行数据库连接，最后才能打开表。
.参数 命令文本, 文本型, , 提供数据库中的某一个数据表名或SQL语句。
.参数 数据连接, ADODB数据库类, , 要连接的数据库对象
.参数 命令类型, 逻辑型, 可空, 是否为SQL命令，真为SQL命令，假为表名。默认为假
.子程序 打开并过滤, 逻辑型, 公开, 用指定过滤条件打开一个表。
.参数 数据连接, ADODB数据库类, , 要连接的数据库对象
.参数 表名, 文本型
.参数 过滤条件, 文本型, , 过滤的条件，例如："文本字段 = 'abc' and 整数字段 > 1"。
.子程序 打开并排序, 逻辑型, 公开, 打开数据表，请切以指定条件排序。返回一个逻辑型值，如果排序成功返回真，否则返回假。
.参数 数据连接, ADODB数据库类, , 要连接的数据库对象
.参数 表名, 文本型
.参数 排序条件, 文本型, , 指定排序条件，ASC为升序，DESC为降序例如让学生姓名字段按照升序排，成绩字段按照降序排，那排序条件可以为 "学生姓名 ASC,成绩 DESC"。
.子程序 到前一条, 逻辑型, 公开, 移动到前一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。
.子程序 到首记录, 逻辑型, 公开, 移动到表的第一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。
.子程序 到尾记录, 逻辑型, 公开, 移动到表的最后一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。
.子程序 到下一条, 逻辑型, 公开, 移动到下一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。
.子程序 读入序号记录, 变体型, 公开, 通过序号读取记录数据到变量中。返回变体型，失败返回空变量。
.参数 序号, 整数型, , 序号值从 0 开始。
.子程序 读入字段名记录, 变体型, 公开, 通过字段名读取记录数据到变量中。返回变体型，失败返回空变量。
.参数 字段名, 文本型
.子程序 更新, 逻辑型, 公开, 更新记录，刷新显示，返回一个逻辑值。如果更新成功返回真，否则返回假。
.子程序 关闭, , 公开, 关闭当前打开的数据库表，打开一个数据表并使用后必须进行关闭操作。
.子程序 过滤记录, 逻辑型, 公开, 过滤出满足条件的记录，返回一个逻辑型值，如果过滤成功返回真，否则返回假。注意：在不使用过滤的时候，一定要再次调用本函数并将过滤条件指定为""。
.参数 过滤条件, 文本型
.子程序 记录数量, 整数型, 公开, 整数型。取得记录的数量。
.子程序 取当前页号, 整数型, 公开, 取得当前所在页的序号
.子程序 取对象, 对象, 公开
.子程序 取每页记录数, 整数型, 公开, 取得每页的记录数
.子程序 取页面数, 整数型, 公开, 取得页面的总数
.子程序 取字段定义长度, 整数型, 公开, 通过序号或字段名取得字段定义长度，本命令返回一个整数值。
.参数 字段序号, 整数型, 可空, 提供当前表中指定字段的序号值，从 0 开始。
.参数 字段名, 文本型, 可空, 如果该项不为空，就以该项的表名为准，以上指定的序号无效
.子程序 取字段类型, 整数型, 公开, 通过序号或字段名取得字段类型，返回以下常量值之一： 20、#超长整数字段； 128、#二进制字段； 11、#逻辑型字段； 8、#宽文本字段； 129、#字符型字段； 6、#货币型字段； 7、#日期型字段； 133、#数据库日期型字段； 134、#时间型字段； 135、#时间戳字段； 14、#数值型字段； 5、#双精度字段； 0、#空白型字段； 10、#错误码字段； 72、#标识型字段； 9、#IDispatch字段； 3、#整数型字段； 13、#IUnknown字段； 205、#超变长二进制字段； 201、#超变长文本字段； 203、#超变长宽文本字段； 131、#数字型字段； 4、#单精度字段； 2、#短整数字段； 16、#有符号字节字段； 21、#无符号超长整数字段； 19、#无符号整数字段； 18、#无符号短整数字段； 17、#字节型字段； 132、#自定义型字段； 204、#变长二进制字段； 200、#变长文本字段； 12、#变体型字段； 202、#变长宽文本字段； 130、#宽文本字段。
.参数 字段序号, 整数型, 可空, 提供当前表中指定字段的序号值，从 0 开始。
.参数 字段名, 文本型, 可空, 如果该项不为空，就以该项的表名为准，以上指定的序号无效
.子程序 取字段名, 文本型, 公开, 取得指定序号字段的名称，返回一个文本型值，为字段名称文本。
.参数 字段序号, 整数型, , 提供当前表中指定字段的序号值，从 0 开始。
.子程序 取字段实际长度, 整数型, 公开, 通过序号或字段名取得字段实际长度，返回一个整数型值。
.参数 字段序号, 整数型, 可空, 提供当前表中指定字段的序号值，从 0 开始。
.参数 字段名, 文本型, 可空, 如果该项不为空，就以该项的表名为准，以上指定的序号无效
.子程序 取字段属性, 整数型, 公开, 通过序号或字段名取得字段属性，返回一个整数值。为以下常量值之一或之和： 2、#字段被延迟； 4、#字段可写入； 8、#写入无法确定； 16、#定长数据； 32、#允许空值； 64、#可以读空值； 128、#二进制类型； 256、#持久标识符； 512、#包含标记； 4096、#字段被缓存。
.参数 字段序号, 整数型, 可空, 提供当前表中指定字段的序号值，从 0 开始。
.参数 字段名, 文本型, 可空, 如果该项不为空，就以该项的表名为准，以上指定的序号无效
.子程序 删除, 逻辑型, 公开, 删除记录，返回一个逻辑值。如果删除成功返回真，否则返回假，选项可为删除当前记录，或全部记录。
.参数 删除选项, 整数型, 可空, 1、删除当前记录； 3、删除全部记录。默认为1、删除当前记录
.子程序 是否创建, 逻辑型, 公开, ADODB记录集对象是否创建成功
.子程序 是否已打开, 逻辑型, 公开, 逻辑型。判断是否已经打开。
.子程序 首记录前, 逻辑型, 公开, 逻辑型。判断当前记录指针是否已在首记录前。
.子程序 添加, 逻辑型, 公开, 添加一个新的空记录，返回一个逻辑值。如果添加成功返回真，否则返回假。
.子程序 跳到页号, 逻辑型, 公开, 翻到页的序号
.参数 页号, 整数型
.子程序 尾记录后, 逻辑型, 公开, 逻辑型。判断当前记录指针是否已在记录尾后。
.子程序 写出序号记录, 逻辑型, 公开, 通过序号写入记录值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 序号, 整数型, , 序号值从 0 开始。
.参数 记录值, 变体型
.子程序 写出字段名记录, 逻辑型, 公开, 通过字段名写入记录值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 字段名, 文本型
.参数 记录值, 变体型
.子程序 移到, 逻辑型, 公开, 移到指定记录。
.参数 移过记录数目, 整数型, , 移动过记录位置数，正向后，负向前
.参数 移动方式, 整数型, 可空, 1、从第1条记录开始；0、从当前位置开始；2、从最后一条记录开始，默认为1
.子程序 置对象, , 公开
.参数 记录集对象, 对象
.子程序 置每页记录数, 逻辑型, 公开, 置每页的记录数,成功返回真
.参数 每页的记录数, 整数型
.子程序 字段是否为空, 逻辑型, 公开, 判断指定字段是否为空。返回一个逻辑型值，如果为空即为真，否则为假。
.参数 字段序号, 整数型, 可空, 提供当前表中指定字段的序号值，从 0 开始。
.参数 字段名, 文本型, 可空, 如果该项不为空，就以该项的表名为准，以上指定的序号无效
.子程序 字段数量, 整数型, 公开, 整数型。取得字段的数量。
.子程序 最后错误, 文本型, 公开, 记录集最后错误
.程序集 ADODB数据库类, , 公开
.子程序 保存事务, 逻辑型, 公开, 保存任何更改并结束当前事务，返回一个逻辑值，如果保存事务成功返回真，否则返回假。
.子程序 对象提供者, 文本型, 公开, 对象提供者名称。
.子程序 关闭, 逻辑型, 公开, 断开当前数据库连接，成功返回"真"，失败返回"假"
.子程序 回滚事务, 逻辑型, 公开, 取消当前事务中所作的任何更改并结束事务，返回一个逻辑值，如果操作成功返回真，否则返回假。
.子程序 开始事务, 整数型, 公开, 开始新事务，返回一个整数型值，该数值表示当前事务嵌套的层数，譬如如果返回1，则表明为顶层事务。
.子程序 连接, 逻辑型, 公开, 连接到数据源，如果连接成功返回"真"，失败返回"假"。
.参数 连接文本, 文本型
.子程序 连接Access, 逻辑型, 公开, 连接Access数据库，如果连接成功返回"真"，失败返回"假"。
.参数 文件名, 文本型
.参数 密码, 文本型, 可空
.子程序 连接SQLServer, 逻辑型, 公开, 连接SQL Server数据库，如果连接成功返回"真"，失败返回"假")。
.参数 服务器名, 文本型, 可空, 默认为localhost
.参数 数据库名, 文本型
.参数 用户名, 文本型, 可空, 默认为sa
.参数 密码, 文本型, 可空, 默认为sa
.子程序 取超时时间, 整数型, 公开, 取得连接超时时间，以毫秒为单位，1000毫秒为1秒钟。本命令为初级对象成员命令。
.子程序 取得权限, 整数型, 公开, 取得访问及相关权限，并返回一个整数代表用户连接当前的权限。该整数为以下常量值之一或之和：0、#未知权限； 1、#只读权限； 2、#只写权限； 3、#读写权限； 4、#独占读权限； 8、#独占写权限； 12、#独占权限；16、#共享权限。
.子程序 取对象, 对象, 公开
.子程序 取指针位置, 整数型, 公开, 返回值为以下值之一： 1、adUseNone； 2、adUseServer； 3、adUseClient； 3、adUseClientBatch。
.子程序 设超时时间, 逻辑型, 公开, 设置超时时间，以毫秒为单位，1000毫秒为1秒钟，若时间超出，会取消相关命令，并弹出信息提示框。
.参数 要设置的时间, 整数型, , 本参数指定准备设置的时间（毫秒）。
.子程序 设置权限, 逻辑型, 公开, 设置访问及相关权限，并返回一个逻辑型值，如果设置成功，即返回真，如果设置不成功，即返回假。
.参数 要设置的模式, 整数型, , “要设置的模式”，类型为“整数型（int）”。要设置的模式为以下常量值之一或之和：0、#未知权限； 1、#只读权限； 2、#只写权限； 3、#读写权限； 4、#独占读权限； 8、#独占写权限； 12、#独占权限；16、#共享权限。
.子程序 是否创建, 逻辑型, 公开, ADODB数据库对象是否创建成功
.子程序 是否已经连接, 逻辑型, 公开
.子程序 引擎版本, 文本型, 公开, 数据引擎版本。
.子程序 执行SQL, 对象, 公开, 执行指定的查询、SQL 语句、存储过程等，执行成功返回有记录的记录集。产生的记录集将赋值给本模块的ADODB记录集
.参数 SQL语句, 文本型
.参数 记录集结果, 整数型, 参考 可空, 通常是记录的数目，但需要数据驱动支持，不支持则取不回
.子程序 置指针位置, 逻辑型, 公开, 成功返回真.
.参数 指针位置, 整数型, , 参数值为以下值之一： 1、adUseNone； 2、adUseServer； 3、adUseClient； 3、adUseClientBatch。
.子程序 最后错误, 文本型, 公开, 数据库最后错误
页:
[1]