在DATA控件的属性栏里不是有个Exclusive这个属性吗?(True/False)
你看看是不是你所要的功能?
关注!!!

解决方案 »

  1.   

    用联机手册查oprecordset/database 的参数
    因该有有关Exclusive就是他了
      

  2.   

    我说的是在ADO中用命令怎么实现独占连接!??????????
    有谁知道的??????????????
      

  3.   

    通常,你不能锁定整个数据库。你只能在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
        
    对每一个用户执行这个操作
      

  4.   

    对不起,刚才理解错了。你用下面这个就可以:
    cnn1.Mode = adModeShareExclusive
    cnn1是你的连接对象。
      

  5.   

    谢谢大侠!我按照您的上一个方法怎么老是出错?
    假如我在D盘根目录下有一个数据库njue.mdb,该怎么写原代码?(按上面的方法!)
    谢谢,请指教!