将sql结果（含有空值null）赋值给数组出错时如何解决

香苦咖啡

将sql结果（含有空值null）赋值给数组出错时如何解决
    Conn.Open strConn    '打开数据库链接
    Rst.Open strSQL, Conn, 1, 3    '执行查询，并将结果输出到记录集对象
'    Sheets(kcbh).Range("BA1:BA" & X).ClearContents
    If Rst.RecordCount > 0 Then
    ReDim Frr1(1 To 9, 1 To Rst.RecordCount)
    Frr1 = Rst.GetRows

魂断蓝桥

试了一下。
Frr1 = Rst.GetRows 这步不会出错。

[a1].Resize(3, 1) = Application.Transpose(arr) 这个会出错

如果实在要这么用，用循环吧。

xyxcc177

将sql语句中空值处理,让null=""
sql = "select iif([a] is null,' ',a) from [DATA$]"

香苦咖啡

还是一样，非常奇怪，
Rst.Open strSQL, Conn, 1, 3    '执行查询，并将结果输出到记录集对象
执行后没有问题 但是无论下一句代码是什么都会出错

xyxcc177

香苦咖啡 发表于 2018-4-23 16:06
还是一样，非常奇怪，
Rst.Open strSQL, Conn, 1, 3    '执行查询，并将结果输出到记录集对象
执行后没有 ...

如果不涉及到机密，最好把文件传上来

ftgli

1. Set oRS = Cn.Execute(strSql)
   
2.     vRs = oRS.GetRows
   
3.     ReDim vData(1 To UBound(vRs, 2) + 1, 1 To UBound(vRs) + 1) '如果要增加数据库字段标题,则(1 To UBound(vRs, 2) + 2, 1 To UBound(vRs) + 1)
   
4.     oRS.MoveFirst
   
5.     For nRow = 0 To UBound(vRs, 2)
   
6.         For nCol = 0 To UBound(vRs)
   
7.             'If nRow = 0 Then vData(1, nCol + 1) = oRS.Fields(nCol).Name '加数据库字段标题
   
8. '            vData(nRow + 2, nCol + 1) = vRs(nCol, nRow) '数据
   
9. '            vData(nRow + 2, nCol + 1) = IIf(IsNull(vData(nRow + 2, nCol + 1)), "", vData(nRow + 2, nCol + 1))'将null转空值
   
10.             vData(nRow + 1, nCol + 1) = vRs(nCol, nRow) '数据
    
11.             vData(nRow + 1, nCol + 1) = IIf(IsNull(vData(nRow + 1, nCol + 1)), "", vData(nRow + 1, nCol + 1))
    
12.         Next
    
13.     Next

复制代码

看见星光

transpose有很多限制啊；最好是新开个数组循环转过吧，比transpose速度还会快点。

香苦咖啡

测试 错误和数组没有关系
执行完Rst.Open strSQL, Conn, 1, 3 是有结果的 但是在f8就出错了

香苦咖啡

xyxcc177 发表于 2018-4-23 16:14
如果不涉及到机密，最好把文件传上来

已经上传，麻烦再帮忙看看

ivccav

很简单的问题，transpose不可以有Null，且行数不能超过65536，
这种问题直接定义一个函数来转就行了，速度比Excel自带的函数还要快很多！

且GetRows生成的数组不符合我们习惯的思维，本来就需要翻转一次，自定义函数，快速稳定。

Function transpose(drr)
    Dim brr(), L1&, U1&, L2&, U2&
    L1 = LBound(drr): U1 = UBound(drr)
    L2 = LBound(drr, 2): U2 = UBound(drr, 2)
    ReDim brr(L2 To U2, L1 To U1)
    For i = L1 To U1
        For j = L2 To U2
            If IsNull(drr(i, j)) Then drr(i, j) = ""
            brr(j, i) = drr(i, j)
        Next
    Next
    transpose = brr
End Function