VB.NETでSQLite 更新

Question

Visual Studio 2017 でVB+SQLiteで顧客管理などのアプリの為に勉強中で、何度も挫折してAccessに戻ってはまたVSに取り組んでみてはを繰り返しております。ACCESSではお金が取れるほどではありませんが、自己使用のアプリを作れる程度です。

今回は、ほんとに初歩的なことなのかもしれませんが、SQLiteの更新について質問させてください。

https://qiita.com/akabei/items/3e719d07bdddd6fe56b8
上記ページを参考にSQLiteに接続してみて、参考サイトの通りの動作はしております。

そこで「Button3」をフォームに配置して、DataGridViewに表示されたSQLiteデータベースの内容を書き換え（追加ではありません）てSQLiteに反映させることを試しております。

Imports System.Data.SQLite

Public Class Form1

    ''' <summary>
    ''' データベース作成ボタンクリック
    ''' </summary>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Using con As New SQLiteConnection("Data Source=sample.db")
                con.Open()
                Using cmd As SQLiteCommand = con.CreateCommand()
                    cmd.CommandText = "CREATE TABLE Sample (ID INTEGER PRIMARY KEY, Name NVARCHAR(128), Age INTEGER)"
                    cmd.ExecuteNonQuery()
                    cmd.CommandText = "INSERT INTO Sample (Name, Age) VALUES('一郎', 10)"
                    cmd.ExecuteNonQuery()
                    cmd.CommandText = "INSERT INTO Sample (Name, Age) VALUES('二郎', 20)"
                    cmd.ExecuteNonQuery()
                    cmd.CommandText = "INSERT INTO Sample (Name, Age) VALUES('三郎', 30)"
                    cmd.ExecuteNonQuery()
                End Using
            End Using
            MessageBox.Show("Sampleデータベース作成成功", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Sampleデータベース作成失敗" + Environment.NewLine + ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ''' <summary>
    ''' 検索ボタンクリック
    ''' </summary>
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Using con As New SQLiteConnection("Data Source=sample.db")
            Dim ds As New DataSet
            Dim da As New SQLiteDataAdapter("SELECT * FROM Sample", con)
            da.Fill(ds, "Sample")
            Me.DataGridView1.DataSource = ds.Tables("Sample")
        End Using
    End Sub

　　Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Using con As New SQLiteConnection("Data Source=sample.db")
            Dim ds As New DataSet
            Dim da As New SQLiteDataAdapter("SELECT * FROM Sample", con)

            da.Update(ds, "Sample")
        End Using
    End Sub
End Class

上記で実行すると、
System.InvalidOperationException:
Update で TableMapping['Sample'] 、または DataTable 'Sample' が見つかりませんでした。
Source=System.Data

のエラーが出ました。

今試しているのは変更ですが、追加、削除をごそっと丸ごとSqliteのテーブルに反映させるにはいろいろな方法があるのかもしれませんが、今参考にしている記事のサンプルの流れで行くにはどのような記述になるのでしょうか？

よろしくお願いいたします。

Answer 1

更新するにも先にDataAdapterをFillしておかないと、DataAdapterにDataTableがない状態じゃないですか？
ソースのコピペミスかもしれませんが..

DataAdapter によるデータ ソースの更新をよく読んでみては

Comments

[otojiro]

回答ありがとうございます。
たしかにFillしてなかったです。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Using con As New SQLiteConnection("Data Source=sample.db")
Dim ds As New DataSet
Dim da As New SQLiteDataAdapter("SELECT * FROM Sample", con)
da.Fill(ds, "Sample")
da.Update(ds, "Sample")
End Using
End Sub

これでとりあえずはエラーが出なくなりました。
ただ確認したところデータベースのデータは更新されていなかったので、教えていただきました参考サイトでもう少し勉強してみます。

[dojikko]

> データは更新されていなかった
UpdateCommandを書いていないからでは？
UpdateCommandは自動生成されないときもあるので、きちんとUpdateCommandを書いてあげないといけないのでは？

[otojiro]

ありがとうございます。
お返事遅くなり申し訳ございません。
無事に解決して、思うような動作になりました。
ひとつずつ機能を増やしながらスキルアップしてい行きたいと思います。

Answer 2

Visual Studio 2017でSQLiteを使ったWindowsフォームアプリ開発 の Form1.vb にある、CREATE TABLE文

cmd.CommandText = "CREATE TABLE Sample (ID INTEGER PRIMARY KEY, Name NVARCHAR(128), Age INTEGER)"

は実行していますか？

Comments

[otojiro]

はい、そのCREATE文でテーブルを作成しました。

[Orlofsky]

環境 Windows 7 Professional SP1 64bit, Visual Studio 2017 Community などは同じでしょうか？Button3_Click以外のコードも最初から載せた方が良いように思えます。提示されたURLのButton2_Click は正常に実行できましたか？

[otojiro]

>Orlofsky様
申し訳ございません、ソース全文に修正いたしました。
Button2_Clickは正常に動作しております。
Windowsが当方はWin10 Home です。
VSのバージョンはVisual Studio2017 Communityです。