小编ruc*_*k64的帖子

我正在尝试将列添加到 VB6 中的 ADO 记录集。我只想在表的末尾添加 4 列。这是一个我们经常使用的表，但我们经常删除其中的所有数据，并用我们想要的下一个信息重新填充它，基本上只是将它用作临时保存数据的一种手段。

我发现因为它是 ADO，所以我应该能够使用以下内容：

 with rs
     .fields.append "column name", "enum dataType"
 end with

从阅读和实验来看，似乎必须关闭记录集才能添加列。

这是我的代码：

rs.Open "MeterReads", DataEnvironment7.cnPTracker, adOpenStatic, adLockOptimistic, adCmdTable
' 2019-11-4 Adding in a section to accomadate for days to depeletion
If gbEnableD2D Then
    bExists = False
    With rs
        For Each fField In rs.Fields
            If UCase(fField.Name) = UCase("eddB") Then
                bExists = True
                Exit For
            End If
        Next
        If bExists = False Then
            .Close
            .Fields.Append "eddB", adDate
            .Fields.Append "eddC", adDate
            .Fields.Append "eddM", adDate
            .Fields.Append …