ADODB从Excel 2013连接到.mdb文件

Question

我希望有人能帮帮忙。 我已经开发了一个Excel程序包，该程序包通过连接字符串“ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = \\”更新了.mdb访问数据库。数据库是共享的。 我有一个Mitel电话系统，该系统每10秒钟左右检查一次数据库，以检查是否有新条目。 数据库更新为

Dim q As New ADODB.Command
Dim cn As New ADODB.Connection
Dim SQL As String
SQL = "INSERT INTO tbl1LinkAuths (DateTimeAdded, DateEntered, AddedBy, REG,                                    OrderNo,AccountNumber, CentreNumber, EmailAddress, Callback, "
SQL = SQL & "MakeText, "...............

cn.Open cnDB
q.ActiveConnection = cn
q.CommandText = SQL
'Excecute the above SQL to insert the new job record
q.Execute


Set rs = Nothing
Set cn = Nothing

Dim db As Access.Application
Set db = New Access.Application
db.Application.Visible = False
db.OpenCurrentDatabase "\\kffcis02\VWM Share\TelephonyDB.mdb", False
db.CloseCurrentDatabase

INSERT语句可以很好地更新数据库，但是我发现必须打开和关闭数据库才能及时更新数据库。

一次大约有5个人大量使用此软件包，每分钟输入2个条目。

它会出现错误“文件已在使用中”，尤其是在很多时候使用excel 2013时。 我认为这是因为每次更新时都必须打开/关闭数据库。

有人知道我可以更快地更新数据库的另一种方式吗？ 我已经有了实际的数据库设置来每秒更新ADODB并共享数据库。

我现在很绝望，因为这个程序包已经上线了。 在测试期间，我没有任何问题，因为使用它的人不多，而且没有人在Office 2013中使用。

Answer 1

驱动程序错误：假设对ActiveX数据对象的引用...

dim conn as  adodb.connection    'module level variable
const DBNAME = "your name here"
const DBLOC = "Your dir here"

 Sub UpdateDb()

dim sql as string
openconnectionroutine
sql = "INSERT INTO tbl1LinkAuths (DateTimeAdded, DateEntered, AddedBy, "
'etc
'if you want to check it worked : otherwise ditch numrecs
 dim numrecs as long
conn.execute sql, numrecs
msgbox "You added " & numrecs & " records",vbokonly,"Done"

end sub

sub Openconnectionroutine() 
if conn is nothing then set conn = new adodb.connection
if conn.connectionstring = "" then
    conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
                 "Dbq=" & DBNAME & ";" & _
                 "DefaultDir=" & DBLOC & ";" & _
                 "Uid=Admin;Pwd=;"
 end if
 if conn.state = adstateopen then
 else                
   conn.Open
 end if

End sub