我正在尝试将列添加到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 "eddY",adDate
.Open
End If
End With
End If
我希望在表中添加其他列。但是,我可以看一下桌子,看看它们不在那儿。关闭记录集后,我可以看到。它试图将列附加到它。但是,我打开记录集备份,并且那些列从表中消失了。当我说它们出现时,是指使用microsoft Visual Basic的调试系统。它基本上有一个部分,其中显示了变量,而对于对象,则显示了其中的项目以及更多信息。所以我知道它会尝试。但是我似乎无法保留它。我搞砸的任何想法或想法都很棒。