如何解决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 举报,一经查实,本站将立刻删除。