VB6 VBA asp的RecordSet.GetRows方法

1.VBA调用ADO执行SQL语句获取查询结果，通过RecordSet.GetRows方法获取到的数组是行列转置后的数组。

2.如果通过application.transpose对RecordSet.GetRows方法获取到的数组再进行转置，如果报错“运行时错误'438'：对象不支持该属性或方法”，原因是数组里有null。

VBA内置transpose函数有三个限制：一是数组值不能是null；二是行数不能超过65536行；三是数组中的每个元素不能超过255字符。否则不能转置。

3.解决问题很简单，一是在执行sql查询语句的时候，对相关字段增加类似 iif(isnull(字段),'',字段)的处理；二是将GetRows得到的数组，把所有数组元素用isnull判断，如果是null，变成空字符串即可；三是不用内置函数，用自定义转置函数。如下：

for each n in rs.getrows
if isnull(n) then stop
next  n

'网友提供的自定义转置函数
Private Function transpose(drr)
Dim arr(), L1&, U1&, L2&, U2&
L1 = LBound(drr): U1 = UBound(drr)
L2 = LBound(drr, 2): U2 = UBound(drr, 2)
ReDim arr(L2 To U2, L1 To U1)
For i = L1 To U1
    For j = L2 To U2
        arr(j, i) = drr(i, j)
    Next
Next
transpose = arr
End Function

4.题外话。在执行了copyfromrecordset后，数据库的指针当前已经处于记录尾端位置了。这时候getrows操作，没有记录肯定出错。需要在语句前面加上一句rs.movefirst就可以了。