Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-表

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

时 间: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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助