VB6でのSQL実行について

質問

VB6でのSQL実行について

VB6でのSQL実行について困っています。

SQL文を作成し、ダイナセットで実行している最中にも
再度別のSQL文をダイナセットで実行することは可能なのでしょうか？

言語はVB6.0、DBはOracle9iを使用しています。

イメージ的にはこんな使い方をしたいです。

dim lngRecordRow1 as long 'レコード数1
dim lngRecordRow2 as long 'レコード数2
dim OraDynaset1 As OraDynaset
dim OraDynaset2 As OraDynaset
dim strSQL as string 'SQL文
dim lngCnt1 as long 'ループカウンタ1
dim lngCnt2 as long 'ループカウンタ2

strSQL= ---SQL文作成１回目---

Set OraDynaset1 = OraDatabase.CreateDynaset(strSQL, ORADYN_READONLY) 'SQL文実行１回目

lngRecordRow1 = OraDynaset1.RecordCount

for lngCnt1 = 1 to lngRecordRow1
'--- 処理 ---

strSQL= ---SQL文作成２回目---

Set OraDynaset2 = OraDatabase.CreateDynaset(strSQL, ORADYN_READONLY) 'SQL文実行２回目

lngRecordRow2 = OraDynaset2.RecordCount

for lngCnt2 = 1 to lngRecordRow2
'--- 処理 ---
next lngCnt2

next lngCnt1

１回目で取得したSQL実行結果を行単位でループをまわしつつ、１回目で取得したレコードの結果を条件に使用して別のSQL文を作成し、ループをまわしている最中に実行したいです。
その際、２回目のSQLの結果が２レコード以上の場合、さらにループをまわして条件判別をしたいです。

かなり困っています。回答待ってます。

回答No.1

celena · ベストアンサー

可能です。
ですが推奨しません。
どうにか1つのクエリにまとめられないですか？

補足

諸都合によりDBの中身が見れないので、
SQL部分でエラーとなると原因究明に時間がかかるため
何とか小出しにSQLを作成したいです。
（１つにまとめると条件が複雑で辛い）