ADO (ActiveX Data Objects) 2.6 Library の Recordset.Seek メソッドが失敗し、関係のないレコードにカレントカーソルが移動してしまう現象の回避方法

Do

rs.Seek Values

If rs.EOF Or rs.BOF Then

Exit Do

End If

IsOk = True

For i = 0 To UBound(Fields)

If rs(Fields(i)) <> Values(i) Then

IsOk = False

Exit For

End If

Next i

If IsOk Then

Exit Do

End If

c = c + 1

Loop while c < 10

苦肉の策でこう回避しています。２度目で成功します。一度目だけ、エラーも発生させずにEOFにもならずに関係のないレコードへ行ってしまいます。

If rstEmployees.Supports(adIndex) And rstEmployees.Supports(adSeek) Then

でチェックも一応してみましたが、このチェックに通ったすぐ後でも、Seekは失敗しています。

２度目で大体成功します。

失敗する確立は低いですが、大きなMDBを使っている為でしょうか？

ローカルMDBファイルを、TableDirectで開いています.

SQLでSELECT WHEREするよりも、Seekメソッドを使ったほうが高速だったためSeekを使っています。

タイムアウトは考えにくいです。Seekは１秒もかからず瞬時に終わります。

Seekが失敗するという現象と、どのような時におこるのかという情報を探しています。回避策もあればなお良し。

英文可。BBSやMLのログでもかまいません。

MDAC 2.8 がインストールされている状態でおきています。

参照設定は、2.1 2.5 2.6 2.7 と試しましたが同じです。

かならずMoveFirstするようにしたら、誤った結果を返すことがなくなりました。

ありがとうございます。

どこかにそのことが明文化されていればより安心できるのですが

http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado...

MSのサンプルコードですらそのようなことはしていないので、いまいち腑に落ちなかったりもします。

ですが、とても助かりました。とりあえず、結果オーライです。ありがとうございました。