必须在vb6中更新数据表和记录集

我目前正在使用一个带有adodb连接的表单上的数据表，该连接运行良好。但是，它不会检测到要更新的更改。我想放两个记录集来比较这两个，因为我需要列名和更改的列信息（新旧），所以我在记录集中放了一列

---

如果有人可以鞋我如何做循环或任何需要得到这个完成请

我不确定是否能准确地解决您的问题。。。如果要向记录集中添加一列，该列只能在代码中更新（即，由于它不是来自数据库而无法写回数据库），则可以使用MsDataShape OLE DB提供程序及其

SHAPE…APPEND

语法，例如

Sub MSDataShape_AddNewCol()

  Dim rs As ADODB.Recordset
  Set rs = CreateObject("ADODB.Recordset")
  With rs
    .ActiveConnection = _
        "Provider=MSDataShape;" & _
        "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Tempo\My_Access_DB.mdb"

    .Source = _
        "SHAPE {" & _
        " SELECT ExistingField" & _
        " FROM ExistingTable" & _
        " ORDER BY ExistingField" & _
        "} APPEND NEW adNumeric(5, 4) AS NewField"

    .LockType = adLockBatchOptimistic

    .Open

    Dim i As Long
    For i = 0 To .RecordCount - 1
      .Fields("NewField").Value = Round(.Fields("ExistingField").Value, 4)
      .MoveNext
    Next

    rs.Save "C:\rs.xml", adPersistXML  ' 

  End With
End Sub

---

请发布一些示例代码，以便我们能够理解您所说的内容。谢谢。