如何使链接表独占链接后台

时　间:2010-06-09 10:52:29
作　者:t小雨   ID：4598  城市：柳州
摘　要:使链接表独占链接后台
正　文:

'使链接表独占链接后台
'Access使用链接表的前后台形式，默认后台是共享的，那么能否独占后台的？
'即自己在前台打开了链接表时，别人就不能再链接或打开后台。
'答案是肯定的，只要设置链接表的Attributes属性为dbAttachExclusive即可，代码：

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

'这时打开链接表，后台数据库就不会生成ldb临时文件了，这一点在需要保护后台数据时有一点点作用哦！

'另外附上不用链接表，直接用代码独占链接后台数据库的方法

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