当其他人打开表时，如何从另一台计算机中选择打开的表

Question

当其他人打开表时，如何从另一台计算机中选择打开的表

使用VB 6和Access数据库

当其他人或其他软件打开桌子时，我想从另一台计算机中选择该表。

代码

Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & databasetext.Text & ""
Cn.Open

cmdCardEvent.ActiveConnection = Cn
cmd.ActiveConnection = Cn

sql2 = "select * from table"

If rsCardEvent.State = 1 Then rsCardEvent.Close
rsCardEvent.Open sql2, Cn, adOpenStatic, adLockOptimistic
cmdCardEvent.CommandText = sql2
Set rsCardEvent = cmdCardEvent.Execute


Cn.Close

“＆amp; databasetext.Text＆amp;”= textbox（数据库路径）

但它显示错误，“无法使用;文件已经使用“

我想访问该表，如果它已打开。

需要VB 6 CODE帮助。

Answer 1

如果我正确地阅读你的代码，你已经打开了一个记录集，并且应该有你想要的数据

rsCardEvent.Open sql2, Cn, adOpenStatic, adLockOptimistic

当你尝试执行命令obejct时，你仍然有一个开放的记录集并得到错误。