如何手动将新记录正确添加到空记录集中? [英] How to properly add new records to empty recordset manually?

问题描述

如何将新记录添加到新的 &手动清空 ADODB.Recordset?

How to add new records to a new & empty ADODB.Recordset manually?

现在，我正在做的事情不起作用:

Right now, here's what I'm doing that isn't working:

Dim rs as ADODB.Recordset
rs.Open
Dim Fields() as String
Fields(0) = "SomeFieldName"

Dim Values() as String
Value(0) = "SomeValue"

rs.AddNew Fields, Values

推荐答案

就地:

rs.AddNew "SomeFieldName", "SomeValue"

或就地多个字段

rs.AddNew Array("SomeFieldName", "AnotherFieldName"), Array("SomeValue", 1234)

或者使用单独的变量

Dim Fields As Variant
Dim Values As Variant

Fields = Array("SomeFieldName")
Values = Array("SomeValue")
rs.AddNew Fields, Values

这是为上面的 AddNew 示例合成记录集的方法

This is how to synthesize a recordset for the AddNew sample above

Set rs = new Recordset
rs.Fields.Append "SomeFieldName", adVarChar, 1000, adFldIsNullable
rs.Fields.Append "AnotherFieldName", adInteger, , adFldIsNullable
rs.Open

我通常使用辅助函数 CreateRecordset，如 这个答案.

I'm usually using a helper function CreateRecordset as seen this answer.

2018 年 11 月 12 日更新

您还可以使用字段索引作为序数而不是字段名称作为字段数组的字符串，如下所示

You can also use field indexes as ordinals instead of field names as strings for the fields array like this

rs.AddNew Array(0, 1), Array("SomeValue", 1234)

这篇关于如何手动将新记录正确添加到空记录集中?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！