こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

440 OIP エラーについて(ORADC)

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

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

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

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

投稿日時 - 2004-07-28 07:35:04

QNo.942228

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

21人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

実装方法が載っていないのでなんともいえませんが、最後のデータを削除(=レコード数0件)した時にMoveFirstとかMoveLastなどレコード移動操作をしていませんか?ひょっとしたらこれが原因かと。
IF [ORADC].Recordset.EOF = False Then
レコード操作
End IF
なんかでどうでしょう?全然的外れでしたら申し訳ないです。

投稿日時 - 2004-07-28 09:58:29

補足

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

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:16

お礼

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

投稿日時 - 2004-07-29 08:46:43

あなたにオススメの質問