如何使Access的链接表独占链接后台？

作者：绿色风分类：时间：2022-08-18 浏览：121

楼主
lrlxxqxa

Q：如何使Access的链接表独占链接后台？

A：设置链接表的Attributes属性为dbAttachExclusive即可

CurrentDb.TableDefs("tbl1").Attributes = dbAttachExclusive ' 取消独占参数：dbSystemObject

Access使用链接表的前后台形式，默认后台是共享的，执行代码后，前台打开了链接表时，别人就不能再链接或打开后台。这时打开链接表，后台数据库就不会生成ldb临时文件了，这一点在需要保护后台数据时很有作用。

2楼
lrlxxqxa

不用链接表，直接用代码也可以独占链接后台数据库：

Public Sub DAO独占打开连接()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = OpenDatabase("D:\My Documents\db1.mdb", True) ' 第二个参数设为真，即独占
Set rst = dbs.OpenRecordset("tbl1")
End Sub
Public Sub ADO独占打开连接()
Dim Cnxn As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim strCnxn As String
Set Cnxn = New ADODB.Connection
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\db1.mdb;Mode=Share Exclusive;"
' Cnxn.Mode = adModeShareExclusive ' 上面的Mode=Share Exclusive规定了独占连接，或者在这里设置Mode属性也可
Cnxn.Open strCnxn
Set rstTitles = New ADODB.Recordset
rstTitles.Open "tbl1", Cnxn, adOpenKeyset, adLockOptimistic
End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表