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

lrlxxqxa

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

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

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

复制代码

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

lrlxxqxa

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

1. Public Sub DAO独占打开连接()
   
2.    
   
3.     Dim dbs As DAO.Database
   
4.     Dim rst As DAO.Recordset
   
5.    
   
6.     Set dbs = OpenDatabase("D:\My Documents\db1.mdb", True)   ' 第二个参数设为真，即独占
   
7.     Set rst = dbs.OpenRecordset("tbl1")
   
8. 
   
9. End Sub
   
10. 
    
11. Public Sub ADO独占打开连接()
    
12. 
    
13.     Dim Cnxn As ADODB.Connection
    
14.     Dim rstTitles As ADODB.Recordset
    
15.     Dim strCnxn As String
    
16. 
    
17.     Set Cnxn = New ADODB.Connection
    
18.     strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\db1.mdb;Mode=Share Exclusive;"
    
19. '    Cnxn.Mode = adModeShareExclusive        ' 上面的Mode=Share Exclusive规定了独占连接，或者在这里设置Mode属性也可
    
20.     Cnxn.Open strCnxn
    
21.    
    
22.     Set rstTitles = New ADODB.Recordset
    
23.     rstTitles.Open "tbl1", Cnxn, adOpenKeyset, adLockOptimistic
    
24.    
    
25. End Sub

复制代码

wxp20032003

mark
支持楼主，写的很好，赞一个