关于Recordset.fields.append的问题，请帮忙看看

[singkwok]

我想给表2001中加入一个字段“test”;用以下的代码出错，请问怎么可以解决呢?
Dim adoCon As New ADODB.Connection
Dim adoRec As New ADODB.Recordset
Dim strSQL As String
Private Sub Form_Load()
adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ToDBF;Initial Catalog=C:\"
adoRec.Open "select * from 2001", adoCon, adOpenDynamic, adLockOptimistic, 1
adoRec.Fields.Append "test", adChar
End Sub

[singkwok]

大哥，大姐帮我看看

[wamlaw]

Append 方法


将对象追加到集合中。如果集合是 Fields，可以先创建新的 Field 对象然后再将其追加到集合中。

语法

collection.Append object

fields.Append Name, Type, DefinedSize, Attrib

参数

collection 集合对象。

fields Fields 集合。

object 对象变量，代表所要追加对象。

Name 字符串，新 Field 对象的名称，不得与 fields 中的任何其他对象同名。

Type DataTypeEnum 类型，其默认值为 adEmpty。新字段的数据类型。

DefinedSize 可选，长整型，指示新字段的定义大小（以字符或字节为单位）。该参数的默认值源于 Type （默认的 Type 为 adEmpty，默认的 DefinedSize 未指定）。

Attrib 可选，FieldAttributeEnum，其默认值是 adFldDefault。指定新字段的属性。如果该值未指定，字段将包含源于 Type 的属性。

参数

在集合上使用 Append 方法可将对象添加到该集合，此方法仅在 Command 对象的 Parameters 集合上有效。在将 Parameter 对象追加到 Parameters 集合中之前必须设置其 Type 属性。如果选定了变长数据类型，则必须将 Size 属性设置为大于零的值。

通过对参数作出说明，可以最大程度地减少对提供者的调用，进而在使用存储过程或参数化查询时提高性能，但必须了解与所要调用的存储过程或参数化查询相关联的参数属性。使用 CreateParameter 方法可创建具有适当属性设置的 Parameter 对象，而使用 Append 方法则可将它们添加到 Parameters 集合。这样可以不必调用参数信息的提供者而设置和返回参数值。如果写到不提供参数信息的提供者，则必须使用该方法手工填写 Parameters 集合以便能够完全使用参数。

字段

如果在调用 fields.Append 方法前您没有设置 CursorLocation 属性，当使用 Open 方法打开 Recordset 时，CursorLocation 将被自动设置为 adUseClient。

对打开的 Recordset 或已设置 ActiveConnection 属性的 Recordset，调用其 fields.Append 方法将引发运行时错误。只能将字段追加到没有打开并且尚未连接到数据源的 Recordset。一般地，通过 CreateRecordset 方法或通过将新 Recordset 对象显式赋给对象变量所创建的都是新 Recordset 对象。

[nik_Amis]

up

[topsir]

其实你完全没有必要用这咱方法吗?直接用SQL中的Alter table命令不是也可以增加字段吗?!
试一试看.