(ExcelADODAOSQLAccess专辑示例下载.docVIP

Excel+ADO(DAO)+SQL+Access专辑(示例下载) 加入收藏 网站地图 网站搜索 简 繁 默 excel资源下载首页 excel教程下载专区 excel函数、VBA、技巧视频教程 excel函数学习资料 excel财务会计报表模板 返回excel论坛 VBA学习资料 Excel图表专区 excel在线学习 Excel技巧全接触 excel办公常用表格 Excel在线帮助 VBA在线帮助 excel2007精华教程 Excel电子表格问题解答 Excel函数应用手册 excel → VBA学习资料 阅读新闻 Excel+ADO(DAO)+SQL+Access专辑(示例下载) [日期：2007-07-06]来源： 作者：兰色幻想[字体：大 中 小] ：实现筛选功能 Dim CNN As New ADODB.Connection 定义一个新的ADO对象连接 Dim RST As New ADODB.Recordset 定义一个ADO对象数据集 Dim Stpath, strSQL As String定义路径、查询变量 Stpath = ThisWorkbook.Path Application.PathSeparator 学生档案.mdb定义路径及文件名 CNN.Open provider=Microsoft.jet.OLEDB.4.0;data source= Stpath ;Jet OLEDB:Database Password= 123打开链接： provider=Microsoft.jet.OLEDB.4.0是软件提供者为Microsoft.jet.OLEDB.4.0 data source= Stpath 是链接数据源为Stpath Jet OLEDB:Database Password= 123是如果ACCESS数据库设置有保护密码，此句必不可少 If ComboBox3.Value = Then如果性别的框中为空则 strSQL = Select * from 档案 WHERE 籍贯 LIKE ComboBox2.Value 从档案表中查找籍贯为ComboBox2的记录 Select*是查找所有符合条件的字段,如果想查找符合条件并显示出具体字段,可以用SELECT 字段名1,字段名2....from 档案是从档案表中查找符合 籍贯 LIKE ComboBox2.Value 的记录 WHERE后为查找的条件 ElseIf ComboBox2.Value = Then strSQL = Select * from 档案 WHERE 性别 LIKE ComboBox3.Value Else strSQL = Select * from 档案 WHERE 性别 LIKE ComboBox3.Value AND 籍贯 LIKE ComboBox2.Value End If 以上几句为当选取项目不同时设置不同的查找语句 RST.Open strSQL, CNN打开记录集 recordset.Open Source(来记录来源), ActiveConnection(打开的链接) Sheet1.Range(A2:G100).ClearContents Sheet1.Cells(2, 1).CopyFromRecordset RST CopyFromRecordset 方法 将一个 ADO 或 DAO Recordset 对象的内容复制到工作表中，复制的起始位置在指定区域的左上角,Sheet1.Cells(2, 1).CopyFromRecordset RST为把查找到的记录得制到以Sheet1.Cells(2, 1)为顶点的单元格区域中 RST.Close关闭记录集 Set R