- PR -

ORA-01000とOracleのカーソルについて

1
投稿者投稿内容
オレンジ
会議室デビュー日: 2005/02/03
投稿数: 17
投稿日時: 2005-04-20 10:57
VB6→ VB.NETに自動コンバートしています。
オラクルに接続してるんですが、照会画面で、コマンドボタンをクリックすると、次レコード表示させるような動きになっています。

コマンドボタンクリック時、

SELECT文を発行して、オラクルに接続にいくのですが、

W_SQL = SELECT MIN(CD) FROM AAA WHERE CD > 画面.CD

T_RCS = OraDatabase.DBCreateDynaset(W_SQL, 4)

If T_RCS.BOF = True Or T_RCS.EOF = True Then
Exit Sub
End If

ReDim F_RCS(T_RCS.Fields.Count - 1)
For i = 0 To T_RCS.Fields.Count - 1
F_RCS(i) = T_RCS.Fields(i)
Next i

としています。通常はこれでうまくいくのですが、コマンドボタンを連打すると、

「SQL実行エラー, ORA-01000: 最大オープン・カーソル数を超えました。」というエラーがでます。CLOSEをかければいいのかな?とは思うんですが、書き方がわかりません。

おしえていただけないでしょうか?
よろしくお願いします。
1

スキルアップ/キャリアアップ(JOB@IT)