SQLiteで作成したテーブルをVB.NETを使ってCSVかtxtに変換したい

Question

やりたいこと

SQLiteで作成したテーブルをVB.NETを用いてCSVかtxtファイルにしたいです。

状況

Test.sqliteファイルが既にある状態で以下のコードをVB.NETで動くようにしたいです。

$sqlite3 test.sqlite

sqlite> .headers on
sqlite> .mode csv
sqlite> .output sample.csv
sqlite> SELECT * FROM sampleList;

何かいい方法はありますでしょうか？
お教えいただけると幸いです。

書いたコード

Import System,IO
Import System.Configration
Import System.Data.SQLite
Import System.Text

Private Sub Output_Click(sender As Object, e As EventArgs)Handles
    Using con As New SQLiteConnection("DataSource = Test.sqlite")
        con.open()
        Using cmd As SQLiteComand = con.CreateCommand()
            cmd.CommandText = "SELECT * FROM Test"
            cmd.ExecuteNonQuery
            cmd.CommandText = ". mode csv ファイルの保存場所"
            cmd.ExecuteNonQuery
        End Using
    End Using
End sub

Comments

[sazi]

CSVではなくて、コンソールに出力する形式のファイルを出力したいのですか？

[退会済みユーザー]

> エラーは
> near "." syntax error
> というものが出てきます。

それは多分

> cmd.CommandText = " .output ファイルの保存場所"

の . のことを言っているのだろうと想像してますが、とすると「どこを修正すればよろしいのでしょうか？」を議論できるレベルではないと思いますけど・・・

[MorningSmash]

> CSVではなくて、コンソールに出力する形式のファイルを出力したいのですか？

CSVのような形式で出力したいです。

>議論できるレベルに達していない
申し訳ございません。
SQLiteを使うのが初めてでしてよくわかっていないコードを書いてしまっていましたので削除いたしました。

よろしければ編集後の質問に対してご回答いただけると幸いです。

[退会済みユーザー]

SQLite を使うのが初めて、VB.NET の知識も怪しいということで、丸投げせざるを得ないということですか？　そういう話であれば、ここ Teratail で質問することではなさそうです。

[MorningSmash]

かしこまりました。

このような稚拙な質問を閲覧いただきありがとうございました。

[退会済みユーザー]

丸投げと言われないように自分なりに VB.NET のコードを考えて質問に書いたのであろうと思いますが、ほとんど丸投げと変わらないですよ。

SQLite から DataTable を作成し、DataTable から CSV ファイルを作成することを考えてはいかがですか？

それならネットに情報が多々あると思いますので、それを参考に自力でかなりのところまで実装できると思います。

例えば、前者は sqlite datatable でググってみてください。後者は datatable csv で。

(DataTable を経由しなくても可能ですが、自分がググった限りでは信用できそうな記事が見つからなかったので、代案としてお勧めしてます)

Answer 1

SurferOnWww様よりご助言いただき、参考サイト様を参考にした結果、自分で実装することができました。

著作権の問題がございますので、自分自身で記述した部分のみ書かせていただきます。

  
        Using con A New SQLiteconnection("Data source=Test.sqlite")
            Dim Select_all As String = "SELECT * FROM Test" 
            Dim cmd As SQLiteCommand = con.CreateCommand()
            cmd.Connection = con
            cmd.CommandText = Select_all

            Dim com As SQLiteCommand = New SQLiteCommand(Select_all, con)
            Dim set As SQLiteDataReader = com.ExecutrReader()

        End Using　

Answer 2

「.output」等のコマンドはSQLiteコマンドラインツールの専用コマンドですので、batファイル等を作成して呼び出す必要があります。

vb側からselectしてCSVに出力する方が良いのではないでしょうか。