ＯｒａｃｌｅとＶＢ６．０を勉強している学生です。

質問

ＯｒａｃｌｅとＶＢ６．０を勉強している学生です。

あるテーブルから全てのレコードを抽出してCSVで出力させたいのですが

なかなかうまく行かないので悩んでおります。

TEST1 というテーブルには名前、年齢、住所、電話番号etc というフィールドがあり

数１００件のレコードがある場合　その全てのレコードをcsvに出力する所で詰まって

おります。

記述しているコードですが

'Oracleとの接続
Set OraSession = CreateObject("OracleInProcServer.XOrasession")
'DataBaseとの接続
Set OraDataBase = OraSession.DbOpenDataBASE(ORADBNAME, ORADBCONECT, 0&)

SQL = "SELECT * FROM TEST1"
Set Oradynaset = OraDataBase.DbCreateDynaset(SQL, ORADYN_READONLY)

Do Until Oradynaset.EOF

'出力
Open OUTPATH &"test1" & ".csv" For Append As #10 Len = 3
Print #10, ????????? ←この場所の記述の仕方
Close #10

step1:
Loop
Exit Sub
End Sub

Printでどう記述すればTEST1のレコード全てをＣＳＶに出力できるかがわかりません。
ＤＢへの接続は成功しております。
何卒よろしくお願いします。

回答No.1

nda23 · ベストアンサー

例えば名前ですが、形式は文字列でしょう。通常は引用符で囲みますね。
また、名前がレコードの先頭フィールドのようなので、以下のように
します。
Print #10,""""; Oradynaset.Fields(0).Value; """";
""""は引用符１個を表します。両端の"は文字列の囲みです。この中で
1個の引用符を示すには連続して２個の引用符を記述します。つまり、
内側の""は"を意味します。
次に、項目毎に;(セミコロン)を使っていますが、これは項目出力後に
何もしないという意味です。,(カンマ)ですと、タブかそれに相当する
空白が出力されます。何も記述しないと復帰改行が出力されます。
ということで、フィールドが４個で全て文字型ならば以下のように
なります。尚、項目区切りは,(カンマ)と仮定します。
Print #10,""""; Oradynaset.Fields(0).Value; """,";
Print #10,""""; Oradynaset.Fields(1).Value; """,";
Print #10,""""; Oradynaset.Fields(2).Value; """,";
Print #10,""""; Oradynaset.Fields(3).Value; """"
最後だけ項目の後ろがカンマではなく復帰改行になります。

お礼

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

このような便利な方法があるとは知りませんでした。

大変勉強になります。

ありがとうございました。

回答No.2

ToOrisugaru

上記ロジックだと、最後のレコードしか出力されないと思いますけど。

ファイルのｏｐｅｎは、Do Until Oradynaset.EOF の上に
Close #10は、Ｌｏｏｐの下にしないとダメだと思います。

あとexit　subは、なんで二つある？？

お礼

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

確かにOpenは上に　Closeは下にないとだめですよね・・・。

ファイル名が一緒なのでいいかなとか思ってましたが

ＬＯＯＰする上ではそちらのほうが良いので改善いたしました。

ありがとうございました。