- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：CSVへ複数件エクスポートがしたい）
CSVへ複数件エクスポートができない問題の解決方法
このQ&Aのポイント
- VBでオラクルにアクセスしてテーブルと列を取得し、日付によりデータを取得する際、一度しかCSVにエクスポートされない問題が発生しています。複数件エクスポートする方法を教えてください。
- 現在の状況では、一度しかCSVに表示されない問題が発生しています。対象となるデータが複数件表示されるようにするには、どのような方法を取ればよいでしょうか？
- VB6の環境でオラクルにアクセスし、定期点検実績テーブルから日付を条件にデータを取得し、CSVにエクスポートするコードがありますが、一度しか表示されません。複数件表示させる方法を教えてください。
noname#63429
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
VBとOracleを何で接続してるかわからないので、なんともいえないのですが、、、 このソースを見る限りだと、一件のレコードを書き込んだだけで書き込みを終了しています。 ループさせて全件取得しなくてはならないのではないでしょうか？ 以下、oo4oを用いた接続のサンプルです。 ----------------------------------------- 'Databaseとダイナセットを宣言 Dim dbOra As OraDatabase 'oo4o Database Object Dim dynOra as OraDynaset 'oo4o Dynaset Object 'SQLをダイナセットへ登録 Set dynOra = dbOra.DbCreateDynaset(Wk_Sql, 0&) Open Wk_FDir + "\" + Wk_FName For Output Access Write As #1 Write #1, "コンテナ番号", "定期点検実施日" Do While Not dynOra.EOF Write #1, Cv_Null(dynOra.Fields("T05_NumContner")),Cv_Null(dynOra.Fields("T05_DateTenken")) dynOra.MoveNext Loop Close #1 -------------------------------- CSVもテキストと同じですので、全件書き込まなくてはいけません。 下記URLはDBとVBの接続にかんする詳しいサイトです。
