VB2005でOracleのレコード操作について

質問

こんばんわ！

VB2005よりOracleに接続しレコードをテキストに吐き出す単純なプログラムなのですが、以下のようなテーブルの複数レコードを以下のテキスト結果のように１レコードにしたいのですが。。
＜テーブル＞
ID 　名称 　　明細数 回数
1 あああ　　 2 3
1 いいい 2 3
　　　↓
＜テキスト結果＞
ID,明細数,名称1,回数1,名称2,回数2
1,2,あああ,3,いいい,3

＜コード＞
con.ConnectionString = ("User ID=XXX;Password=XXX;Data Source=XXX")
con.Open
strsql = "select * from XXX"
comm = New OracleCommand(StrSql, con)
My.Computer.FileSystem.WriteAllText(Path,"",False,enc)
dr = comm.ExecuteReader
Do Until dr.Read = False
strEdit(dr)
Loop

Function strEdit(Byval Dr As OracleDataReader) As Boolean
・
　　・
　　・
OutStr &= Dr("ID")
if Dr("明細数") >= 2 Then
【ここでADOの「MoveNext」と同等なもの】
　　End If
OutStr &= vbCrLf
My.Computer.FileSystem.WriteAllText(Path,OutStr,True,enc)
end Function

又は他に良い方法があればご教授いただけませんでしょうか？
宜しくお願い致します。

回答No.1

noname#259269 · ベストアンサー

＞【ここでADOの「MoveNext」と同等なもの】

純粋にこの問いに答えるのであれば、DR.Read でいいんじゃないでしょうか。

ただ、明細数というのは、SELECT 結果の複数行を、出力時に1行にまとめる単位なのでしょうか？
であれば、ロジック↓の組み方に何か違和感覚えますが、

＞if Dr("明細数") >= 2 Then

全部掲載されているわけではなさそうですので、まずはこの回答にて。

補足

ご回答ありがとうございます！

>ただ、明細数というのは、SELECT 結果の複数行を、出力時に1行にまとめる単位なのでしょうか？

そのとおりです。

>であれば、ロジック↓の組み方に何か違和感覚えますが、

たしかに不恰好な気もします。
IDがキーとなり、明細数分だけ列が増えていき、IDが変われば改行していきます。

でも以下のようにしたら一応上手くいってそうですが。。

If Dr("明細数") >= 2 Then
Dr.Read()
End If

どうすればもっとスマートになるんでしょうか？
なにかいいやり方ご存知でしょうか？

回答No.2

noname#259269

>でも以下のようにしたら一応上手くいってそうですが。。

データが仮にこうだったらどうなりますか？

ID 名称 明細数 回数
1 あああ 2 3
1 いいい 2 3
2 ううう 2 4
2 えええ 2 4

ID毎にキーブレイクするんなら問題ないと思います。そういう意味でソースが全文掲載されていないので。。。と書きました。