Question

VB+ACCESS查询功能不能实现，还总提示表“|”已被别的用户以独占方式打开...

If Nz(Me.srch) <> "" Then
If IsNull(DLookup("mc", "MAIN", "mc LIKE '*" & Me.srch & "*'")) Then
MsgBox "找不到包含[" & Me.srch & "]的公司"
Me.srch = ""
Exit Sub
End If

Me.RecordSource = "select * from MAIN where mc LIKE '*" & Me.srch & "*'"
Else
Me.RecordSource = "MAIN"
End If
Me.srch = ""
Set Me.sub.Form.Recordset = Me.Recordset
Me.Requery
'Me.sub.SetFocus
Me.sub.Form.mc.SelLength = 0
输入内容一点查找就回出现

Answer 1

两种可能：
1、你现在用access打开这个数据库了，并且是以独占方式打开或者打开了这个表的设计页面
2、你的连接的Mode 设为独占方式 adModeShareExclusive，在之前一个连接关闭之前，不能再打开新的连接，这个需要你自己跟踪检查一下

追问

刚接触这个，真看不懂，最好告诉我怎么操作。谢谢
这个表的设计页面我没有打开

追答

把access关掉，然后在你的vb代码里里找“adModeShareExclusive”这个词，找到的话，把它所在的这一行代码删掉即可

追问

这是所有的代码，没有您说的那个

Answer 2

LZ你的数据库是不是开着的= =如果是请关闭……

追问

刚接触这东西，怎么关？

追答

你就看你的Access文件是不是开着的，如果是关了再测试一下

追问

关了，测试无数遍了，全是一样的

追答

额= =那把有关Connection对象和Recordset对象的代码让我看一下……
估计是那里的问题

追问

这两个再哪？？？呵呵

追答

汗= =|你是用控件的方法么？如果是的话麻烦把控件的属性截图给我一下

追问

是这个吗？

追答

不是，是属性框，这个是代码框

追问

实在不知道，要不我把数据库给您，您帮我改一下？？？

追答

汗= =问题是出现这样的情况根本就是不是数据库的问题……懒得说了，企鹅1002086705有啥事上边说去