'定义对象
    Dim DBConnection  as ADODB.Connection
    Dim DBRecordset as ADODB.Recordset
    
    Set DBConnection = New ADODB.Connection
    Set DBRecordset = New ADODB.Recordset
    
    DBConnection.Open strConnection
    
    With DBRecordset
        '初始化一些属性
        .CursorLocation = adUseClient   '游标在客户端
        .LockType = adLockOptimistic    '关键字锁
        .CursorType = adOpenStatic      '静态游标
        Set .ActiveConnection = DBConnection
        .Source = "select * from t_records where id=1"
        '打开数据集
        .Open
        If .EOF And .BOF Then
        '如果没有查到就新增
            .AddNew
        End If
        
        '赋值 
        .Fields!Title = "hello"
        .Fields!RType = 1
        '更新数据
        .Update
        '关闭数据集
        .Close
    End With

解决方案 »

  1.   

    这个ADO好像不能限制,如果想在自己修改时不让别人打开,那只能自己加字段,再进行判断了。
      

  2.   

    可以远程进入数据库服务器进行操作,win2000可以做!
      

  3.   

    看看下面的应该就知道怎么办了,改成动态游标应该就可以了.游标有四种类型:
    adOpenForwardOnly --只向前游标,在服务器端,记录集指针只能向前移动,是最节约资源的游标,也是默认的游标.
    adOpenDynamic--动态游标,在服务器端,是一组书签,只有客户移动到指定记录时才读取当前记录,可时时反应当前记录的修改情况,也是最昂贵的。
    adOpenKeyset ---关键字游标,在服务器端,与动态差不多,只是不能反应其它用户的新增只能反应修改。
    adOpenStatic---静态游标唯一个在客户端的,其实是服务器端的记录集的一个副本,节约资源。锁类型也是四种: 
           adLockReadOnly--只读锁,不能修改记录集,最节约资源。
           adLockPessimistic--悲观锁,一旦读取,其它用户将不能用写方式打开,仅能用于服务器端游标,很昂贵,使用不当,会有死锁产生,慎用。
            adLockOptimistic---乐观锁,与悲观锁的差别在于只有当前记录被编辑时才上锁,其它时间别的用户还可以用写方式打开。
            adLockBatchOptimistic---批处理锁,可以和客户端游标配合使用,可对记录进行批修改,在完成后一起提交或取消提交,一般用这个比较方便。ps:关于游标还有一个属性CursorLocation---游标位置,就是客户端和服务器.