以下是删除按钮的功能代码,请问:第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
帮帮忙吧!很急呀!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
adLockOptimistic 是 LockType 属性值
adLockOptimistic 开放式记录锁定(逐条)。提供者使用开放式锁定,只在调用 Update 方法时锁定记录。
Sorry!我没有msdn
在这里这两个属性是必须的吗?