VBVB 与与 ACCESSACCESS 连接连接VB 与 Access 连接的方法(Ado 连接)一、建立数据库因为在 Visual Basic 6.0 中有的数据库连接方式不支持Access 2000 版本格式的数据库，为了便于说明问题，本文所提的数据库以 Access 97 版本数据库为例。在 Microsoft Access 97 中建立一个数据库，如：ssgl.mdb，并设置密码，如：“1234” ，再将数据库文件和 VB 中创建的工程文件放在同一目录下。如果用户的计算机上只有 Access 2000 的话，可以先在 Access 2000 中建立 ssgl.mdb 数据库，并设置密码，再用 Access 2000 中的“数据库实用工具”将数据库转换成 Access 97 版本的格式。当然也可以直接在 Visual Basic 6.0 集成开发环境中通过“可视化数据管理器”来创建数据库，再到 Access 97 中设置密码。通过对数据库文件设置密码，一般情况下，非法用户就不能用常规的手段打开数据库了，对数据库中的信息起到了一定的安全和保密作用。二、连接加密的 Access 数据库在 Visual Basic 6.0 中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。开发人员可以根据自身的条件和用户的需求进行选择。限于篇幅，下面只介绍加密的 Access 数据库与没有加密的Access 数据库在连接时的不同之处。关于没有加密的数据库的连接及访问的方法读者可以参阅其它资料。1、使用控件 Data 控件Data 控件是 Visual Basic 6.0 中的一个内置数据控件，可以通过设置 Data 控件的 connect、DatabaseName、RecordSource 属性实现对数据库的连接和访问。通过 Data 控件连接加密的数据库的方法有两种：一种方法是在设计状态时，在“属性窗口”中将 Data 控件的connect 属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的 Access 数据库的连接相同。另一种方法是在运行时，通过代码对 connect 属性赋值来实现。如：Data1.connect=”; pwd=1234”Data1.DatabaseName=APP.path + “ssgl.mdb”其中， ”1234”为 Access 数据库文件 ssgl.mdb 的密码，下同。Adodc 控件Adodc 控件是一个 ActiveX 控件，它使用 Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用 Adodc 控件之前，要先将 Adodc 控件添加到控件工具箱中。方法如下：在 VB 6.0 种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。通过 Adodc 控件连接加密的数据库的方法也有两种：一种方法是在设计状态时，在“属性窗口”中，对 Adodc 控件的 ConnectionString 属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234” ，再设置Adodc 控件的 CommandType、RecordSource 的属性就可以创建到加密的数据库的连接了。另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType 和 RecordSource 属性来创建连接。只要在 ConnectionString 属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。2、使用数据对象 DAO 数据对象要能正确引用 DAO 数据对象来建立与数据库的连接，应先在 VB集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO 3.51 Object Library”选项来添加 DAO 数据对象类型库。接下来就可用如下代码来建立到加密的 Access 数据库ssgl.mdb 的连接。Dim db AS DataBaseSet db=OpenDataBase(App.path + “ssgl.mdb” , False , False , ” ; pwd=1234”) ADO 数据对象ADO 是 Microsoft 推出的处理关系数据库和非关系数据库中信息的最新技术，也是 Microsoft 推崇的用于数据连接和访问的技术。在 VB 6.0 中，Adodc 控件、ADO 数据对象及 DataEnvironment（数据环境设计器）都采用的是 ADO 技术，因而它们处理加密的 Access数据库的方法类似。要能正确引用 ADO 数据对象，应在 VB 6.0 集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library”选项来添加 ADO 数据对象类型库。可用如下代码来建立到加密的 Access 数据库 ssgl.mdb 的连接。Dim cnn AS ADODB.ConnectionDim rst AS ADODB.RecordsetSet cnn=New ADODB.ConnectionCnn.Provider= ”Microsoft.Jet.OLEDB.3.51”Cnn.ConnectionString= ”Data Source=” ” Jet OLEDB: Database password=1234”cnn.Open 使用 DataEnvironment（数据环境设计器）有两种方法可以通过 DataEnvironment 连接到加密的 Access 数据库：一种方法是在设计状态时，在 DataEnvironment 的 connection对象的 ConnectionSource 属性的有效连接字符串后加上” ;Jet OLEDB: Database password=1234”另一种方法是在 DataEnvironment_Initialize()事件中编写如下代码：Private sub DataEnvironment_Initialize( )Dim strconn AS stringStrconn=” Provider=Microsoft.Jet.OLEDB.3.51;” ” Jet OLEDB: Database password=1234”DataEnvironment1.connection1.connectionstring=strconnEnd sub