VBA for Excel中的记录集不会从SAP HANA中的表返回所有记录

问题描述

嘿，我已经仔细检查了所有内容。我不知道为什么这段代码没有带回整个表。它似乎总是会丢失大约1-500行的数据，这是一个大约75,000行的大数据集，所以我质疑是否与数据量有关。

Sub GET_HANA_DATA2()

driverHANA = "HDBODBC"

Sheets("Deltas").UsedRange.ClearContents
Sheets("Deltas").Range("AE1").Value = "Changed"

''''' HANA
Set cn2 = New ADODB.Connection
StrConn = "Driver={" & driverHANA & "};Servernode=<>; UID=<>; PWD=<>;"

cn2.Open StrConn

q = "SELECT * FROM <>." _
& """<>"""

Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = cn2
    .Open q
    
    For intColIndex = 0 To rs.Fields.Count - 1
        Sheets("Deltas").Range("A1").Offset(0,intColIndex).Value = rs.Fields(intColIndex).Name
    Next
    
    Sheets("Deltas").Range("A2").copyFromrecordset rs
    
    'MsgBox

    .Close
End With


'Colors columns
Columns("AA:AC").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
End With

'Filter Toggle
If ActiveSheet.AutoFilterMode = False Then

    Sheets("Deltas").Range("A1:AE1").AutoFilter
 
End If

结束子

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）