ひっそり開発室

VB.Netでデータを入力した後、印刷するアプリを作成というお話が入って、
入力されたデータを蓄積して解析したいとか。

CSVでいいのかなーと聞いてみたら、
できればなんかのDBがいいなーとか
1台だけなら無償で使えるMSSQLをちょろっと入れて連動するんだけど
複数台で使うらしく、
それもセットアップはインストーラで設定しておしまいくらいのレベルがいいとか
DBインストールしなくていいものを考えてたら、
SQLiteかAccessが使えそうな感じ
今回はとりあえずSQLite

ツール→NuGet パッケージ マネージャー→ソリューションのNuGetパッケージの管理
で、右上の検索ボックスで [SQLite] を検索して
System.Data.SQLite を選択してインストール

とりあえずこんな感じ
Dim Connection As New SQLite.SQLiteConnection Dim Command As SQLite.SQLiteCommand Dim DataReader As SQLite.SQLiteDataReader '接続文字列を設定 Connection.ConnectionString = "Version=3;Data Source=test.db;New=False;Compress=True;" 'オープン Connection.Open() 'コマンド作成 Command = Connection.CreateCommand 'SQL作成 Command.CommandText = "SELECT * FROM TEST" 'データリーダーにデータ取得 DataReader = Command.ExecuteReader 'データを出力 Do Until Not DataReader.Read Debug.Print(DataReader.Item("id").ToString) Debug.Print(DataReader.Item("data").ToString) Loop '破棄 DataReader.Close() Command.Dispose() Connection.Close() Connection.Dispose() 2016/07/27追記
ちゃんとUsing使いましょ。
Using con As New SQLite.SQLiteConnection con.ConnectionString = "Version=3;Data Source=test.db;New=False;Compress=True;" con.Open() Using cmd As New SQLite.SQLiteCommand cmd.Connection = con cmd.CommandText = "select * from TEST" Using ldr As SQLite.SQLiteDataReader = cmd.ExecuteReader() Do Until Not ldr.Read Debug.Print(ldr .Item("id").ToString) Debug.Print(ldr .Item("data").ToString) Loop End Using End Using End Using