access2013两个表之间模糊查找
比如:在表1输入搜索关键词,在表2中模糊查找包含关键词的所有数据找出来后都列到查询表中这个要用access实现,截图只是用excel示意一下...
比如:在表1输入搜索关键词,在表2中模糊查找包含关键词的所有数据找出来后都列到查询表中这个要用access实现,截图只是用excel示意一下
展开
3个回答
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做一个,需要回复我。
可能你要的是这个效果吧?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询