2007-02-01 16:06:01| 分类: Visual Basic | 标签: |举报 |字号大中小 订阅
ADO对象的Fields.Append方法建立一个临时表
Dim rs As Recordset
Set rs = New Recordset
rs.Fields.Append 字段名称, 字段类型, 字段长度
例子
For lcount = 0 To Rs.Fields.Count - 1
objrs.Fields.Append Rs.Fields(lcount).Name, Rs.Fields(lcount).Type, Rs.Fields(lcount).DefinedSize
Next
评论