将列附加到 ADO 记录集

Question

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

我发现既然是 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 "eddY", adDate
            .Open
        End If
    End With
End If

我希望在我的 table 中添加额外的列。但是，我可以查看 table 并发现它们不在其中。我可以看到我已经关闭了记录集。它试图将列附加到它。但是，我打开备份的记录集，这些列从 table 中消失了。当我说它们出现时，我的意思是使用 Microsoft Visual Basic 的调试系统。它基本上有一个部分显示您的变量，对于对象，它向您显示内部项目和更多信息。所以我知道它会尝试。但我似乎无法让它保留它。任何关于我搞砸的想法或想法都会很棒。

Answer 1

如果要修改数据库中 table 的结构，可以使用 Microsoft ADO Ext. 6.0 用于 DDL 和安全 库（从项目菜单 > 参考将其添加到您的项目）。您可以通过循环访问 Catalog 对象的 Tables 集合来找到要修改的 table。首先创建目录对象：

Dim objCatalog As ADOX.Catalog

' Create and Open Catalog
Set objCatalog = New ADOX.Catalog
Set objCatalog.ActiveConnection = DataEnvironment7.cnPTracker

我假设 DataEnvironment7.cnPTracker 是您当前的 ADO Connection 对象。

然后遍历表：

Dim objTable As ADOX.Table
Dim sTableName As String

sTableName = "Customers"

' Check if Table exists
For Each objTable In objCatalog.Tables

    If objTable.Name = sTableName Then
        ' Table found, return reference
        Exit For
    End If

Next

然后，一旦您有了 table，您就可以遍历 Columns 集合以查看它是否存在：

Dim objColumn As ADOX.Column
For Each objColumn In objTable.Columns

最后，如果找不到该列，可以添加：

Set objColumn = New ADOX.Column
With objColumn
    .Name = "FieldName"
    .DefinedSize = 200
    .Type = adVarChar
End With

' Append the new field
objTable.Columns.Append objColumn

Answer 2

一种方法是在打开记录集时通过修改检索数据的方式来添加列。不要将 rs.Open 与 adCmdTable 一起使用，而是将 adCmdText 与 SELECT 语句一起使用。

SELECT *, NULL AS eddB, NULL AS eddC, NULL AS eddM, NULL AS eddY FROM MeterReads

Answer 3

with rs
     .fields.append "column name", "enum dataType"
 end withrs.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 "eddY", adDate
            .Open
        End If
    End With
End If

将列附加到 ADO 记录集

Append columns to an ADO Recordset

vb6

ado