如何使链接表独占链接后台
时 间: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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)