■■■VB.NetでSQLite パラメータとトランザクション■■■

パラメータとトランザクションを使ってみます。
設定は前回と同じとします
まずはソース

------------------------------------------------------------------------

Imports System.Data.SQLite
Public Class Form1
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        '接続文字列を設定
        Dim Cn As New SQLiteConnection
        Dim Cmd As SQLiteCommand
        Dim Tn As SQLiteTransaction

        Connection.ConnectionString = "Version=3;Data Source=D:\SQLite\test.db;New=False;Compress=True;"

        ''パスワードをセット
        'Cn.SetPassword("password")

        'オープン
        Cn.Open()

        'トランザクション開始
        Tn = Cn.BeginTransaction

        ''パスワードを変更
        'Cn.ChangePassword("password")

        'コマンド作成
        Cmd = Cn.CreateCommand

        'SQL作成
        Cmd.CommandText = "INSERT INTO testtable ( id , data1 , data2) VALUES( :id , :data1 , :data2 ) ;"
        Cmd.Parameters.Add("id", System.Data.DbType.Int32)
        Cmd.Parameters.Add("data1", System.Data.DbType.String)
        Cmd.Parameters.Add("data2", System.Data.DbType.String)

        Cmd.Parameters.Item("id").Value = 6
        Cmd.Parameters.Item("data1").Value = "データ３"
        Cmd.Parameters.Item("data2").Value = "データ４"
        Dim i10 As Long = Cmd.ExecuteNonQuery

        MessageBox.Show(i10.ToString)

        Tn.Rollback() 'ロールバック
        'Tn.Commit() 'コミット

        '破棄
        Cmd.Dispose()
        Cn.Close()
        Cn.Dispose()
    End Sub
End Class