1、使用 ADO 对象编程访问数据库，一般按以下步骤编写代码:(1) 使用 Connection 对象连接到数据源(2) 使用 Recordset 对象的打开记录集方法获得记录集对象(也可使用Command 对象执行 SQL 语句获得记录集对象)(3) 在程序中访问记录集中的数据(添加、删除、更新和查找等操作)(4) 使用 Connection 对象中断连接示例(以下代码，在” 人事管理”数据库的表”Emp”中进行查询，将 EmpID 列为2008028 人员的资料显示到工作表中):Sub 员工资料()Dim cnn As New Connection, rst As Recordset, fld
2、 As FieldDim strSql As String, i As Long, strConn As StringstrSql = “SELECT * FROM Emp WHERE EmpID=2008028”strConn = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”strConn = strConn Extended Properties=Excel 8.0;Data Source=工作簿名称”其中 Extended Properties 设置访问工作簿的版本号。例如，在当前工作簿的工作表”员工”中，保存着员工资料。在工作表 She
3、et2 的单元格 B1 中输入姓名，单击右侧 【查询】按钮，即可使用 ADO 方式从工作表”员工”中查找数据。在查找数据时，使用 Like 关键字进行模糊查询。具体代码如下:Sub 按姓名查询()Dim cnn As New Connection, rs As New RecordsetDim strSql As String, str1 As StringOn Error Resume Nextcnn.Open “Provider=Microsoft.Jet.OLEDB.4.0;“ “ “ “ Database=“strSql = strSql HDR=YES.员工$A:I;“cnn.Exe
4、cute strSqlcnn.CloseSet cnn = NothingDebug.Print strSqlEnd Sub以上代码首先创建当前工作薄的 ADO 连接，接着创建 SQL 语句从原工作簿(此处为”使用 ADO.xls”文件)的指定工作表(“ 员工”工作表 )中选择数据，并插入到目标工作簿中。在 Excel 工作簿中，每个工作表相当于数据库中表，每一列为一个字段，使用符号$ 分隔表和列。 使用下面的语句从工作簿”使用 ADO.xls”的工作表”员工 ”中获取 AI 列的数据:SELECT * FROM Excel 8.0;Database=使用 ADO.xls;HDR=YES.员工$A:I;其中 HDR=YES 表示工作表有表头(第一行为字段名)使用下面语句即可将指定工作表的数据添加到当前工作簿中:INSERT INTO 员工$A:I SELECT * FROM Excel 8.0;Database=使用ADO.xls;HDR=YES.员工$A:I;注:使用 ADO 方式，可以在不打开工作簿的情况下获取工作簿中的数据
