VB6中使用ADOVB6中使用ADO.doc

VB6.0使用ADO连接数据库 一、ADO概述 ADO是Microsoft为最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。ADO 使您能够编写应用程序以通过 OLE. DB 提供者访问和操作数据库服务器中的数据。ADO 最主要的优点是易于使用、速度快、内存支出少和磁盘遗迹小。ADO 在关键的应用方案中使用最少的网络流量，并且在前端和数据源之间使用最少的层数，所有这些都是为了提供轻量、高性能的接口。之所以称为 ADO，是用了一个比较熟悉的暗喻，OLE 自动化接口。OLE DB是一组“组件对象模型”(COM) 接口，是新的数据库低层接口，它封装了ODBC的功能，并以统一的方式访问存储在不同信息源中的数据。OLE DB是Microsoft UDA(Universal Data Access)策略的技术基础。OLE DB 为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等等。也就是说，OLE DB 并不局限于 ISAM、Jet 甚至关系数据源，它能够处理任何类型的数据，而不考虑它们的格式和存储方法。在实际应用中，这种多样性意味着可以访问驻留在 Excel 电子数据表、文本文件、电子邮件/目录服务甚至邮件服务器，诸如 Microsoft Exchange 中的数据。但是，OLE DB 应用程序编程接口的目的是为各种应用程序提供最佳的功能，它并不符合简单化的要求。您需要的API 应该是一座连接应用程序和OLE DB 的桥梁，这就是 ActiveX Data Objects (ADO)。 二、VB6.0实现方法 本文将ADO封装为clsADO类模块（本文附件），具体定义如下： 属性：（无） 方法： Sub SetConnectionString(ByVal ConnectionString As String)设置连接数据的连接字符串，亦可在OpenDB方法中指定。参数：ConnectionString：String类型。连接字符串 Function OpenDB(Optional ByVal ConnectionString As String) As Boolean传入连接字符串，建立数据库连接，缺省使用SetConnectString方法指定的连接字符串。参数：ConnectionString：String类型。可选的，缺省为SetConnectString方法指定的连接字符串返回：Boolean类型。如果成功建立数据库连接，则返回True。否则，返回False。 Sub CloseDB()关闭数据库连接。 Function ExecuteCommand(ByVal SQLString As String) As Boolean执行指定的非查询SQL语句，如INSERT，UPDATE，DELETE。参数：SQLString：String类型。非查询SQL语句。返回：Boolean类型。如果SQL语句成功执行，则返回True。否则，返回False。 Function CreateRecordset(ByVal SQLString As String) As ADODB.Recordset返回指定查询SQL语句的记录集。参数：SQLString：String类型。查询字符串。返回：Recordset引用类型。如果SQL语句成功执行，则返回Recordset对象。否则，返回Nothing。Sub SetAccessDBName(ByVal DBName As String, Optional ByVal Password As String)设置连接Access数据库的连接字符串。参数：DBName：String类型。Access数据库的绝对路径。Password：String类型。可选的，Access数据库的密码。Sub SetSQLDBName(ByVal Host As String, ByVal DBName As String, ByVal UserID As String, ByVal Pwd As String)设置连接SQLServer数据库的连接字符串。参数：Host：String类型。SQLServer主机的域名或IP地址。DBName：String类型。要连接的数据库名。UserID：String类型。登录SQLServer的用户名。Password：String类型。UserID对应的密码。 Function SQLFilter(ByRef s As String) As String返回过滤后的SQL语句。参数：s：String类型。要过滤得