440 OIP エラーについて（ORADC）

OS:win2000pro
oracle 8i(8.1.7)
VB:VB 6.0 sp5

VBフォーム上にORADCコンポーネントを貼り付けてDB情報を取得し
表示しています

(例)データが３つ存在し、１、２つと順にDB(レコード)を削除できるのですが、最後の３つ目を削除しようとすると
下記のエラーが発生します
どうしてでしょうか？

440 OIP-00000:Message 0 not found; project:OO4O; facility=OIP

No.1 回答者： kazuho_goo 回答日時： 2004/07/28 09:58

実装方法が載っていないのでなんともいえませんが、最後のデータを削除(=レコード数0件)した時にMoveFirstとかMoveLastなどレコード移動操作をしていませんか？ひょっとしたらこれが原因かと。

IF [ORADC].Recordset.EOF = False Then
レコード操作
End IF
なんかでどうでしょう？全然的外れでしたら申し訳ないです。

この回答への補足

最後のレコード削除の時に「ここ」でエラー(標記)が発生します

Private Sub cmdDel_Click()
Dim rc As VbMsgBoxResult
Dim currentcd As String
On Error GoTo errhandler
rc = MsgBox("データを削除しますか？", vbYesNo Or vbInformation, m_title)
If (rc = vbYes) Then
odcTest.Recordset.Delete ←ここ！
If (odcTest.Recordset.RecordCount = 0) Then
cmd1.Enabled = False
Else
cmd1.Enabled = True
End If
MsgBox "データを削除しました", vbInformation, m_title
End If
Exit Sub
errhandler:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub

補足日時：2004/07/28 12:35

この回答へのお礼

ありがとうございました
原因は　Oracle のバグでした

お礼日時：2004/07/29 08:46