access2013两个表之间模糊查找

比如:在表1输入搜索关键词,在表2中模糊查找包含关键词的所有数据找出来后都列到查询表中这个要用access实现,截图只是用excel示意一下... 比如:在表1输入搜索关键词,在表2中模糊查找包含关键词的所有数据找出来后都列到查询表中这个要用access实现,截图只是用excel示意一下 展开
 我来答
匿名用户
2018-07-06
展开全部

首先读取表1中的数据到下拉框,在点击下拉框的事件中,在表2使用 Like 读取数据将可以了。下面是VB做的代码,你可以参考:

Dim db As New ADODB.Connection, RS As New ADODB.Recordset

Private Sub Combo1_Click()
Text1.Text = ""
Call KKK(db)
    RS.Open "select * from 表2 Where A Like '%" & Combo1.Text & "%'", db, 2, 2
    Do While Not RS.EOF
        Text1.Text = Text1.Text & RS!A & vbCrLf
    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
db.Close
Set db = Nothing
End Sub

Private Sub Form_Load()
Combo1.Clear
Call KKK(db)
    RS.Open "select * from 表1", db, 2, 2
    Do While Not RS.EOF
        Combo1.AddItem RS!A
    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
db.Close
Set db = Nothing
End Sub

Private Sub KKK(db)
db.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\AA.accdb;Jet OLEDB:Database Password=;"
db.Open
End Sub

回复 正好挡住我: 

我不知道你复制到哪里不能用?已经给你说过了,这是VB程序代码,你复制到其他程序当然不能用了。

找出来你是否需要利用控件列出表1与表2的对应关系,这个也非常简单,但我只能给你用VB做一个,需要回复我。

可能你要的是这个效果吧?

新综网
2018-07-03 · 超过42用户采纳过TA的回答
知道小有建树答主
回答量:367
采纳率:40%
帮助的人:66.1万
展开全部
like函数
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
清风吧吧啦
2018-07-03 · TA获得超过5937个赞
知道大有可为答主
回答量:3426
采纳率:68%
帮助的人:751万
展开全部
这个好做,你发文件过来,帮你做查询。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式