vb6 - ADODB レコードセットには、レコードが存在する間、常に EOF と BOF が True として設定されます

Question

Visual Basic 6 に次のコードがあります。

Static cmd As ADODB.Command
Static rs As ADODB.Recordset
If cmd Is Nothing Then
 Set rs = New ADODB.Recordset
 rs.ActiveConnection = conn
 Set cmd = New ADODB.Command
 cmd .ActiveConnection = conn
 cmd .CommandText = mySqlCommand
 cmd .Prepared = True
 AddParam cmd, "MyParam", myParam
End IF
SetParam cmd, "MyParam", myParam
rs.Open cmd, , adOpenForwardOnly, adLockReadOnly
While Not rs.EOF
 'Some code...
 '...
 rs.MoveNext
Wend
rs.Close

私のコマンドには結果行があると確信しています。SQLコマンドをログに記録してから、それをコピーしてsqltalkに貼り付けようとしましたが、期待どおりに機能します-行があります。

しかし、私のVBの場合、EOFとBOFは常に= Trueです。

なんで？そして、これを修正する方法は？

Answer 1

レコードセットと接続オブジェクトのプロパティ cursorLocation を確認してください。これで問題が解決することを願っています。