关于ORACLE数据库表被锁的问题

Question

Dim rstEntry As New ADODB.RecordsetrstEntry.Open "SELECT phone FROM tkf_agent_info WHERE phone = '" & strDeviceNumber & "'", _
                   cnncallcenter, adOpenForwardOnly, adLockOptimistic, adCmdTextIf rstEntry.RecordCount <> 0 Then
    rstEntry!phone = Null 
    rstEntry.Update 
    Set rstEntry = Nothing
End If
Set rstEntry = Nothing这种打开一条记录并对之进行修改的情况下可能产生表死锁吗?
请各位大侠给点意见,谢谢!!!

Answer 1

Dim rstEntry As New ADODB.Recordset
rstEntry.CursorLocation=adUseClient
rstEntry.Open "SELECT phone FROM tkf_agent_info WHERE phone = '" & strDeviceNumber & "'", _
                   cnncallcenter,AdOpenKeyset,adLockOptimisticIf (rstEntry.bof and rstEntry.eof)<>true Then
    rstEntry!phone = Null 
    rstEntry.Update 
End If
rstEntry.close
set rstEntry =nothing