怎样用excel级联下拉数据l模拟鱼在水里的位置

来源：蜘蛛抓取(WebSpider) 时间：2015-12-05 08:48 标签： excel子表格
查看: 3410|回复: 5
在Exce2013l中用ADO访问带有密码的Access2013数据库
阅读权限50
在线时间 小时
本帖最后由 杨成云 于
10:53 编辑
在Exce2013l中用ADO访问Access2013数据库，查病化疗数据库.accdb，数据库密码为：ycyNoGreen
但总提示密码错误，熟悉ADO的朋友来帮忙，着重看一下红色的代码，特别是加大加粗部分
Sub 查病化疗记录()
'在工程中引用Microsoft ADO Ext.6.0 For DDL Security对象库
& & 'On Error Resume Next
& & Dim DataKey As String
& & Dim dic As Object, Item, KeyCount, arr
& & Dim cnn As New Connection, rs As New Recordset, fld As Field
& & Dim jie As String
& & Dim strSql As String, i As Long, sh As Worksheet
& & DataKey = &ycyoksdfc&
& & Set dic = CreateObject(&scripting.dictionary&)
&&&&jie = &Provider=Microsoft.ACE.OLEDB.12.0;& & &Data Source=& & ThisWorkbook.Path & &\查病化疗数据库.accdb& & &;Jet OLEDB:Database Password=ycyNoGreen&
& & cnn.Open jie
& & Sheet2.Range(&B4:N300000&).ClearContents& & '调用数据库数据前先清空性别、出生日期与查病化疗所在列数据
& & '查病化疗人员基础信息-----------------------------------------------------------------
& & strSql = &select 姓名,身份证,家庭关系 from [A人员信息含乡村及代码] where 乡镇名称='& & Range(&Q4&) & &'& & & and 行政村名称='& & Range(&Q5&) & &'& & & and 自然村名称='& & Cells(6, &Q&) & &'& & & and 户号='& & Cells(2, &L&) & &'&
& & rs.Open strSql, cnn, odopenstatic& &'打开记录集
& & Do While Not rs.EOF
& && &&&For Each fld In rs.Fields
& && && && &dic.Add i, fld.Value
& && && && &i = i + 1
& && &&&Next
& && &&&rs.MoveNext
& & arr = dic.Items
& & With Sheet2
& && &&&For i = 0 To dic.Count / 3 - 1
& && &&&k = dic.Count
& && && && &.Cells(4 + i, 2) = arr(i + j)
& && && && &j = j + 1
& && && && &.Cells(4 + i, 3) = arr(i + j)
& && && && &j = j + 1
& && && && &.Cells(4 + i, 6) = arr(i + j)
& && &&&Next
& & End With
& & rs.Close
& & dic.RemoveAll
& & Set dic = Nothing& & '清除内存中的字典
& &End Sub
& && &&&.Range(&J:J,L:L,N:N&).Copy
& && &&&.Columns(&A:A&).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
& && &&&.Columns.AutoFit& & '设置列宽为自动适应
& & End With
& & rs.Close
& & cnn.Close
& & Set rs = Nothing
& & Set cnn = Nothing
阅读权限50
在线时间 小时
本帖最后由 杨成云 于
12:37 编辑
如果是以MDB为扩展名老版本格式Access数据库
& & strcon = &Provider=Microsoft.Jet.OLEDB.4.0;& _
& && &&&& &Data Source=& & ThisWorkbook.Path & &\查病化疗数据库.mdb& & &;Jet OLEDB:Database Password=ycyNoGreen&
这样不存在问题
但以新版本.accdb为格式的Access的数据库，目前我没办法了
解决问题的方法：把.accdb格式的转换成.mdb格式的，但这只是治标不治本的方法。
阅读权限50
在线时间 小时
字符串通常需要&&，如.....password='abc'.....
阅读权限50
在线时间 小时
Microsoft.ACE.OLEDB.12.0是OFFICE 2010
Microsoft.ACE.OLEDB.14.0
阅读权限20
在线时间 小时
这个我也想学啊
阅读权限20
在线时间 小时
太难了，看不懂
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何在exce表中l查询一段时间的数据，越简单的方法越好。_百度知道
如何在exce表中l查询一段时间的数据，越简单的方法越好。
提问者采纳
楼主想查请补充
就是用exce表l的功能啊，最好是不包括函数。
exce表的什么功能？
就是这样，我用excel登记了一段时间的费用数据，我想查询中间一段时间的费用数据，用什么方法呢？
如果你登记的时间格式是日期例如：，你可按Ctrl+F，打开查找，输入，即可找到当前日期的数据。
那我要是想查到日的数据呢？
“数据”菜单中的“筛选”“自选筛选”，在日期列单击“自定义”，第一个下拉列表框中选择“大于或等于”，右侧输入框中输入，在第二行下拉列表框中选择“小于或等于”，右侧输入，选中“与”单选框。
你知道哪种工程软件能快速简便查询费用吗？最好是窗口似的，点击数据名称就能查询。
其他类似问题
为您推荐：
其他2条回答
ctrl加f查找
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Exce中l如果将一些单元格中的数据减去同一个数，该如何操作？_百度知道
Exce中l如果将一些单元格中的数据减去同一个数，该如何操作？
找空单元格输入数复制选择需要减数单元格区域右键－选择性粘贴－减
来自团队：
其他类似问题
为您推荐：
其他2条回答
相干单元格输入要减数复制单元格选要减数区域选区内点右键选选择性粘贴－减保存
假设你要减的同一个数是500，先点第一个单元格右边的单元格，然后按=号，再点一下第一个单元格，在公式栏里接着输入-500，回车，第一个数就减好了；然后单击这个新单元格，把鼠标移到右下角，当它变成一个黑色的＋号时，点住不放往下拉，一直拉到最后一个数，就全弄好了。
单元格的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Exce中l如何快速找出两列相同与不同的数据
Excel中快速比较两列数据的异同，是我们经常遇到的。
假如要判断A列数据B列中是否有，在C1中输入：&&&=IF(ISERROR(VLOOKUP(A1,B:B,1,0)),"B列无","B列有")
判断B列数据A列中是否有，在C1中输入：&&&&=IF(ISERROR(VLOOKUP(B1,A:A,1,0)),"A列无","A列有")
假如你要把以上函数复制粘贴直接使用，那么遇到C1只显示复制的函数，就按回车键。遇到判断的数据占两行，就在粘贴选项选择“匹配目标区域格式”，其它用填充柄填充。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 excel子表格 的文章

 

随机推荐