以下是删除按钮的功能代码,请问:第11行的adOpenKeyset, adLockOptimistic是什么意思?
帮帮忙吧!很急呀!Private Sub Cmd_del_Click()
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)    
    If Adodc1.Recordset.EOF = False Then
          c = MsgBox("您确认要删除纪录吗?", 17, "删除提示信息")
                 If c = vbOK Then
                      Adodc1.Recordset.Delete     
                      Adodc1.Refresh
                         Call main
                            adoRs.Open "select * from tb_KCXX where KC_name='" + Text1(2).Text + "' and KC_UNIT ='" + Combo1.Text + "' and KC_Price=" & Val(Text1(4).Text) & "", adoCon, adOpenKeyset, adLockOptimistic
                                 If adoRs.RecordCount > 0 Then
                                    Dim SNum As Integer
                                    SNum = Val(adoRs.Fields("KC_Num")) + Val(Text1(3).Text)
                                    Set adoRs = adoCon.Execute("UPDATE tb_KCXX SET KC_Num='" + Str(SNum) + "' where KC_name='" + Text1(2).Text + "' and KC_UNIT ='" + Combo1.Text + "' and KC_Price=" & Val(Text1(4).Text) & "")
                                 End If
                         adoCon.Close
                      
                         For i = 0 To 5
                           Text1(i).Text = ""
                         Next i
                    Cmd_del.Enabled = False
                 End If
     Else
               MsgBox "当前数据库中已经没有可删记录", 64, "提示信息"
     End If
     Call TRefresh                                
End Sub

解决方案 »

  1.   

    adOpenKeyset 是 CursorType 属性值
    adLockOptimistic 是 LockType 属性值
      

  2.   

    一个是Cursor 类型(键集驱动),一个是锁类型(乐观锁),
      

  3.   

    看看MSDNadOpenKeyset 键集游标。尽管从您的记录集不能访问其他用户删除的记录,但除无法查看其他用户添加的记录外,键集游标与动态游标相似。仍然可以看见其他用户更改的数据。 
    adLockOptimistic 开放式记录锁定(逐条)。提供者使用开放式锁定,只在调用 Update 方法时锁定记录。
      

  4.   

    多谢各位!!!
    Sorry!我没有msdn
    在这里这两个属性是必须的吗?