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