模块名称：ADO数据库类
模块作者：kyozy
模块版本：1.2
模块 MD5：a981cafc25b685ce9877d48ba62527f9
模块大小：51.57 KB
版权声明：
模块描述：本类模块用来访问各种类型数据库。由于本库是架构在ADO基础上的，因此请确保您的系统或者程序使用的系统装有ADO 2.10.3711.9或以上版本。当前最新版本是MDAC_TYP2.8，其中包括了ADO，如果需要，可到微软网站上下载（下载参考地址：http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c）
引用支持库：
系统核心支持库 5.0|krnln|d09f2340818511d396f6aaf844c7e325
------------------------------
.数据类型 AD_表更改信息, 公开,
.成员 字段名, 文本型, , , 当为#AD修改_删除字段时本成员为准备删除的字段名。
.成员 字段信息, 文本型, , , 当修改类型为“#AD修改_增加索引”时本成员作为索引使用的字段。如果需要使用多个字段可以通过“,“分割。如”fieldname1,fieldname2,fieldname3“。
.成员 索引名, 文本型, , , 当修改类型为“#AD修改_增加索引”或“#AD修改_删除索引”时本成员作为索引名使用。
.成员 主键名, 文本型, , , 当修改类型为“#AD修改_增加主键”时本成员作为主键名使用。
.数据类型 AD_字段信息, 公开,
.成员 字段名, 文本型, , ,
.成员 字段类型, 整数型, , ,
.成员 定义长度, 整数型, , ,
.成员 实际长度, 整数型, , ,
.成员 字段属性, 整数型, , ,
.程序集 记录集类, , 公开
.子程序 保存到ADTG, 逻辑型, , 将数据库表用专用的"Advanced Data Tablegram"格式保存
.参数 参数_ADTG文件名, 文本型, , 本参数提供要写出到的ADTG文件名。
.子程序 保存到XML, 逻辑型, , 将数据库表保存到XML文本文件，以作为交换通用数据表
.参数 参数_XML文件名, 文本型, , 本参数提供要写出到的XML文件名。
.子程序 查找, 逻辑型, , 查找满足条件的记录，返回一个逻辑型值，如果找到记录即返回真，并停留在满足条件的记录上，否则返回假。找到第一个满足条件的记录后，以后可以用"查找下一个"方法继续进行查找。
.参数 参数_查找条件, 文本型, , 本参数提供在数据表中查找的条件。
.参数 参数_查找方向, 整数型, , 本参数指定在数据表中查找的方向。可以为以下数值或常量之一：1、查找方向_正向搜索； -1、查找方向_反向搜索。
.子程序 查找下一个, 逻辑型, , 查找下一个满足条件的记录。此命令用于"查找"命令之后使用，可继续按查找命令找到下一个满足条件的记录。返回一个逻辑型值，如果找到返回真，否则返回假。
.子程序 打开, 逻辑型, , 打开数据库表，用于具体指定是操作那一个表，返回一个逻辑值，如果打开表成功返回真，否则返回假。必须使用数据库连接组件先进行数据库连接，再用“置连接”方法连接到本对象，最后才能打开表。
.参数 参数_命令文本, 文本型, , 本参数可以提供数据库中的某一个数据表名或SQL语句。
.参数 参数_命令类型, 整数型, 可空 , 1、#打开记录_SQL语句； 2、#打开记录_数据表名。默认为1、#打开记录_SQL语句
.参数 参数_游标类型, 整数型, 可空 , “游标类型_”开头常量。默认为“游标类型_键集”
.参数 参数_锁定类型, 整数型, 可空 , “锁定类型_”开头常量。默认为“锁定类型_乐观”
.子程序 打开并过滤, 逻辑型, , 用指定过滤条件打开一个表。
.参数 参数_表名, 文本型, , 数据库表名。
.参数 参数_过滤条件, 文本型, , 过滤的条件，例如："文本字段 = 'abc' and 整数字段 > 1"。
.参数 参数_游标类型, 整数型, 可空 , “游标类型_”开头常量。默认为“游标类型_键集”
.参数 参数_锁定类型, 整数型, 可空 , “锁定类型_”开头常量。默认为“锁定类型_乐观”
.子程序 打开并排序, 逻辑型, , 打开数据表，并且以指定条件排序。返回一个逻辑型值，如果排序成功返回真，否则返回假。
.参数 参数_表名, 文本型, , 本参数提供数据库表的名称。
.参数 参数_排序条件, 文本型, , 本参数指定排序条件，ASC为升序，DESC为降序例如让学生姓名字段按照升序排，成绩字段按照降序排，那排序条件可以为 "学生姓名 ASC,成绩 DESC"。
.参数 参数_游标类型, 整数型, 可空 , “游标类型_”开头常量。默认为“游标类型_键集”
.参数 参数_锁定类型, 整数型, 可空 , “锁定类型_”开头常量。默认为“锁定类型_乐观”
.子程序 到前一条, 逻辑型, , 移动到前一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。操作本命令之前要确保数据库及表打开。
.子程序 到首记录, 逻辑型, , 移动到表的第一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。操作本命令之前要确保数据库及表打开。
.子程序 到尾记录, 逻辑型, , 移动到表的最后一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。操作本命令之前要确保数据库及表打开。
.子程序 到下一条, 逻辑型, , 移动到下一条记录，返回一个逻辑值，如果移动成功返回真，否则返回假。操作本命令之前要确保数据库及表打开。
.子程序 读单精度, 小数型, , 通过序号或字段名读取单精度数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读逻辑值, 逻辑型, , 通过序号或字段名读取逻辑型数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读日期时间, 日期时间型, , 通过序号或字段名读取日期数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读双精度, 双精度小数, , 通过序号或字段名读取双精度数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读文本, 文本型, , 通过序号或字段名读取文本数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读整数, 整数型, , 通过序号或字段名读取整型数据。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 读字节集, 字节集, , 通过序号或字段名读取字节集数据
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 更新, 逻辑型, , 更新记录，刷新显示，返回一个逻辑值。如果更新成功返回真，否则返回假。
.子程序 关闭, 逻辑型, , 关闭当前打开的数据库表，打开一个数据表并使用后必须进行关闭操作。
.子程序 过滤记录, 逻辑型, , 过滤出满足条件的记录，返回一个逻辑型值，如果过滤成功返回真，否则返回假。注意：在不使用过滤的时候，一定要再次调用本函数并将过滤条件指定为空文本。
.参数 参数_过滤条件, 文本型, , 本参数提供过滤的条件。
.子程序 批量更新, 逻辑型, ,
.子程序 取操作状态, 整数型, , 取得当前操作状态，更新成功。
.子程序 取当前位置, 整数型, , 当前记录在记录集中的位置，0为第一条记录。如果为-1表示位置未知（多数由于数据提供者 (Provider)不支持IRowsetScroll接口），如为-3表示处于文件开头，如为-4表示文件结尾。
.子程序 取记录集对象, 对象, ,
.子程序 取记录数量, 整数型, , 取得记录的数量。如果为-1，表示ADO当前无法判断记录的数量，或者数据提供者不支持这个属性。
.子程序 取连接, 逻辑型, , 取得数据库连接。
.参数 参数_数据库连接, 数据库连接类, 参考 ,
.子程序 取字段数量, 整数型, , 取得字段的数量。
.子程序 取字段信息, AD_字段信息, ,
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.子程序 删除, 逻辑型, , 删除记录，返回一个逻辑值。如果删除成功返回真，否则返回假，选项可为删除当前记录，或全部记录。
.参数 参数_删除选项, 整数型, 可空 , 1、#记录删除_当前；3、#记录删除_全部。默认为1、#记录删除_当前
.子程序 是否已打开, 逻辑型, , 判断是否已经打开。
.子程序 首记录前, 逻辑型, , 判断当前记录指针是否已在首记录前。
.子程序 添加, 逻辑型, , 添加一个新的空记录，返回一个逻辑值。如果添加成功返回真，否则返回假。
.子程序 尾记录后, 逻辑型, , 判断当前记录指针是否已在记录尾后。
.子程序 写单精度, 逻辑型, , 通过序号或字段名写入单精度值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_单精度, 小数型, , 本参数提供要写入的单精度小数值。
.子程序 写逻辑值, 逻辑型, , 通过序号或字段名写入逻辑值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_逻辑值, 逻辑型, , 本参数提供要写入的逻辑值。
.子程序 写日期时间, 逻辑型, , 通过序号或字段名写入日期型数据。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_日期时间, 日期时间型, , 本参数提供要写入的日期型数据。
.子程序 写双精度, 逻辑型, , 通过序号或字段名写入双精度值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_双精度, 双精度小数, , 本参数提供要写入的双精度小数值。
.子程序 写文本, 逻辑型, , 通过序号或字段名写入文本。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_文本, 文本型, , 本参数提供所要写入的文本。
.子程序 写整数, 逻辑型, , 通过序号或字段名写入整型值。返回一个逻辑型值，如果写成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_整数, 整数型, , 本参数提供要写入的整数值。
.子程序 写字节集, 逻辑型, , 通过序号或字段名写入字节集数据到变量中。返回一个逻辑型值，如果读成功返回真，否则返回假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.参数 参数_字节集, 字节集, , 本参数提供要写入的字节集数据。
.子程序 移到, 逻辑型, , 移到指定记录。
.参数 参数_目标记录号, 整数型, , 本参数提供目标记录号值，该值从 0 开始
.子程序 置记录集对象, , ,
.参数 参数_记录集对象, 对象, , ADODB.RecordSet
.子程序 置连接, 逻辑型, , 设置数据库连接。
.参数 参数_数据库连接, 数据库连接类, , 本参数提供要设置的数据库连接对象。
.子程序 字段是否为空, 逻辑型, , 判断指定字段是否为空。返回一个逻辑型值，如果为空即为真，否则为假。
.参数 参数_字段名, 文本型, 可空 , 字段名和序号两者选其一。
.参数 参数_序号, 整数型, 可空 , 字段名和序号两者选其一。
.程序集 数据库连接类, , 公开
.子程序 连接, 逻辑型, , 连接到数据源，如果连接成功返回真，失败返回假。
.参数 参数_连接文本, 文本型, , 本参数提供连接时使用的连接文本。
.子程序 连接Access, 逻辑型, , 连接Access数据库，如果连接成功返回真，失败返回假。
.参数 参数_文件名, 文本型, , 本参数提供Access数据库文件的完整路径名。
.参数 参数_密码, 文本型, 可空 , 本参数提供Access数据库的访问密码。可以为空，若为空，表示Access数据库没有密码。
.子程序 连接SQLServer, 逻辑型, , 连接SQL Server数据库，如果连接成功返回真，失败返回假。
.参数 参数_服务器名, 文本型, ,
.参数 参数_数据库名, 文本型, ,
.参数 参数_用户名, 文本型, ,
.参数 参数_密码, 文本型, ,
.子程序 关闭, 逻辑型, , 断开当前数据库连接，成功返回真，失败返回假。
.子程序 执行SQL, 逻辑型, , 执行指定的SQL语句，执行成功返回真，否则返回假。
.参数 参数_SQL语句, 文本型, , 本参数提供要执行的SQL语句。有关SQL语句的具体内容请参看SQL的专业手册。
.参数 参数_记录集, 记录集类, 参考 可空 , 返回记录集。
.子程序 取连接对象, 对象, , 取回自身的数据库连接对象。
.子程序 取得权限, 整数型, , 取得访问及相关权限，返回“数据库权限_”开头常量
.子程序 设置权限, 逻辑型, , 设置访问及相关权限，并返回一个逻辑型值，如果设置成功，即返回真，如果设置不成功，即返回假。注意，该方法只能在连接处于关闭状态的时候才可以使用。
.参数 参数_模式, 整数型, , “数据库权限_”开头常量
.子程序 取超时时间, 整数型, , 取得超时时间，以毫秒为单位，1000毫秒为1秒钟。
.参数 参数_类型, 整数型, 可空 , 0：连接超时，1：执行命令超时。默认为0。
.子程序 设超时时间, 逻辑型, , 设置超时时间，以毫秒为单位，1000毫秒为1秒钟，若时间超出，会取消相关命令，并弹出信息提示框。
.参数 参数_时间, 整数型, , 本参数指定准备设置的时间（毫秒）。
.参数 参数_类型, 整数型, 可空 , 0：连接超时，1：执行命令超时。默认为0。
.子程序 开始事务, 整数型, , 开始新事务，返回一个整数型值，该数值表示当前事务嵌套的层数，譬如如果返回1，则表明为顶层事务。
.子程序 保存事务, 逻辑型, , 保存任何更改并结束当前事务
.子程序 回滚事务, 逻辑型, , 取消当前事务中所作的任何更改并结束事务
.子程序 取最后错误, 文本型, , 获取最后错误文本。
.子程序 是否已连接, 逻辑型, , 是否已经连接。
.子程序 取对象提供者, 文本型, , 返回对象提供者名称。
.子程序 取引擎版本, 文本型, , 返回数据引擎版本。
.子程序 置连接对象, , , 置入数据库连接对象。
.参数 参数_对象, 对象, , ADODB.Connection
.子程序 取库名列表_SQLServer, 记录集类, ,
.子程序 取表名列表, 文本型, , 返回以“#换行符”分割的表名列表。
.子程序 创建库_SQLServer, 逻辑型, ,
.参数 参数_库名, 文本型, ,
.子程序 选择库_SQLServer, 逻辑型, ,
.参数 参数_库名, 文本型, ,
.子程序 创建表_SQLServer, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.参数 参数_字段信息, AD_字段信息, 数组,
.子程序 删除库_SQLServer, 逻辑型, ,
.参数 参数_库名, 文本型, ,
.子程序 删除表, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.子程序 创建索引, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.参数 参数_字段名, 文本型, ,
.参数 参数_索引名, 文本型, ,
.子程序 删除索引, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.参数 参数_索引名, 文本型, ,
.子程序 创建用户, 逻辑型, ,
.参数 参数_用户名, 文本型, ,
.参数 参数_密码, 文本型, ,
.子程序 删除用户, 逻辑型, ,
.参数 参数_用户名, 文本型, ,
.子程序 创建表_Access, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.参数 参数_字段信息, AD_字段信息, 可空 数组,
.子程序 置指针位置, 逻辑型, ,
.参数 参数_指针位置, 整数型, , 参数值为以下值之一： 1、adUseNone； 2、adUseServer； 3、adUseClient； 3、adUseClientBatch。
.子程序 取指针位置, 整数型, ,
.子程序 修改表_Access, 逻辑型, ,
.参数 参数_表名, 文本型, ,
.参数 参数_字段信息, AD_字段信息, ,
.参数 参数_更改信息表, AD_表更改信息, ,
.参数 参数_修改类型, 整数型, ,
.子程序 创建库_Access, , ,
.参数 参数_文件名, 文本型, ,
.参数 参数_密码, 文本型, 可空 ,
.常量 AD修改_删除索引, "5", 公开,
.常量 AD修改_删除主键, "7", 公开,
.常量 AD修改_删除字段, "3", 公开,
.常量 AD修改_修改字段, "2", 公开,
.常量 AD修改_增加索引, "4", 公开,
.常量 AD修改_增加主键, "6", 公开,
.常量 AD修改_增加字段, "1", 公开,
.常量 查找方向_反向搜索, "-1", 公开,
.常量 查找方向_正向搜索, "1", 公开,
.常量 打开记录_SQL语句, "1", 公开,
.常量 打开记录_数据表名, "2", 公开,
.常量 记录删除_当前, "1", 公开,
.常量 记录删除_全部, "3", 公开,
.常量 数据库权限_独占, "12", 公开,
.常量 数据库权限_独占读, "4", 公开,
.常量 数据库权限_独占写, "8", 公开,
.常量 数据库权限_读写, "3", 公开,
.常量 数据库权限_共享, "16", 公开,
.常量 数据库权限_未知, "0", 公开,
.常量 数据库权限_只读, "1", 公开,
.常量 数据库权限_只写, "2", 公开,
.常量 锁定类型_悲观, "2", 公开, 只能同时被一个客户修改，修改时锁定，修改完毕释放
.常量 锁定类型_乐观, "3", 公开, 直到用“对象.更新”方法提交更新记录时才锁定记录。可以同时被多个客户修改
.常量 锁定类型_批量乐观, "4", 公开, 数据可以修改，但不锁定其他客户，只有调用“对象.批量更新”方法后才锁定记录
.常量 锁定类型_只读, "1", 公开,
.常量 游标类型_动态, "2", 公开, 功能最强，但耗资源也最多。用户对记录所做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览
.常量 游标类型_键集, "1", 公开, 其他用户对记录所做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页
.常量 游标类型_静态, "3", 公开, 只是数据的一个快照，用户对记录所做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
.常量 游标类型_向前, "0", 公开, 只能向前浏览记录
.常量 字段类型_GUID, "72", 公开, GUID
.常量 字段类型_IDispatch, "9", 公开, IDispatch
.常量 字段类型_IUnknown, "13", 公开, IUnknown
.常量 字段类型_备注型, "203", 公开, text
.常量 字段类型_变体型, "12", 公开, Variant
.常量 字段类型_变长宽文本型, "202", 公开, VarWChar
.常量 字段类型_变长文本型, "200", 公开, VarChar
.常量 字段类型_变长字节集型, "204", 公开, VarBinary
.常量 字段类型_超变长文本型, "201", 公开, LongVarChar
.常量 字段类型_超变长字节集型, "205", 公开, LongVarBinary
.常量 字段类型_错误码, "10", 公开, Error
.常量 字段类型_单精度型, "4", 公开, Single
.常量 字段类型_短整数型, "2", 公开, SmallInt
.常量 字段类型_货币型, "6", 公开, Currency
.常量 字段类型_空, "0", 公开, adEmpty
.常量 字段类型_空白型, "0", 公开, Empty
.常量 字段类型_宽文本型, "130", 公开, WChar
.常量 字段类型_逻辑型, "11", 公开, Boolean
.常量 字段类型_日期型, "7", 公开, Date
.常量 字段类型_时间戳, "135", 公开, DBTimeStamp
.常量 字段类型_时间型, "134", 公开, DBTime
.常量 字段类型_数据库日期型, "133", 公开, DBDate
.常量 字段类型_数字型, "131", 公开, Numeric
.常量 字段类型_双精度型, "5", 公开, Double
.常量 字段类型_文本型, "129", 公开, Char
.常量 字段类型_无符号短整数型, "18", 公开, UnsignedSmallInt
.常量 字段类型_无符号长整数型, "21", 公开, UnsignedBigInt
.常量 字段类型_无符号整数型, "19", 公开, UnsignedInt
.常量 字段类型_无符号字节型, "17", 公开, UnsignedTinyInt
.常量 字段类型_小数型, "14", 公开, Decimal
.常量 字段类型_长整数型, "20", 公开, BigInt
.常量 字段类型_整数型, "3", 公开, Integer
.常量 字段类型_字节集型, "128", 公开, Binary
.常量 字段类型_字节型, "16", 公开, TinyInt
.常量 字段属性_包含标记, "512", 公开,
.常量 字段属性_持久标识符, "256", 公开,
.常量 字段属性_二进制类型, "128", 公开,
.常量 字段属性_可以读空值, "64", 公开,
.常量 字段属性_写入无法确定, "8", 公开,
.常量 字段属性_自动编号, "16", 公开,
.常量 字段属性_字段被缓存, "4096", 公开,
.常量 字段属性_字段被延迟, "2", 公开,
.常量 字段属性_字段可空, "32", 公开,
.常量 字段属性_字段可写入, "4", 公开,