通常,你不能锁定整个数据库。你只能在RecordSet上,锁定纪录(实际为该纪录所在的页)。如果你一定要锁定整个数据库,你只能这样: 1、每个能登录数据库的用户,都必须拥有administrator权限; 2、用户登录后,操作Catalog对象的User或Group属性,用SetPermissions方法。 例如: Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim lngPerm As Long ' Opens a connection to the northwind database ' using the Microsoft Jet 4.0 provider cnn.Provider = "Microsoft.Jet.OLEDB.4.0" cnn.Open "data source=c:\Program Files\" & _ "Microsoft Office\Office\Samples\Northwind.mdb;" & _ "jet oledb:system database=" & _ "c:\Program Files\Microsoft Office\Office\system.mdw" Set cat.ActiveConnection = cnn ' 去除用户admin对数据库db1的所有权限 cat.Users("admin").SetPermissions "db1", adPermObjDatabase, _ adAccessRevoke, adRightFull
因该有有关Exclusive就是他了
有谁知道的??????????????
1、每个能登录数据库的用户,都必须拥有administrator权限;
2、用户登录后,操作Catalog对象的User或Group属性,用SetPermissions方法。
例如: Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim lngPerm As Long ' Opens a connection to the northwind database
' using the Microsoft Jet 4.0 provider
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "data source=c:\Program Files\" & _
"Microsoft Office\Office\Samples\Northwind.mdb;" & _
"jet oledb:system database=" & _
"c:\Program Files\Microsoft Office\Office\system.mdw" Set cat.ActiveConnection = cnn ' 去除用户admin对数据库db1的所有权限
cat.Users("admin").SetPermissions "db1", adPermObjDatabase, _
adAccessRevoke, adRightFull
对每一个用户执行这个操作
cnn1.Mode = adModeShareExclusive
cnn1是你的连接对象。
假如我在D盘根目录下有一个数据库njue.mdb,该怎么写原代码?(按上面的方法!)
谢谢,请指教!