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 ‘将记录集的数据都追加到临时记录集的