ADO常用方法——Append

功能：将对象追加到集合中，如果集合是fields，可以先创建field对象然后再将其追加到集合中

格式：1.collection.append object

Collection:集合对象

Object：对象变量，代表所要追加的对象

例：

Dim objcmd as new command

Dim Parm as new Parameter

‘创建新的Parameter对象

Set Parm=objCmd.creadParameter(“用户名”,adVarChar,adParamInput,10)

‘将Parm追加到Parameters集合中

Objcmd.Parameters.append Parm

2.fields.Appendname,type,definedsize,attrib

Name:字符串，新field对象名称，不得与fields中的任何其它对象同名

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

Definedsize：可选，指示新字段定义大小，默认definedsize未指定

Attrib：可选，指定新字段属性，默认值adflddefault

注：1.在调用fields.append方法前没设置cursorlocation属性，当使用open方法打开recordset时，cursorlocation将被自动设置为aduseclient。2.对打开的recordset或已设置actionconnection属性的recordset，调用fields.append方法将引发运行时错误

例：Dim objDataSource as new recordset

Dim obiRs as new recordset

Dim intrecord as integer

For intrecord=0 to objRs.fields.count-1

objDataSource.fields.append objRs.fields(intrecord).name,adVarChar,_

objRs.fields(intrecord).definedSize

Next ‘将记录集的数据都追加到临时记录集的

6楼lzh1110昨天 08:27

嗯，不错！继续加油！李志华。

Re: song_mou_xia昨天 11:28

回复lzh1110n嘿嘿！！好的

5楼hejingyuan6昨天 08:07

学习了，加油

Re: song_mou_xia昨天 08:08

回复hejingyuan6n恩！一起加油！！

4楼lishehe昨天 08:07

加油

3楼liujiahan629629昨天 08:04

不错不错！

2楼SmithLiu328昨天 07:52

ping back from :http://blog.csdn.net/SmithLiu328

1楼lfmilaoshi昨天 22:43

用中学。。。。米老师

Re: song_mou_xia昨天 23:20

回复lfmilaoshin是的，用的时候不懂就去学了