Vb6 使用记录集更新表

我有一个记录集

rcdDNE

。我想通过对现有记录集设置一些条件来更新回收。但是我的表没有更新。你们能告诉我哪里做错了吗

    Dim lngRecCount As Long

frmDNELoad.lblStatus.Caption = "Updating records in Reclamation Table..."
frmDNELoad.Refresh
CqDate = Format(Date, "dd/MM/yyyy")

Set rcdreclamation = New ADODB.Recordset
With rcdreclamation
    .ActiveConnection = objConn
    .Source = "SELECT * FROM T_DATA_reclamation"
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open
End With

rcdDNE.MoveFirst

Do Until rcdDNE.EOF
With cmdDNEFRC
    .ActiveConnection = objConn
    .CommandText = "update t_data_reclamation set ClaimStatus = 'C',DateClosed = 'CqDate', Audit_LastUpdated = 'CqDate', Audit_UserAdded = 'SYSTEM' where RTProvided = '" & rcdDNE("AccountNbr") & "'"
    .CommandType = adCmdText
End With

rcdDNE.MoveNext
Loop

---

除非您忘记将其放入示例代码中，否则您将丢失对命令对象with块中的

Execute

函数的调用

With cmdDNEFRC
  .ActiveConnection = objConn
  .CommandText = "update t_data_reclamation set ClaimStatus = 'C',DateClosed = 'CqDate', Audit_LastUpdated = 'CqDate', Audit_UserAdded = 'SYSTEM' where RTProvided = '" & rcdDNE("AccountNbr") & "'"
  .CommandType = adCmdText
  .Execute 'dont forget execution 
End With

此外，在将数据写入表时，建议使用连接对象

beginters

和

CommitTrans

函数，以防在写入数据时出现错误，而不会导致数据不一致