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の結果が２レコード以上の場合、さらにループをまわして条件判別をしたいです。
かなり困っています。回答待ってます。
