ExcelVBA_使用ADO访问数据库.docVIP

使用ADO对象编程访问数据库，一般按以下步骤编写代码:(1)?使用Connection对象连接到数据源(2)?使用Recordset对象的打开记录集方法获得记录集对象(也可使用Command对象执行SQL语句获得记录集对象)(3)?在程序中访问记录集中的数据(添加、删除、更新和查找等操作)(4)?使用Connection对象中断连接 示例(以下代码，在”人事管理”数据库的表”Emp”中进行查询，将EmpID列为2008028人员的资料显示到工作表中): Sub 员工资料()?Dim cnn As New Connection, rst As Recordset, fld As Field?Dim strSql As String, i As Long, strConn As String?strSql = “SELECT * FROM Emp WHERE EmpID=’2008028’”?strConn = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’”?strConn = strConn ActiveWorkbook.Path ”\人事管理.mdb’”?con.ConnectionString = strConn ‘设置连接字符串?cnn.Open ‘打开连接?Set rst = cnn.Execute(strSql) ‘执行SQL语句生成RecordSet?With Worksheets(“sheet1”)??i = 1??For Each fld In rst.Fields ‘输出表头???.Cells(1, i) = fld.Name ‘每列为一个字段名???i = i + 1??Next??j = 1??Do While Not rst.EOF ‘循环处理记录集中的记录???i = 1???j = j + 1???For Each fld In rst.Fields ‘循处理各字段????.Cells(j, i) = fld.Value ‘显示字段的值????i = i + 1???Next???rst.MoveNext ‘下一记录??Loop?End With?Set rst = Nothing?Set cnn = NothingEnd Sub 因为Excel具有易用性、通用性和庞大的用户群，所以在一些小的应用程序中，可以将Excel作为后台数据库，用来保存用户的数据。以下演示用ADO方式访问Excel数据库的方法。 一 、查询工作表中的数据使用ADO方式访问Excel工作簿，就是将Excel工作簿作为一个数据库，工作簿中每个工作表为一个数据表，工作表中的一列数据为一个字段。用ADO访问Excel工作簿，需使用类似下面的连接字符串:“Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=工作簿名称”其中Extended Properties设置访问工作簿的版本号。 例如，在当前工作簿的工作表”员工”中，保存着员工资料。在工作表Sheet2的单元格B1中输入姓名，单击右侧【查询】按钮，即可使用ADO方式从工作表”员工”中查找数据。在查找数据时，使用Like关键字进行模糊查询。具体代码如下:Sub 按姓名查询()??? Dim cnn As New Connection, rs As New Recordset??? Dim strSql As String, str1 As String??? On Error Resume Next??? cnn.Open Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=Excel 8.0; Data Source= ThisWorkbook.FullName??? str1 = Worksheets(sheet2).Range(B1)??? strSql = select * from [员工$] Where 姓名 like % str1 %??? Debug.Print strSql??? rs.Open strSql, cnn, adOpenStatic??? With Worksheets(sheet2)??????? .Range(A4:I100).ClearContents??????? .Range(A4).CopyFromRecordset rs??? End With??? rs.Close??? cnn.Close??? Set r