即使我在 ADO 中的第一个位置有一个填充的记录集，EOF也会返回 true

我试图从记录集中的列中获取行，然后将它们插入简单明了的表中。

记录集已填充，我使用 .MoveFirst 从 rs 的开头开始，但我仍然在开始时得到 EOF true ，并且它跳出了 do while ..

我有一个类似的功能可以工作，但由于某种原因这个功能无法工作。

我不明白为什么......或者如何解决这个问题。欢迎任何见解！

当前代码 ~

Public Function makeSäljare()
'Create rs
Dim rsData As ADODB.Recordset
Set rsData = New ADODB.Recordset
Dim sql As String

'Select what should be included in the rs.
rsData.Open "SELECT Forhandler, Selger FROM data", _
CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rsData.MoveFirst


MsgBox rsData.GetString

'Manipulate each row of the result column.
Do While Not rsData.EOF


sql = "INSERT INTO säljare (Partner_Namn, Namn ) VALUES ('" & rsData!forhandler & "','" & rsData!Selger & "');"
MsgBox sql
'DoCmd.SetWarnings (False)
DoCmd.RunSQL (sql)
'DoCmd.SetWarnings (True)


rsData.MoveNext
'If rsData.EOF Then Exit Do

Loop

rsData.Close

End Function

它跳出 Do While Not rsData.EOF..

GetString将记录集保留在EOF. MoveFirst再次之前Do While Not rsData.EOF

rsData.MoveFirst
MsgBox rsData.GetString
rsData.MoveFirst ' <-- add this
'Manipulate each row of the result column.
Do While Not rsData.EOF