数据库导出数据，出现了不同结果，请大佬指点一下，谢谢。

loreijine924

刚开始自学数据的简单操作，请大佬指点一下。
最开始，下面两句导出命令，都可以导出数据，但是导出的数据数量不一致，使用CopyFromRecordset命令的数据少了
我以为是指针没有到最后，或者最前，所以移动了指针命令，就是上面紫色部分
直接导致，现在CopyFromRecordset命令执行的时候，导出的数据完全是空的，但是使用GetRows写入数组，还是有数据，和原来没有改变
请问是什么地方出问题了，该怎么恢复呢？

Sub 导出(outSheet As Worksheet, startRow As Integer, startColumn As Integer)
Dim I As Integer, J As Integer
outSheet.UsedRange.ClearContents
RS.Open S, CON, adOpenKeyset, adLockOptimistic
For J = 0 To RS.Fields.Count - 1
outSheet.Cells(startRow, J + startColumn) = RS.Fields(J).Name  '表头
Next J
'RS.MoveFirst
'RS.MoveLast
'分别用不同的方法导出数据
Dim BRR, CRR
BRR = RS.GetRows
outSheet.Cells(startRow + 1, startColumn).CopyFromRecordset RS
outSheet.Cells(startRow + 1, startColumn + 6).Resize(UBound(BRR, 2), UBound(BRR, 1) + 1) = Application.Transpose(BRR)
End Sub

loreijine924

来个大佬指点一下

qdtzq

上附件大佬看到的机会多

loreijine924

qdtzq 发表于 2023-3-4 10:54
上附件大佬看到的机会多

附件在公司里，主要是觉得这种理论上的问题，没附件也可以解决的
毕竟懂的人眼里很简单
还是这个数据库导出的原理了解的不够深

loreijine924

Properties 下面的Ccount是88
RecordCount 数值是93

我一开始用CopyFromRecordset RS命令读取的数据，好像就是88个左右，因为当时没留意，所以也就没截图保存。移动了指针后，读不出数据了
用RS.GetRows命令还是可以得到数据，93个

请大神指点一下，怎么解决这个情况？

loreijine924

找到问题了，确实是需要加一句 RS.MoveFirst,我最开始加的位置不对
outSheet.Cells(startRow + 1, startColumn).CopyFromRecordset RS

RS.MoveFirst    '放在这里就可以了，估计执行了上面命令后，指针已经到末尾了

BRR = RS.GetRows
outSheet.Cells(startRow + 1, startColumn + 6).Resize(UBound(BRR, 2) + 1, UBound(BRR, 1) + 1) = Application.Transpose(BRR)