【VBA每日一题】2：ADO初接触

烟雨江南 · 发表于 2007-4-22 15:35

在第一题的基础上，开始练习如何在EXCEL下使用ADO查询数据，要求如下：1、建立一个ADO联接，以本工作表为数据库；2、从员工数据表中，筛选出“策划部，女性”成员名单，并将结果输入出到H列，字段名也要输出（须用ADO完成）

[此贴子已经被作者于2007-4-22 15:36:14编辑过]

jkczfpb · 发表于 2007-4-22 16:29

能教会我VBA的就是我的老师

MXQCHINA · 发表于 2007-4-22 17:20

但是有个地方不知如何处理,如果姓名为数字如502,则在查询后为空白,不知如何解决,请指教.代码如下:Sub 自选图形1_单击() Application.ScreenUpdating = False Dim CNN As New ADODB.Connection Set CNN = CreateObject("adodb.connection") CNN.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName [h1:l65536].ClearContents Sql = "select * FROM[员工信息表$] WHERE 部门='策划部' AND 性别= '女'" [A1:E1].Copy [H1] [H2].CopyFromRecordset CNN.Execute(Sql) CNN.Close Set CNN = Nothing End Sub1、502查询为空，是本题要考查的一个小知识点，稍后讲解2、字段名要求用ADO取得，不是用直接复制的方法，再思考               3、Dim CNN As New ADODB.Connection 后CNN就可以直接用了，不用再Set CNN = CreateObject("adodb.connection")                         烟雨江南4/22

[此贴子已经被烟雨江南于2007-4-22 17:28:31编辑过]

MXQCHINA · 发表于 2007-4-22 17:42

又看了一遍题目要求，发现字段名也要用ADO查询，翻遍贴子发现添加如下代码 Sub 自选图形2_单击() Application.ScreenUpdating = False Dim rst As New ADODB.Recordset Dim CNN As New ADODB.Connection Set CNN = CreateObject("adodb.connection") CNN.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName [h1:l65536].ClearContents Sql = "select * FROM[员工信息表$] WHERE 部门='策划部' AND 性别= '女'" [H2].CopyFromRecordset CNN.Execute(Sql) For i = 1 To rst.Fields.Count     PARA = rst.Fields(i - 1).Name Cells(1, i+7) = PARA Next CNN.Close Set CNN = Nothing Application.ScreenUpdating = True End Sub但是就是无法返回要求的字段名,只返回空值,不知那错了,请高手指教.

[此贴子已经被作者于2007-4-22 17:57:17编辑过]

detifo · 发表于 2007-4-22 18:26

ADO是什么啊.偶的VBA实在不好啊~![em03]

烟雨江南 · 发表于 2007-4-22 20:06

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用MXQCHINA在2007-4-22 17:42:35的发言： Sub 自选图形2_单击() Application.ScreenUpdating = False Dim rst As New ADODB.Recordset Dim CNN As New ADODB.Connection CNN.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName [h1:l65536].ClearContents Sql = "select * FROM[员工信息表$] WHERE 部门='策划部' AND 性别= '女'"rst.open sql,cnn For i = 1 To rst.Fields.Count     Cells(1, i+7) = rst.Fields(i - 1).Name Next[H2].CopyFromRecordset CNN.Execute(Sql) CNN.Close Set CNN = Nothing Application.ScreenUpdating = True End Sub</div>试一下这样

lpz001 · 发表于 2007-4-22 20:26

标题行多出了F6，F7，F8，F9，F10，F11，F12？如何解决？[em04]

烟雨江南 · 发表于 2007-4-22 20:47

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用lpz001在2007-4-22 20:26:44的发言： 标题行多出了F6，F7，F8，F9，F10，F11，F12？如何解决？[em04]</div> Sql = "select * from [员工信息表$A:E] where 性别='女' and 部门='策划部'"  或：Sql = "select * from 员工资料 where 性别='女' and 部门='策划部'" EXCEL下须指定数据区域，除非你确认，除你认为的数据区域处，别处未操作过，否则应指定区域大小

lpz001 · 发表于 2007-4-22 20:56

谢谢，学习了！[em01]

MXQCHINA · 发表于 2007-4-22 21:02

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用lpz001在2007-4-22 20:26:44的发言： 标题行多出了F6，F7，F8，F9，F10，F11，F12？如何解决？[em04]</div>CNN.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1';Data Source=" & ActiveWorkbook.FullName [h1:l65536].ClearContents Sql = "select * FROM[员工信息表$A:E] WHERE 部门='策划部' AND 性别= '女'" 奇怪只多标记颜色的内容，就解决了我的疑问，神奇，想知道原理。

		自动登录	找回密码
密码			注册

【VBA每日一题】2：ADO初接触

又出新问题了？

浏览过的版块