VB连接数据库教程：DAO与ADO访问Access、DBF、Excel、Oracle、SQLserver

"这篇文档主要介绍了如何使用VB（Visual Basic）通过DAO（Data Access Objects）和ADO（ActiveX Data Objects）来连接不同的数据库，包括Access、DBF、Excel和Oracle、SQL Server等。适合初学者学习数据库连接的基本操作。" 在VB中连接数据库是进行数据操作的基础，本篇文档主要涉及两种主要的连接方式：DAO控件和DAO代码。下面将详细介绍这两种方法以及它们分别如何与不同类型的数据库进行连接。 一、DAO控件连接数据库 1. 与Access2000数据库连接 在VB中，可以通过设置DAO控件的`Connect`和`DatabaseName`属性来连接Access数据库。例如： ```vb Data1.Connect = "Access2000;" Data1.DatabaseName = App.Path & "\chncmadb.mdb" ``` 如果数据库有密码，还需要添加`pwd`参数： ```vb Data1.Connect = ";pwd=123456" ``` 然后设置`RecordSource`属性，指定查询的表或SQL语句，最后刷新控件以显示数据。 2. 与DBF文件数据库连接 对于没有密码的DBF文件，连接代码如下： ```vb Data1.Connect = "dBASEIII;" Data1.DatabaseName = App.Path Data1.RecordSource = "select*from dbf" ``` 3. 与Excel文件数据库连接 连接Excel文件的代码如下： ```vb Data1.Connect = "Excel8.0;" Data1.DatabaseName = App.Path & "\Excel.xls" Data1.RecordSource = "select*from [Excel.xls]" ``` 二、DAO代码连接数据库 在使用DAO代码连接数据库时，首先需要在VB项目中引用`Microsoft DAO 3.6 Object Library`或对应版本。以下是一个例子，展示了如何用DAO代码连接到Access数据库： ```vb Private Sub Command1_Click() Dim Db As Database Dim Rs As Recordset Set Db = OpenDatabase(App.Path & "\chn", False, False, "MS Access;PWD=123456") '打开一个记录集 Set Rs = Db.OpenRecordset("SELECT * FROM 表名") '进行数据操作... Rs.Close Db.Close End Sub ``` 上述代码中，`OpenDatabase`函数用于打开数据库，参数包括数据库路径、是否独占、是否只读以及连接字符串（含密码）。`OpenRecordset`则用于打开一个记录集，可以执行SQL查询。 对于其他类型的数据库，如Oracle和SQL Server，通常需要使用ADO来连接，因为DAO对这些数据库的支持不如ADO全面。ADO允许更灵活的数据访问，并且支持ODBC（Open Database Connectivity），可以连接各种数据库管理系统。例如，使用ADO连接SQL Server数据库，需要引入`ADODB.Connection`和`ADODB.Recordset`对象： ```vb Private Sub Command1_Click() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=SQLOLEDB;Server=服务器地址;Database=数据库名;User ID=用户名;Password=密码;" Rs.Open "SELECT * FROM 表名", Conn '进行数据操作... Rs.Close Conn.Close End Sub ``` VB通过DAO控件和DAO代码提供了与多种数据库连接的能力，无论是简单的本地文件还是远程服务器，都能通过适当的方法进行数据交互。初学者在掌握这些基础后，可以进一步学习更复杂的数据库操作，如事务处理、存储过程调用等。