VBA记录集问题

Question

为什么如果括号中的数字大于1272，该函数将返回所有NA值。如果数字小于1273，则该功能正常工作。

Set db = OpenDatabase(DBFullName) 
Set rs = db.OpenRecordset("SELECT * FROM SGXIO_Database") 

Dim arr As Variant 
Dim temp As Range 
Dim counter As Variant 
Dim num As Integer 

rs.MoveLast 
counter = rs.RecordCount 
rs.MoveFirst 

'bdd is the function name 
bdd = Application.Transpose(rs.GetRows(1272)) 


Set rs = Nothing 
db.Close 
Set db = Nothing 

Answer 1

很可能是因为ADO吮吸并遇到各种内存限制，您不会期望。你可以通过分块来解决你的问题。每次只处理1000条记录。使用GetRows的第二个参数来告诉它上次离开的位置。 http://www.w3schools.com/ado/met_rs_getrows.asp