求ACCESS VBA数据库编程代码:在窗体中进入某个字段 80C

求ACCESS VBA数据库编程代码:ACCESS (OFFICE 365家庭版)
在窗体中进入某个字段,出现一个查询向导,我要编写一些代码使查询向导的第二列按照某个值筛选。

1个回答

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
SQL = "select * from table where 第二列名=某个筛选值"
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "数据库路径"
rs.Open SQL, cn
While rs.EOF <> True
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields.Item(i).Name & ":" & rs.Fields.Item(i).Value
Next
rs.MoveNext
Wend
cn.Close
Set cn = Nothing
End Sub

weixin_43203053
weixin_43203053 回复xingjianfengaa: 我的QQ:276511239,请加一下我,谢谢
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 回复weixin_43203053: 897725370qq可联系
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 回复weixin_43203053: 如果你用的是导出的数据库*.mdb,那么你在写路径时要把mdb的路径和名称都写全,或者把mdb放到带有vba的excel那个文件夹下面,这时只需要open 数据库名称 就可以了
接近 2 年之前 回复
weixin_43203053
weixin_43203053 把mdb直接放到与vba同一目录试试,这是什么意思,能不能说的尽量具体一点?
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 回复xingjianfengaa: 如果你直接是在用查询向导,就不用vba了,直接新建查询向导时修改查询设计,将你要查询的列设置一个条件就可以了(https://img-ask.csdn.net/upload/201810/17/1539741825_992969.png
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 回复weixin_43203053: 你是直接在access中使用vba还是access导出mdb后使用vba, 一般都是导出后使用,不导出可以直接使用查询窗口
接近 2 年之前 回复
weixin_43203053
weixin_43203053 回复xingjianfengaa: 那就是你的mdb路有问题了,你试试把mdb直接放到与vba同一目录试试,这是什么意思,能不能说的尽量具体一点?
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 回复weixin_43203053: 那就是你的mdb路有问题了,你试试把mdb直接放到与vba同一目录试试,路径里的“\”全换成"/"也行
接近 2 年之前 回复
weixin_43203053
weixin_43203053 回复xingjianfengaa: 我按照你的代码试了一下,cn.Open "数据库路径",这句出错,这是怎么回事?
接近 2 年之前 回复
xingjianfengaa
xingjianfengaa 别忘了 引用ADO相关组件:打开VBA编辑器,在菜单中点选“工具”--》“引用”。确保“Microsoft ActiviteX Data Objects 6.1 Library”和“Microsoft ActiviteX Data ObjectS Recordset 6.0 Library”被勾选上 版本自己看着办
接近 2 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问