「VB.Net」の記事 - Crieit

【VB.NET】log4netを使ったログ出力を試してみた

2019-10-23T09:50:42+09:00

おはようございます。

VB.NETでも log4net を使ってログ出力を試してみました。

プログラムは前回のものを使用します。
【VB.NET】PostgreSQL に接続してデータ操作（追加・更新・削除）をしてみる

また、WPF@C#は下記の記事を参考にしてください。
【WPF】log4netを使ってログを出力する

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「log4net」を入力し、「log4net」を選択、インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

アセンブリ設定ファイルの修正

パッケージエクスプローラーから対象のファイルを開きます。

AccemblyInfo.vb

    // log4net を利用するための設定
    //

設定ファイルの追加

パッケージエクスプローラーから「追加」＞「新しい項目」を選択します。

「アプリケーション構成ファイル」を選択して「追加」ボタンをクリックします。

log4net.config

log4net.configファイルのプロパティで、
「出力ディレクトリにコピーする」を「常にコピーする」に変更します。

検索ボタンクリック時にログを出力

次の記述を追加します。

Form1.vb

Form1.vb

    ' ライブラリのインポート
    import log4net;

    public Class Form1

            ' ログ出力用インスタンスの宣言
            Private logger As ILog = LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)

    .
    .
    .
    省略

        ''' 
        ''' 検索ボタンクリックイベント.
        ''' 
        ''' 
        ''' 
        Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
            logger.Info("MainWindows 検索ボタンクリック")
            search()
        End Sub

ログを出力してみる

アプリケーションをデバッグ起動し、検索ボタンをクリックします。

コンソール出力にログが出力されるのを確認します。
実行ディレクトリ＞log＞yyyymmdd.log を確認、ログが出力されていればOKです。

まとめ

WPF@C#とほとんど同じ手順で使うことができました。

ではでは。

【VB.NET】PostgreSQL に接続してデータ操作（追加・更新・削除）をしてみる

2019-10-20T10:36:15+09:00

おはようございます。

今回はPostgreSQLで追加、更新、削除をやってみましたが、
Oracle、MySQLと変わらず、クラスを変更するだけでほぼ対応ができてしまいました。

プログラムは前回のものを参考にしてください。
【VB.NET】PostgreSQL に接続してデータを DataGridView に表示してみる

プログラム修正

追加（行追加）処理

Form1.vb

    ''' 
    ''' 追加ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        ' 追加後に更新されていなければ処理しない
        If (AddRowFlg) Then
            Return
        End If

        AddRowFlg = True

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' データ追加
            Using con As New DataContext(conn)

                Dim idx = dgvCat.Rows.Count()

                ' 行追加
                dgvCat.Rows.Add()

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                cmd = New NpgsqlCommand("SELECT * FROM TBLCAT", conn)
                da = New NpgsqlDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                Dim newNo = 0

                ' 使用できるNoを判定
                For i As Integer = 1 To dt.Rows.Count() + 1
                    Dim selectNo = i
                    If dt.Select("No = '" + selectNo.ToString + "'").Length = 0 Then
                        newNo = selectNo
                    End If
                Next

                ' No（プライマリなので編集不可）
                Dim no = New DataGridViewTextBoxCell()
                no.Value = newNo
                dgvCat(0, idx) = no
                dgvCat(0, idx).ReadOnly = True

                ' 名前
                Dim name = New DataGridViewTextBoxCell()
                dgvCat(1, idx) = name

                ' 性別
                Dim sex = New DataGridViewComboBoxCell()
                sex.Items.AddRange({"♂", "♀"})
                sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(2, idx) = sex

                ' 年齢
                Dim age = New DataGridViewTextBoxCell()
                dgvCat(3, idx) = age

                ' 種別
                Dim kind = New DataGridViewComboBoxCell()
                kind.DataSource = kindList
                kind.DisplayMember = "KindName"
                kind.ValueMember = "KindCd"
                kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(4, idx) = kind

                ' 好物
                Dim favorite = New DataGridViewTextBoxCell()
                dgvCat(5, idx) = favorite

            End Using

            conn.Close()

        End Using

    End Sub

更新処理

Form1.vb

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As OracleCommand = New OracleCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = '" + no.ToString() + "'", conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        (cnt + 1) +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ",  " + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value.ToString() + "'" +
                            ", SEX = '" + dgvCat(2, i).Value.ToString() + "'" +
                            ", AGE = '" + dgvCat(3, i).Value.ToString() + "'" +
                            ", KIND_CD = '" + dgvCat(4, i).Value.ToString() + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value.ToString() + "' " +
                            "WHERE NO = '" + dgvCat(0, i).Value.ToString() + "'"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

Form1.vb

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As OracleCommand = New OracleCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

Oracle、MySQLからPostgreSQLに変更するのも簡単にできそうですね。
次回以降はまた別の言語をやっていこうかと思います。

ではでは。

【VB.NET】PostgreSQL に接続してデータを DataGridView に表示してみる

2019-10-18T10:31:07+09:00

おはようございます。

今回はVB.NETでPostgreSQLに接続、データの取得をやってみます。

プログラムは前回のものを流用します。
【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

また、PostgreSQL環境の作成は以下の記事を参考にしてください
PostgreSQL 9.6.3 インストールからテーブル作成まで

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「npgsql」を入力し、「Npgsql」を選択、インストールボタンをクリックします。

プレビュー画面が表示された場合は、「OK」ボタンをクリックします。

ライセンス同意画面が表示されるので、「同意する」ボタンをクリックします。

出力ビューに「終了」が表示されれば完了です。

プログラム修正

宣言の追加

ダウンロードしたパッケージを利用するための宣言を追加します。

Form1.vb

Imports Npgsql

初期表示処理の修正

MySQLに接続していた部分を PostgreSQLに接続するように修正し、
MySqlCommand、MySqlDataAdapterもそれぞれ PostgreSQL用のクラスに変更します。

Form1.vb

    ''' 
    ''' フォームロード時の処理
    ''' 
    ''' 
    ''' 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' 種別コンボボックスの内容をデータベースから取得して設定
            ' データを取得
            Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
            Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
            Dim dt As DataTable = New DataTable()
            da.Fill(dt)

            ' コンボボックスに値を設定
            Dim sources As List(Of Kind) = New List(Of Kind)
            Dim k As Kind = New Kind()
            k.KindCd = ""
            k.KindName = "指定なし"
            sources.Add(k)
            For Each row As DataRow In dt.Rows
                k = New Kind()
                k.KindCd = row("KIND_CD").ToString()
                k.KindName = row("KIND_NAME").ToString()
                sources.Add(k)
            Next

            Me.cmbKind.DataSource = sources
            Me.cmbKind.DisplayMember = "KindName"

            ' データベースクローズ
            conn.Close()

        End Using

    End Sub

検索処理の修正

初期表示と同様、接続の処理とMysqlのクラスをPostgreSQL用に変更します。

Form1.vb

    ''' 
    ''' 検索処理
    ''' 
    Private Sub search()

        Using conn As New NpgsqlConnection("Server=localhost; Port=5432; User Id=USER01;Password=USER01;Database=DB01")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As NpgsqlCommand = New NpgsqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                Dim Sql As String = "SELECT * FROM TBLCAT"
                Dim where As String = ""
                If (searchName <> "") Then

                    where = " WHERE NAME LIKE '" + searchName + "%'"
                End If
                If (searchKind <> "") Then
                    If (where <> "") Then
                        where += " AND"
                    Else
                        where = " WHERE"
                    End If
                    where += " KIND_CD = '" + searchKind + "'"
                End If

                Sql += where

                cmd = New NpgsqlCommand(Sql, conn)
                da = New NpgsqlDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                ' データグリッドビューに設定
                Dim i As Integer = 0
                dgvCat.Rows.Clear()
                For i = 0 To dt.Rows.Count() - 1

                    ' 行追加
                    dgvCat.Rows.Add()

                    ' No（プライマリなので編集不可）
                    Dim no = New DataGridViewTextBoxCell()
                    no.Value = dt.Rows(i)("No")
                    dgvCat(0, i) = no
                    dgvCat(0, i).ReadOnly = True

                    ' 名前
                    Dim name = New DataGridViewTextBoxCell()
                    name.Value = dt.Rows(i)("Name")
                    dgvCat(1, i) = name

                    ' 性別
                    Dim sex = New DataGridViewComboBoxCell()
                    sex.Items.AddRange({"♂  ", "♀  "})
                    sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(2, i) = sex
                    dgvCat(2, i).Value = dt.Rows(i)("Sex")

                    ' 年齢
                    Dim age = New DataGridViewTextBoxCell()
                    age.Value = dt.Rows(i)("Age")
                    dgvCat(3, i) = age

                    ' 種別
                    Dim kind = New DataGridViewComboBoxCell()
                    kind.DataSource = kindList
                    kind.DisplayMember = "KindName"
                    kind.ValueMember = "KindCd"
                    kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(4, i) = kind
                    dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                    ' 好物
                    Dim favorite = New DataGridViewTextBoxCell()
                    favorite.Value = dt.Rows(i)("Favorite")
                    dgvCat(5, i) = favorite

                Next

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

起動してみる

種別にデータが設定されました。

検索ボタン押下でデータがグリッドに表示されました。

まとめ

PostgreSQLもほとんど変更無しで対応することができました。

実は EntityFrameworkを利用する予定だったのですが、
依存ファイルが見つからないエラーで嵌ってしまったので断念。

いずれ時間のある時にでも。。

ではでは。

【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

2019-10-16T09:41:26+09:00

前回に引き続き、MySQLの話し。
今回は追加、更新、削除をやってみましたが、ほとんど Oracle と変わらず。

プログラムは前回のものを参考にしてください。

【VB.NET】MySQL（MariaDB）に接続してデータ操作（追加・更新・削除）をしてみる

プログラム修正

更新処理

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        'Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
        Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As MySqlCommand = New MySqlCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = '" + no.ToString() + "'", conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        no.ToString() +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ", '" + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New MySqlCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value.ToString() + "'" +
                            ", SEX = '" + dgvCat(2, i).Value.ToString() + "'" +
                            ", AGE = '" + dgvCat(3, i).Value.ToString() + "'" +
                            ", KIND_CD = '" + dgvCat(4, i).Value.ToString() + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value.ToString() + "' " +
                            "WHERE NO = '" + dgvCat(0, i).Value.ToString() + "'"

                    cmd = New MySqlCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        'Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
        Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As MySqlCommand = New MySqlCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

起動後の画面は割愛。

OracleからMySQLに変更するのは簡単にできそうですね。
次回は PostgreSQL を試してみたいと思います。

ではでは。

【VB.NET】MySQL（MariaDB）に接続してデータを DataGridView に表示してみる

2019-10-10T11:45:58+09:00

今回はVB.NETでMySQLに接続、データの取得をやってみます。

プログラムは前回のものを流用します。
【VB.NET】Oracleに接続してデータを操作（追加・更新・削除）してみる

また、C#@WPFでのMySQL接続は下記を参考にしてください。
【WPF】MySQL（MariaDB）に接続してデータを DataGrid に表示してみる

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「mysql」を入力し、「MySql.Data」を選択、インストールボタンをクリックします。

プレビュー画面が表示された場合は、「OK」ボタンをクリックします。

ライセンス同意画面が表示されるので、「同意する」ボタンをクリックします。

出力ビューに「終了」が表示されれば完了です。

画面（デザイナーソース）

 _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
     _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
     _
    Private Sub InitializeComponent()
        Me.dgvCat = New System.Windows.Forms.DataGridView()
        Me.ColNo = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColName = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColSex = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColAge = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColKind = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ColRemark = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.lbName = New System.Windows.Forms.Label()
        Me.lbKind = New System.Windows.Forms.Label()
        Me.btnSearch = New System.Windows.Forms.Button()
        Me.txtName = New System.Windows.Forms.TextBox()
        Me.cmbKind = New System.Windows.Forms.ComboBox()
        Me.btnAdd = New System.Windows.Forms.Button()
        Me.btnUpdate = New System.Windows.Forms.Button()
        Me.btnDelete = New System.Windows.Forms.Button()
        CType(Me.dgvCat, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'dgvCat
        '
        Me.dgvCat.AllowUserToAddRows = False
        Me.dgvCat.AllowUserToDeleteRows = False
        Me.dgvCat.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvCat.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ColNo, Me.ColName, Me.ColSex, Me.ColAge, Me.ColKind, Me.ColRemark})
        Me.dgvCat.Location = New System.Drawing.Point(12, 56)
        Me.dgvCat.Name = "dgvCat"
        Me.dgvCat.RowTemplate.Height = 21
        Me.dgvCat.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvCat.Size = New System.Drawing.Size(488, 256)
        Me.dgvCat.TabIndex = 0
        '
        'ColNo
        '
        Me.ColNo.DataPropertyName = "no"
        Me.ColNo.HeaderText = "No"
        Me.ColNo.Name = "ColNo"
        Me.ColNo.Width = 30
        '
        'ColName
        '
        Me.ColName.DataPropertyName = "name"
        Me.ColName.HeaderText = "名前"
        Me.ColName.Name = "ColName"
        '
        'ColSex
        '
        Me.ColSex.DataPropertyName = "sex"
        Me.ColSex.HeaderText = "性別"
        Me.ColSex.Name = "ColSex"
        Me.ColSex.Width = 35
        '
        'ColAge
        '
        Me.ColAge.DataPropertyName = "age"
        Me.ColAge.HeaderText = "年齢"
        Me.ColAge.Name = "ColAge"
        Me.ColAge.Width = 35
        '
        'ColKind
        '
        Me.ColKind.DataPropertyName = "kindCd"
        Me.ColKind.HeaderText = "種別"
        Me.ColKind.Name = "ColKind"
        Me.ColKind.Width = 120
        '
        'ColRemark
        '
        Me.ColRemark.DataPropertyName = "favorite"
        Me.ColRemark.HeaderText = "好物"
        Me.ColRemark.Name = "ColRemark"
        Me.ColRemark.Width = 120
        '
        'lbName
        '
        Me.lbName.AutoSize = True
        Me.lbName.Location = New System.Drawing.Point(12, 23)
        Me.lbName.Name = "lbName"
        Me.lbName.Size = New System.Drawing.Size(35, 12)
        Me.lbName.TabIndex = 1
        Me.lbName.Text = "名前："
        '
        'lbKind
        '
        Me.lbKind.AutoSize = True
        Me.lbKind.Location = New System.Drawing.Point(192, 23)
        Me.lbKind.Name = "lbKind"
        Me.lbKind.Size = New System.Drawing.Size(35, 12)
        Me.lbKind.TabIndex = 2
        Me.lbKind.Text = "種別："
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(425, 18)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(75, 23)
        Me.btnSearch.TabIndex = 3
        Me.btnSearch.Text = "検索"
        Me.btnSearch.UseVisualStyleBackColor = True
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(53, 19)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(100, 19)
        Me.txtName.TabIndex = 4
        '
        'cmbKind
        '
        Me.cmbKind.FormattingEnabled = True
        Me.cmbKind.Location = New System.Drawing.Point(233, 19)
        Me.cmbKind.Name = "cmbKind"
        Me.cmbKind.Size = New System.Drawing.Size(121, 20)
        Me.cmbKind.TabIndex = 5
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(14, 318)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(75, 23)
        Me.btnAdd.TabIndex = 6
        Me.btnAdd.Text = "追加"
        Me.btnAdd.UseVisualStyleBackColor = True
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(95, 318)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(75, 23)
        Me.btnUpdate.TabIndex = 6
        Me.btnUpdate.Text = "更新"
        Me.btnUpdate.UseVisualStyleBackColor = True
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(176, 318)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(75, 23)
        Me.btnDelete.TabIndex = 6
        Me.btnDelete.Text = "削除"
        Me.btnDelete.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(514, 353)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.cmbKind)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.btnSearch)
        Me.Controls.Add(Me.lbKind)
        Me.Controls.Add(Me.lbName)
        Me.Controls.Add(Me.dgvCat)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "一覧"
        CType(Me.dgvCat, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents dgvCat As DataGridView
    Friend WithEvents lbName As Label
    Friend WithEvents lbKind As Label
    Friend WithEvents btnSearch As Button
    Friend WithEvents txtName As TextBox
    Friend WithEvents cmbKind As ComboBox
    Friend WithEvents ColNo As DataGridViewTextBoxColumn
    Friend WithEvents ColName As DataGridViewTextBoxColumn
    Friend WithEvents ColSex As DataGridViewTextBoxColumn
    Friend WithEvents ColAge As DataGridViewTextBoxColumn
    Friend WithEvents ColKind As DataGridViewTextBoxColumn
    Friend WithEvents ColRemark As DataGridViewTextBoxColumn
    Friend WithEvents btnAdd As Button
    Friend WithEvents btnUpdate As Button
    Friend WithEvents btnDelete As Button
End Class

プログラム修正

宣言の追加

ダウンロードしたパッケージを利用するための宣言を追加します。

Form1.vb

Imports MySql.Data.MySqlClient

初期表示処理の修正

Oracleに接続していた部分を MySQLに接続するように修正し、
OracleCommand、OracleDataAdapterもそれぞれ MySQL用のクラスに変更します。

Form1.vb

        ''' 
        ''' フォームロード時の処理
        ''' 
        ''' 
        ''' 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            'Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
            Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

                ' データベースオープン
                conn.Open()

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                'Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
                'Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)

                Dim cmd As MySqlCommand = New MySqlCommand("SELECT * FROM MSTKIND", conn)
                Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)

                ' コンボボックスに値を設定
                Dim sources As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                k.KindCd = ""
                k.KindName = "指定なし"
                sources.Add(k)
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    sources.Add(k)
                Next

                Me.cmbKind.DataSource = sources
                Me.cmbKind.DisplayMember = "KindName"

                ' データベースクローズ
                conn.Close()

            End Using

        End Sub

検索処理の修正

初期表示と同様、接続の処理とOracleのクラスをMysql用に変更します。

Form1.vb

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()

            'Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")
            Using conn As New MySqlConnection("Database=DB01;Data Source=localhost;User Id=USER01;Password=USER01; sqlservermode=True;")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    ' 種別マスタ取得

                    ' 種別コンボボックスの内容をデータベースから取得して設定
                    ' データを取得
                    Dim cmd As MySqlCommand = New MySqlCommand("SELECT * FROM MSTKIND", conn)
                    Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable()
                    da.Fill(dt)
                    Dim kindList As List(Of Kind) = New List(Of Kind)
                    Dim k As Kind = New Kind()
                    For Each row As DataRow In dt.Rows
                        k = New Kind()
                        k.KindCd = row("KIND_CD").ToString()
                        k.KindName = row("KIND_NAME").ToString()
                        kindList.Add(k)
                    Next

                    ' 猫一覧取得
                    Dim Sql As String = "SELECT * FROM TBLCAT"
                    Dim where As String = ""
                    If (searchName <> "") Then

                        where = " WHERE NAME LIKE '" + searchName + "%'"
                    End If
                    If (searchKind <> "") Then
                        If (where <> "") Then
                            where += " AND"
                        Else
                            where = " WHERE"
                        End If
                        where += " KIND_CD = '" + searchKind + "'"
                    End If

                    Sql += where

                    cmd = New MySqlCommand(Sql, conn)
                    da = New MySqlDataAdapter(cmd)
                    dt = New DataTable()
                    da.Fill(dt)

                    ' データグリッドビューに設定
                    Dim i As Integer = 0
                    dgvCat.Rows.Clear()
                    For i = 0 To dt.Rows.Count() - 1

                        ' 行追加
                        dgvCat.Rows.Add()

                        ' No（プライマリなので編集不可）
                        Dim no = New DataGridViewTextBoxCell()
                        no.Value = dt.Rows(i)("No")
                        dgvCat(0, i) = no
                        dgvCat(0, i).ReadOnly = True

                        ' 名前
                        Dim name = New DataGridViewTextBoxCell()
                        name.Value = dt.Rows(i)("Name")
                        dgvCat(1, i) = name

                        ' 性別
                        Dim sex = New DataGridViewComboBoxCell()
                        sex.Items.AddRange({"♂", "♀"})
                        sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(2, i) = sex
                        dgvCat(2, i).Value = dt.Rows(i)("Sex")

                        ' 年齢
                        Dim age = New DataGridViewTextBoxCell()
                        age.Value = dt.Rows(i)("Age")
                        dgvCat(3, i) = age

                        ' 種別
                        Dim kind = New DataGridViewComboBoxCell()
                        kind.DataSource = kindList
                        kind.DisplayMember = "KindName"
                        kind.ValueMember = "KindCd"
                        kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(4, i) = kind
                        dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                        ' 好物
                        Dim favorite = New DataGridViewTextBoxCell()
                        favorite.Value = dt.Rows(i)("Favorite")
                        dgvCat(5, i) = favorite

                    Next

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

起動してみる

種別にデータが設定されました。

検索ボタン押下でデータがグリッドに表示されました。

まとめ

MySQLもOracle社のものになったからか、
ほとんど変更無しで対応することができました。めでたし。

ではでは。

【VB.NET】Oracleに接続してデータを操作（追加・更新・削除）してみる

2019-10-08T09:41:26+09:00

引き続きVB.NET。

プログラムは前回のものを参考にしてください。
【VB.NET】Oracleに接続してデータを検索してみる

プログラム修正

更新処理

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")


            ' データベースオープン
            conn.Open()

            ' データ更新
            For i = 0 To dgvCat.Rows.Count - 1

                ' テーブルから対象のデータを取得
                Dim no As Integer = dgvCat(0, i).Value

                ' シーケンス列としていないので、
                ' 最初に件数を取得して No を計算する
                Dim cmd As OracleCommand = New OracleCommand("SELECT COUNT(*) FROM TBLCAT WHERE No = " + no, conn)
                Dim cnt As Decimal = cmd.ExecuteScalar()

                If (cnt = 0) Then

                    ' データ追加
                    Dim query = "INSERT INTO TBLCAT VALUES (" +
                        (cnt + 1) +
                        ", '" + dgvCat(1, i).Value + "'" +
                        ", '" + dgvCat(2, i).Value + "'" +
                        ",  " + dgvCat(3, i).Value + "'" +
                        ", '" + dgvCat(4, i).Value + "'" +
                        ", '" + dgvCat(5, i).Value + "')"

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                Else

                    ' データ変更
                    Dim query = "UPDATE TBLCAT SET" +
                            "  NAME = '" + dgvCat(1, i).Value + "'" +
                            ", SEX = '" + dgvCat(2, i).Value + "'" +
                            ", AGE = " + dgvCat(3, i).Value +
                            ", KIND_CD = '" + dgvCat(4, i).Value + "'" +
                            ", FAVORITE = '" + dgvCat(5, i).Value + "' " +
                            "WHERE NO = " + dgvCat(0, i).Value

                    cmd = New OracleCommand(query, conn)
                    cmd.ExecuteNonQuery()

                End If

            Next


            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

削除処理

    ''' 
    ''' 削除ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Using conn = New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 選択されている行
            For Each r As DataGridViewRow In dgvCat.SelectedRows

                Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)

                ' データ削除
                Dim query As String = "DELETE FROM TBLCAT WHERE NO = " + Cat.No

                ' クエリ実行
                Dim cmd As OracleCommand = New OracleCommand(query, conn)
                cmd.ExecuteNonQuery()

            Next


            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを削除しました。")

    End Sub

まとめ

起動後の画面は、SQLiteの時と変わらないので割愛しました。

次回以降は、一応他のDBもやっていこうかと思います。

ではでは。

【VB.NET】Oracleに接続してデータを検索してみる

2019-10-07T09:43:37+09:00

またVB.NETですが。
WPFでもやりましたが Oracle に接続してとりあえずのことをやってみます。

プログラムは前回のもの、データベースの作成なんかはWPFを参考にしてください。

【WPF】Oracleを使ってデータを DataGrid に表示する

【VB.NET】データグリッドビューの行を動的に追加する

参照の追加

ソリューション・エクスプローラーの「参照」を右クリックして「参照の追加」を選択します。

参照の追加画面が表示されるので、「参照」ボタンをクリックします。

Oracle.DataAcess.dllを選択し、「追加」ボタンをクリックして完了です。

プログラム修正

宣言の追加

下記の記述を追加します。

Imports System.Data
Imports System.Data.OracleClient

起動時の処理

    ''' 
    ''' フォームロード時の処理
    ''' 
    ''' 
    ''' 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 種別コンボボックスの内容をデータベースから取得して設定
            ' データを取得
            Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
            Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)
            Dim dt As DataTable = New DataTable()
            da.Fill(dt)

            ' コンボボックスに値を設定
            Dim sources As List(Of Kind) = New List(Of Kind)
            Dim k As Kind = New Kind()
            k.KindCd = ""
            k.KindName = "指定なし"
            sources.Add(k)
            For Each row As DataRow In dt.Rows
                k = New Kind()
                k.KindCd = row("KIND_CD").ToString()
                k.KindName = row("KIND_NAME").ToString()
                sources.Add(k)
            Next

            Me.cmbKind.DataSource = sources
            Me.cmbKind.DisplayMember = "KindName"

            ' データベースクローズ
            conn.Close()

        End Using

    End Sub

検索処理

    ''' 
    ''' 検索処理
    ''' 
    Private Sub search()

        Using conn As New OracleConnection("Data Source=localhost;User Id=USER01;Password=USER01;")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                ' 種別マスタ取得

                ' 種別コンボボックスの内容をデータベースから取得して設定
                ' データを取得
                Dim cmd As OracleCommand = New OracleCommand("SELECT * FROM MSTKIND", conn)
                Dim da As OracleDataAdapter = New OracleDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                da.Fill(dt)
                Dim kindList As List(Of Kind) = New List(Of Kind)
                Dim k As Kind = New Kind()
                For Each row As DataRow In dt.Rows
                    k = New Kind()
                    k.KindCd = row("KIND_CD").ToString()
                    k.KindName = row("KIND_NAME").ToString()
                    kindList.Add(k)
                Next

                ' 猫一覧取得
                Dim Sql As String = "SELECT * FROM TBLCAT"
                Dim where As String = ""
                If (searchName <> "") Then

                    where = " WHERE NAME LIKE '" + searchName + "%'"
                End If
                If (searchKind <> "") Then
                    If (where <> "") Then
                        where += " AND"
                    Else
                        where = " WHERE"
                    End If
                    where += " KIND_CD = '" + searchKind + "'"
                End If

                Sql += where

                cmd = New OracleCommand(Sql, conn)
                da = New OracleDataAdapter(cmd)
                dt = New DataTable()
                da.Fill(dt)

                ' データグリッドビューに設定
                Dim i As Integer = 0
                dgvCat.Rows.Clear()
                For i = 0 To dt.Rows.Count() - 1

                    ' 行追加
                    dgvCat.Rows.Add()

                    ' No（プライマリなので編集不可）
                    Dim no = New DataGridViewTextBoxCell()
                    no.Value = dt.Rows(i)("No")
                    dgvCat(0, i) = no
                    dgvCat(0, i).ReadOnly = True

                    ' 名前
                    Dim name = New DataGridViewTextBoxCell()
                    name.Value = dt.Rows(i)("Name")
                    dgvCat(1, i) = name

                    ' 性別
                    Dim sex = New DataGridViewComboBoxCell()
                    sex.Items.AddRange({"♂", "♀"})
                    sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(2, i) = sex
                    dgvCat(2, i).Value = dt.Rows(i)("Sex")

                    ' 年齢
                    Dim age = New DataGridViewTextBoxCell()
                    age.Value = dt.Rows(i)("Age")
                    dgvCat(3, i) = age

                    ' 種別
                    Dim kind = New DataGridViewComboBoxCell()
                    kind.DataSource = kindList
                    kind.DisplayMember = "KindName"
                    kind.ValueMember = "KindCd"
                    kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                    dgvCat(4, i) = kind
                    dgvCat(4, i).Value = dt.Rows(i)("Kind_Cd")

                    ' 好物
                    Dim favorite = New DataGridViewTextBoxCell()
                    favorite.Value = dt.Rows(i)("Favorite")
                    dgvCat(5, i) = favorite

                Next

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

まとめ

ちょっと画面は取り忘れましたが、これでOracleからデータ取得、表示ができます。

次回もOracleの予定です。

ではでは。

【VB.NET】DataGridView の行を動的に追加してみる

2019-10-03T09:28:32+09:00

引き続き、DataGridView関連の話し。
今回は行を動的に追加する方法を試してみてました。

プログラムは前回のものを流用します。
【VB.NET】DataGridView を直接変更してデータを更新してみる

プログラム修正

追加処理

追加ボタンが押されたタイミングで、データグリッドビューの空行を作成して追加します。

今回は、1行追加したら「更新」するまで追加できないようにしました。
（グローバルでフラグを持たせています）

    ''' 
    ''' 追加ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        ' 追加後に更新されていなければ処理しない
        If (AddRowFlg) Then
            Return
        End If

        AddRowFlg = True

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ追加
            Using con As New DataContext(conn)

                Dim idx = dgvCat.Rows.Count()

                ' 行追加
                dgvCat.Rows.Add()

                ' 種別マスタ取得
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                Dim kindList = kindResult.ToList()

                ' 猫一覧取得
                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim newNo = 0

                ' 使用できるNoを判定
                For i As Integer = 1 To tblCat.ToList().Count() + 1
                    Dim selectNo = i
                    If tblCat.SingleOrDefault(Function(x As Cat) x.No = selectNo) Is Nothing Then
                        newNo = selectNo
                    End If
                Next

                ' No（プライマリなので編集不可）
                Dim no = New DataGridViewTextBoxCell()
                no.Value = newNo
                dgvCat(0, idx) = no
                dgvCat(0, idx).ReadOnly = True

                ' 名前
                Dim name = New DataGridViewTextBoxCell()
                dgvCat(1, idx) = name

                ' 性別
                Dim sex = New DataGridViewComboBoxCell()
                sex.Items.AddRange({"♂", "♀"})
                sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(2, idx) = sex

                ' 年齢
                Dim age = New DataGridViewTextBoxCell()
                dgvCat(3, idx) = age

                ' 種別
                Dim kind = New DataGridViewComboBoxCell()
                kind.DataSource = kindList
                kind.DisplayMember = "KindName"
                kind.ValueMember = "KindCd"
                kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(4, idx) = kind

                ' 好物
                Dim favorite = New DataGridViewTextBoxCell()
                dgvCat(5, idx) = favorite

            End Using

            conn.Close()

        End Using

    End Sub

更新処理

更新処理では、データグリッドビューから直接値を取得して、データベースに存在しなければ追加、存在すれば更新というようにしました。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.SingleOrDefault(Function(x As Cat) x.No = no)
                    If (target Is Nothing) Then
                        ' データ作成
                        Dim Cat As New Cat()
                        Cat.No = dgvCat(0, i).Value
                        Cat.Name = dgvCat(1, i).Value
                        Cat.Sex = dgvCat(2, i).Value
                        Cat.Age = dgvCat(3, i).Value
                        Cat.KindCd = dgvCat(4, i).Value
                        Cat.Favorite = dgvCat(5, i).Value
                        Table.InsertOnSubmit(Cat)

                    Else

                        ' データ変更
                        target.Name = dgvCat(1, i).Value
                        target.Sex = dgvCat(2, i).Value
                        target.Age = dgvCat(3, i).Value
                        target.KindCd = dgvCat(4, i).Value
                        target.Favorite = dgvCat(5, i).Value

                    End If
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

起動してみる

とりあえず検索します。

追加ボタンをクリックすると空行が追加されます。

追加された行に値を設定します。

更新ボタンをクリック、再検索後の画面が表示されます。

まとめ

年の瀬となり忙しくなってまいりましたが
なんとか更新していきたいと思います。

次回はどうしようかな。。

ではでは。

【VB.NET】DataGridView を直接変更してデータを更新してみる

2019-10-02T09:28:19+09:00

今回は、データグリッドビューの内容を直接編集してデータを更新したいと思います。

プログラムは例によって前回のものを。
【VB.NET】SQLiteに接続してデータを登録してみる

プログラム修正

検索処理

取得したデータを走査して1行ずつ作成していくように変更します。

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    ' 種別マスタ取得
                    Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                    Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                    Dim kindList = kindResult.ToList()

                    ' 猫一覧取得
                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    'dgvCat.DataSource = result.ToList()
                    Dim list As List(Of Cat) = result.ToList()
                    Dim i As Integer = 0
                    dgvCat.Rows.Clear()
                    For i = 0 To list.Count() - 1

                        Dim cat = list(i)

                        ' 行追加
                        dgvCat.Rows.Add()

                        ' No（プライマリなので編集不可）
                        Dim no = New DataGridViewTextBoxCell()
                        no.Value = cat.No
                        dgvCat(0, i) = no
                        dgvCat(0, i).ReadOnly = True

                        ' 名前
                        Dim name = New DataGridViewTextBoxCell()
                        name.Value = cat.Name
                        dgvCat(1, i) = name

                        ' 性別
                        Dim sex = New DataGridViewComboBoxCell()
                        sex.Items.AddRange({"♂", "♀"})
                        sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(2, i) = sex
                        dgvCat(2, i).Value = cat.Sex

                        ' 年齢
                        Dim age = New DataGridViewTextBoxCell()
                        age.Value = cat.Age
                        dgvCat(3, i) = age

                        ' 種別
                        Dim kind = New DataGridViewComboBoxCell()
                        kind.DataSource = kindList
                        kind.DisplayMember = "KindName"
                        kind.ValueMember = "KindCd"
                        kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(4, i) = kind
                        dgvCat(4, i).Value = cat.KindCd

                        ' 好物
                        Dim favorite = New DataGridViewTextBoxCell()
                        favorite.Value = cat.Favorite
                        dgvCat(5, i) = favorite

                    Next

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

更新処理

データグリッドビューに表示されているデータを全て更新するように変更します。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.Single(Function(x As Cat) x.No = no)
                    ' データ変更
                    target.Name = dgvCat(1, i).Value
                    target.Sex = dgvCat(2, i).Value
                    target.Age = dgvCat(3, i).Value
                    target.KindCd = dgvCat(4, i).Value
                    target.Favorite = dgvCat(5, i).Value
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

コンボボックスの制御

以前の記事でもやりましたが、
コンボボックスがワンクリックで開くように仕込みを入れます。

    ''' 
    ''' データグリッドビューセルクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgvCat_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCat.CellClick
        Dim dgv As DataGridView = CType(sender, DataGridView)
        gridComboHandle(dgv, e)
    End Sub

    ''' 
    ''' データグリッドビューのコンボボックス制御
    ''' 
    ''' 
    ''' 
    Private Sub gridComboHandle(dgv As DataGridView, e As DataGridViewCellEventArgs)

        ' 対象の列だった場合
        If dgv.Columns(e.ColumnIndex).Name = "ColSex" Or dgv.Columns(e.ColumnIndex).Name = "ColKind" Then
            SendKeys.SendWait("{F4}")
        End If

    End Sub

起動してみる

データ検索後の画面。
無事にデータが表示され、データグリッドビューにコンボボックスも表示されています。

1行目の種別を変更して、「更新」ボタンをクリックします。

無事に変更できました。

まとめ

やり方としてはいまいちで、WPFみたいにMVVMとかバインディングとかできるかと思いますが、これはこれでもしかしたら需要があるかもしれません。

次回は追加処理をしてみます。

ではでは。

【VB.NET】SQLiteに接続してデータを登録してみる

2019-09-30T09:58:53+09:00

VBでSQLite、データ検索までしたので続いて登録、更新、削除をしてみました。
C#からの移植ではありますが、微妙に違うところもありますね。

プログラムは前回のものを流用します。
【VB.NET】SQLiteからデータを取得して表示する

画面の修正

画面に追加、更新、削除ボタンを追加し、それぞれにクリックイベントを設定します。

プログラム修正

検索処理の修正

追加更新削除後に再検索するため、別メソッドに切り出します。

        ''' 
        ''' 検索ボタンクリックイベント.
        ''' 
        ''' 
        ''' 
        Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
            search()
        End Sub

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    dgvCat.DataSource = result.ToList()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

データ追加

    ''' 
        ''' 追加ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ追加
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' データ作成
                    Dim Cat As New Cat()
                    Cat.No = 5
                    Cat.Name = "こなつ"
                    Cat.Sex = "♀"
                    Cat.Age = 7
                    Cat.KindCd = "01"
                    Cat.Favorite = "布団"
                    ' データ追加
                    Table.InsertOnSubmit(Cat)
                    ' DBの変更を確定
                    con.SubmitChanges()

                End Using

                conn.Close()

            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを追加しました。")

        End Sub

追加ボタンをクリックすると、固定ではありますがデータが追加されます。

データ更新

        ''' 
        ''' 更新ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ更新
                Using con As New DataContext(conn)
                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ変更
                        target.Favorite = "高いところ"
                        ' DBの変更を確定
                        con.SubmitChanges()
                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを更新しました。")

        End Sub

更新ボタンをクリックすると、選択された行の好物が更新されます。

データ削除

        ''' 
        ''' 削除ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ削除
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ削除
                        Table.DeleteOnSubmit(target)
                        ' DBの変更を確定
                        con.SubmitChanges()

                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを削除しました。")

        End Sub

削除ボタンをクリックすると、選択されている行のデータが削除されます。

まとめ

とりあえず簡単ではありますが追加、更新、削除ができました。

次回はデータグリッドを直接編集してデータの更新等が行えるようにしたいと思います。

ではでは。

【VB.NET】SQLiteに接続してデータを取得してみる

2019-09-27T13:09:52+09:00

今回はデータベースから取得したデータを表示したいと思います。

プログラムは前回のものを流用します。
【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

データの追加

前回作成したテーブルにデータをツール、もしくはコマンドラインから追加します。

    INSERT INTO MSTKIND VALUES ("01", "キジトラ");
    INSERT INTO MSTKIND VALUES ("02", "長毛種（不明）");
    INSERT INTO MSTKIND VALUES ("03", "ミケ（っぽい）");
    INSERT INTO MSTKIND VALUES ("04", "サビ");
    INSERT INTO MSTKIND VALUES ("09", "その他");
    INSERT INTO TBLCAT VALUES('1','そら','♂','6','01','犬の人形');
    INSERT INTO TBLCAT VALUES('2','りく','♂','5','02','人間');
    INSERT INTO TBLCAT VALUES('3','うみ','♀','4','03','高級ウェットフード');
    INSERT INTO TBLCAT VALUES('4','こうめ','♀','2','04','横取りフード');

追加したデータを確認します。

Linq でデータを取得、設定する

参照の追加

ソリューション・エクスプローラーからプロジェクトの「参照」を右クリックし、「参照の追加」を選択します。

「System.Data.Linq」で検索、チェックしてOKボタンをクリックします。

プログラム修正

インポート宣言の追加

次の記述を先頭に追加します。

    Imports System.Data.Linq

フォームロード時にコンボボックスにデータを設定する

次の記述をフォームロード時のイベントメソッドに追加します。

            ' 種別コンボボックスの内容をデータベースから取得して設定
            Using con As New DataContext(conn)
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim result As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x

                Dim empty As New Kind()
                empty.KindCd = ""
                empty.KindName = "指定なし"

                Dim list = result.ToList()
                list.Insert(0, empty)

                ' コンボボックスに設定
                cmbKind.DataSource = list
                cmbKind.DisplayMember = "kindName"

            End Using

検索ボタンのクリックイベント追加

デザイナー画面にて配置した「検索」ボタンをダブルクリックします。

検索処理の実装

自動生成されたメソッドに次の処理を記述します。

    ''' 
    ''' 検索ボタンクリックイベント.
    ''' 
    ''' 
    ''' 
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim result As IQueryable(Of Cat)

                If (searchKind = "") Then

                    ' 種別が選択されていなければ名前のみ前方一致指定
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName)
                             Order By x.No
                             Select x
                Else

                    ' 種別が選択されていれば名前＋種別で検索
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                             Order By x.No
                             Select x
                End If

                ' データグリッドビューに設定
                dgvCat.DataSource = result.ToList()

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

起動してみる

起動後の画面。

コンボボックスに無事にデータが設定されました。

検索ボタンをクリックして、データグリッドビューにも無事にデータが表示されました。

まとめ

C#とほぼ同じなので難しくはないですね。

次回はデータの追加・更新・削除なんかもやってみます。

ではでは。

【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

2019-09-25T09:35:38+09:00

今回はSQLiteを使ったプログラムを作っていきます。

プログラムは前回のものを流用しませんが、WPFのものを移植する感じになります。

【WPF】SQLiteを使ってデータを DataGrid に表示してみる

SQLiteのパッケージをインストール

SQLite を利用するためのパッケージをインストールします。

ソリューションエクスプローラーからプロジェクトを選択、右クリックし「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、検索窓に「SQLite」を入力し「System.Data.SQLite」を選択、インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

ソリューションエクスプローラーの「参照」を開くと「System.Data.*」が追加されていることが確認できます。

ビルドを実行する

上部メニューの「ビルド」＞「ソリューションのリビルド」を選択します。

プロジェクトのディレクトリ＞bin＞Target＞x86 、x64 に「SQLite.Interop.dll」が出力されていることが確認できます。

プログラム修正

ロードイベントの追加

デザイナー画面を開き、フォームを選択した状態でプロパティウィンドウの「Load」欄をダブルクリックします。

次のようにプログラムが自動生成されます。

Form1.vb

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        End Sub
    End Class

フォームロード時にテーブルを作成する

フォームロード（アプリケーション起動時）に、テーブルを作成するようにプログラムを修正、
先程追加したイベントに次の処理を記述します。

Form1.vb

    Imports System.Data.SQLite

    Public Class Form1

        ''' 
        ''' フォームロード時の処理
        ''' 
        ''' 
        ''' 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' テーブルが存在しなければ作成
                Using command = conn.CreateCommand()
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("CREATE TABLE IF NOT EXISTS MSTKIND (")
                    sb.Append("  KIND_CD NCHAR NOT NULL")
                    sb.Append("  , KIND_NAME NVARCHAR")
                    sb.Append("  , primary key (KIND_CD)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                    sb.Clear()
                    sb.Append("CREATE TABLE IF NOT EXISTS TBLCAT (")
                    sb.Append("  NO INT NOT NULL")
                    sb.Append("  , NAME NVARCHAR NOT NULL")
                    sb.Append("  , SEX NVARCHAR NOT NULL")
                    sb.Append("  , AGE INT DEFAULT 0 NOT NULL")
                    sb.Append("  , KIND_CD NCHAR DEFAULT 0 NOT NULL")
                    sb.Append("  , FAVORITE NVARCHAR")
                    sb.Append("  , primary key (NO)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

    End Class

アプリケーションの実行

上部メニューの開始ボタンをクリックし、アプリケーションを実行すると「MSTKIND」、「TBLCAT」テーブルが作成されます。

A5m2などを使って確認をしてください。

以上でひとまず完了です。

まとめ

少し長くなったのでここまにして続きは次回にします。

次回はコンボボックス、データグリッドにデータベースから取得したデータを表示したいと思います。

ではでは。

【VB.NET】データグリッドビューでチェックされた行の背景色を変更する

2019-09-20T09:23:00+09:00

引き続きVB.NETの話し。
せっかくチェックボックスにイベントを仕込んだのでそれをトリガーにして背景色を変更する処理を実装したいと思います。

プログラムは下記のものを流用します。
【VB.NET】データグリッドビューで行毎のチェックボックスにイベントを仕込む## プログラムの修正

背景色の定義を追加

グローバルの定数として背景色を定義します。

Form1.vb

    ' 通常時の背景色
    Private Const BG_NORMAL = "#FFFFFF"
    ' 強調時の背景色
    Private Const BG_HIGHLIGHT = "#FFE7E7"
    ' 選択時の背景色
    Private Const BG_SELECTED = "#EF9A94"

既存処理の修正

データグリッドビューのセル値が変更（が確定）された際のイベントで背景色を変更します。

Form1.vb

    ''' 
    ''' データグリッドビューのセル値が変更（が確定）された際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellValueChanged

        If (TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewCheckBoxCell) Then
            Dim chk As DataGridViewCheckBoxCell = dgv(e.ColumnIndex, e.RowIndex)
            Dim dgs = New DataGridViewCellStyle()
            If (chk.Value = True) Then
                dgs.BackColor = System.Drawing.ColorTranslator.FromHtml(BG_SELECTED)
            Else
                dgs.BackColor = System.Drawing.ColorTranslator.FromHtml(BG_NORMAL)
            End If
            dgv.Rows(e.RowIndex).DefaultCellStyle = dgs
        End If
    End Sub

新規イベントの追加

CellMouseEnter、CellMouseLeaveの２つを追加します。

マウスオーバーした際に背景色を変更して強調します。

Form1.vb

    ''' 
    ''' データグリッドビューのセルにマウスポインターがフォーカスした際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellMouseEnter(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellMouseEnter
        ' ヘッダーは処理しない
        If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then
            Dim dgv As DataGridView = CType(sender, DataGridView)
            ' 背景色を変更する
            dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = System.Drawing.ColorTranslator.FromHtml(BG_HIGHLIGHT)
        End If
    End Sub

    ''' 
    ''' データグリッドビューのセルからマウスポインターがフォーカスアウトした際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellMouseLeave
        ' ヘッダーは処理しない
        If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then
            Dim dgv As DataGridView = CType(sender, DataGridView)
            If (dgv(0, e.RowIndex).Value) Then
                ' 選択された状態に戻す
                dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = System.Drawing.ColorTranslator.FromHtml(BG_SELECTED)
            Else
                ' 背景色を戻す
                dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = System.Drawing.ColorTranslator.FromHtml(BG_NORMAL)
            End If
        End If
    End Sub

起動してみる

マウスポインターがある行が強調表示されます。

チェックすると選択された行の背景色が変わります。

無事にマウスオーバーで強調表示、チェックボックスにチェックで選択表示ができました。

まとめ

C#と同様、VB.NETでも色々な事ができそうです。
せっかくなので、この後はまたデータベースからデータをひっぱってきたりってのをやろうかと思います。

ではでは。

【VB.NET】データグリッドビューで行毎のチェックボックスにイベントを仕込む

2019-09-13T09:40:08+09:00

今回は、データグリッドに配置したチェックボックス列にイベントを仕込みたいと思います。

プログラムは前回のものを流用。
【VB.NET】データグリッドビューで行毎のコンボボックスにイベントを仕込む

プログラムの修正

新規イベントの追加

データグリッドビューの現在のセル状態が変更された際のイベントを追加します。

Form1.vb

    ''' 
    ''' データグリッドビューの現在のセル状態が変更された際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CurrentCellDirtyStateChanged(sender As Object, e As EventArgs) Handles dgv.CurrentCellDirtyStateChanged
        ' 対象のセルを判定
        If dgv.CurrentCellAddress.X = 0 AndAlso dgv.IsCurrentCellDirty Then
            ' 変更を確定する
            dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)
        End If
    End Sub

データグリッドビューのセル値が変更された際のイベントを追加

Form1.vb

    ''' 
    ''' データグリッドビューのセル値が変更（が確定）された際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellValueChanged

        If (TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewCheckBoxCell) Then
            Dim chk As DataGridViewCheckBoxCell = dgv(e.ColumnIndex, e.RowIndex)
            MessageBox.Show(e.RowIndex + 1 & "行目のチェックボックス値：" & chk.Value)
        End If

    End Sub

データグリッドビューのセルがクリック（マウスダウン）された際のイベントを追加

Form1.vb

    ''' 
    ''' データグリッドビューのセルをクリック（マウスダウン）した際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseDown
        If (TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewCheckBoxCell) Then
            Dim cell As DataGridViewCheckBoxCell = dgv(e.ColumnIndex, e.RowIndex)
            cell.Value = If(cell.Value = False, True, False)
            ' 変更を確定する
            dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)
            dgv.EndEdit()
        End If
    End Sub

起動してみる

無事に処理できましたね。

まとめ

次回は、チェックされた行の背景色を変更してみたいと思います。

【VB.NET】データグリッドビューでチェックされた行の背景色を変更する

ではでは。

【VB.NET】データグリッドビューで行毎のコンボボックスにイベントを設定する

2019-09-11T09:55:11+09:00

引き続きVB.NETの話し。
今回はデータグリッドビューに配置したコンボボックスにイベントを設定するといったことをやってみます。

プログラムは前回のものを流用します。
【VB.NET】データグリッドビューを動的に作成する

プログラムの修正

新規メソッド追加

ドロップダウンが（選択されて）閉じられた際の処理を新規メソッドで定義

Form1.vb

    ''' 
    ''' データグリッドビューのコンボボックスが閉じられた際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dataGridViewComboBox_DropDownClosed(ByVal sender As Object,
                ByVal e As EventArgs)
        Dim cb As DataGridViewComboBoxEditingControl =
            DirectCast(sender, DataGridViewComboBoxEditingControl)
        cb.EditingControlDataGridView.NotifyCurrentCellDirty(True)

        ' 行ごとに処理を変更する
        If cb.EditingControlRowIndex = 0 Then
            MessageBox.Show("1行目のコンボボックス：" & cb.SelectedItem)
        ElseIf cb.EditingControlRowIndex = 1 Then
            MessageBox.Show("2行目のコンボボックス：" & cb.SelectedItem)
        ElseIf cb.EditingControlRowIndex = 2 Then
            MessageBox.Show("3行目のコンボボックス：" & cb.SelectedItem)
        End If
        cb.EditingControlDataGridView.EndEdit()
    End Sub

ここで、行インデックスや、列インデックス、または名前などを判定して処理を分岐します。

新規イベント追加

デザイナー画面でデータグリッドビューを選択し、プロパティ画面から対象のイベントを作成します。

データグリッドビューのセル内に設置したコンボボックスの内容が表示された際に、ドロップダウンが（選択されて）閉じられたイベントを追加します。

From1.vb

    ''' 
    ''' 編集中コントロールが表示されている際のイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
        Dim cb = TryCast(e.Control, DataGridViewComboBoxEditingControl)
        If cb Is Nothing Then Return
        RemoveHandler cb.DropDownClosed, AddressOf dataGridViewComboBox_DropDownClosed
        AddHandler cb.DropDownClosed, AddressOf dataGridViewComboBox_DropDownClosed
    End Sub

既存処理の修正

データグリッド内のコンボボックスを選択した際に、
同じコンボボックスを連続でクリックすると正しく開かない問題が発覚したため既存の処理も修正。

Form1.vb

    ''' 
    ''' データグリッドビューセルクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
        Dim dgv As DataGridView = CType(sender, DataGridView)
        gridComboHandle(dgv, e)
    End Sub

    ''' 
    ''' データグリッドビューのコンボボックス制御
    ''' 
    ''' 
    ''' 
    Private Sub gridComboHandle(dgv As DataGridView, e As DataGridViewCellEventArgs)

        ' 対象の列だった場合
        If dgv.Columns(e.ColumnIndex).Name = "col3" Then
            SendKeys.SendWait("{F4}")
        End If

    End Sub

データグリッドビューのセルエンターイベントで処理していたのを、
セルクリックに変更して、更に「SendKey.Send」を「SendKey.SendWait」に変更。

起動してみる

起動後の画面です。

コンボボックスを選択します。

イベントが処理され、メッセージボックスが表示されました。

まとめ

データグリッドビューにコンポーネントを配置するってよくある話しだと思うんですが、何で標準でもっと便利にしてくれないんでしょうかね。

ちょっとハマった部分は、コンボボックスを1回で開くところですね。
まあなんとかなってよかったです。

また何かあれば記事にしようと思います。

ではでは。

【VB.NET】データグリッドビューを動的に作成して行毎に違う内容のコンボボックスを表示する

2019-09-10T09:47:55+09:00

ちょっと仕事の関係でVB.NETを使う機会があったので、備忘的な記事になります。

完全にデータグリッドビューの使い方からは外れてしまうのかもしれませんが、
行ごとに別の内容のコンボボックスを表示するといったことをやりました。

まずはサンプルプロジェクトの作成から。

プロジェクトの新規作成

VisualStudio2017 を起動し、上部メニューの「ファイル」＞「新規作成」＞「プロジェクト」を選択します。

新しいプロジェクト作成ウィザードが表示されるので、
「Visual Basic」＞「Windowsフォームアプリケーション」を選択、名前を入力して「OK」ボタンをクリックします。

作成後はデザイナー画面が表示されます。

とりあえずプロジェクトの作成はこれで完了です。

データグリッドビューの配置

ツールボックスから「DataGridView」を選択して画面に配置します。
サイズなんかはとりあえず適当で大丈夫です。

名前の設定

プロパティから、「Name」の項目に「dgv」を設定しておきます。
（コードビハインドから操作する際にこの項目を使用します）

イベントの追加

データグリッドビューを選択した状態でプロパティから、イベントメニューを選択、
「Load」の項目をダブルクリックして起動時の処理を追加します。

また、データグリッドビューのセルに設置するコンボボックスのために、
「CellEnter」の項目もイベントを追加しておきます。

処理の実装

Form1.vb（コード）に、プログラムを記述します。

ロードイベント

    ''' 
    ''' フォームロードイベント.
    ''' 
    ''' 
    ''' 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim mainList As String() = {"ユーザー", "集客", "行動", "コンバージョン"}
        Dim userList As String() = {"アクティブユーザー", "ライフタイムバリュー", "コポート分析"}
        Dim syukyakuList As String() = {"全てのトラフィック", "AdWords", "Search Console"}
        Dim koudouList As String() = {"行動フロー", "サイトコンテンツ", "サイトの速度"}

        ' データグリッドの設定
        dgv.AllowUserToAddRows = False
        dgv.AllowUserToResizeRows = False
        dgv.AllowUserToResizeColumns = False
        dgv.RowHeadersVisible = False

        ' ヘッダースタイル定義（共通）
        Dim headerStyle As New DataGridViewCellStyle()
        headerStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        ' チェックボックス列追加
        Dim checkCol As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        checkCol.HeaderCell.Style = headerStyle
        checkCol.HeaderText = "選択"
        checkCol.Name = "col1"
        checkCol.DataPropertyName = "col1"
        checkCol.Width = 40
        dgv.Columns.Add(checkCol)

        ' スタイル設定
        Dim checkStyle As New DataGridViewCellStyle()
        checkStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        checkCol.DefaultCellStyle = checkStyle

        ' テキスト列追加
        Dim textCol As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        textCol.HeaderCell.Style = headerStyle
        textCol.HeaderText = "メニュー"
        textCol.Name = "col2"
        textCol.DataPropertyName = "col2"
        textCol.Width = 120
        dgv.Columns.Add(textCol)

        ' コンボボックス列の追加
        Dim cbCol As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        cbCol.HeaderCell.Style = headerStyle
        cbCol.HeaderText = "項目"
        cbCol.Name = "col3"
        cbCol.DataPropertyName = "col3"
        cbCol.Width = 150
        dgv.Columns.Add(cbCol)

        Dim i As Short
        For i = 0 To mainList.Length - 1

            ' 行追加
            dgv.Rows.Add()

            ' チェックボックス
            Dim chk As New DataGridViewCheckBoxCell()
            chk.Value = False
            dgv(0, i) = chk

            ' テキストボックス
            Dim txt As New DataGridViewTextBoxCell()
            txt.Value = mainList(i)
            dgv(1, i) = txt

            Dim cmb As New DataGridViewComboBoxCell()
            If (mainList(i) = "ユーザー") Then
                cmb.Items.AddRange(userList)
                dgv(2, i) = cmb
                dgv(2, i).Value = userList(0)
            ElseIf (mainList(i) = "集客") Then
                cmb.Items.AddRange(syukyakuList)
                dgv(2, i) = cmb
                dgv(2, i).Value = syukyakuList(0)
            ElseIf (mainList(i) = "行動") Then
                cmb.Items.AddRange(koudouList)
                dgv(2, i) = cmb
                dgv(2, i).Value = koudouList(0)
            ElseIf (mainList(i) = "コンバージョン") Then
                ' コンボボックスを設定しない
            End If
        Next
    End Sub

データグリッドビューのセルエンターイベント

    ''' 
    ''' データグリッドビューセルエンターイベント.
    ''' 
    ''' 
    ''' 
    Private Sub dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellEnter
        ' データグリッドビューを取得
        Dim dgv As DataGridView = CType(sender, DataGridView)
        gridComboHandle(dgv, e)
    End Sub

データグリッドビューのコンボボックス制御

通常だと、データグリッドビューに設置したコンボボックスは一回のクリックで開いてくれない。
それをなんとかするための措置。

    ''' 
    ''' データグリッドビューのコンボボックス制御
    ''' 
    ''' 
    ''' 
    Private Sub gridComboHandle(dgv As DataGridView, e As DataGridViewCellEventArgs)
        ' 対象のグリッドであれば
        If dgv.Columns(e.ColumnIndex).Name = "col3" Then
            SendKeys.Send("{F4}")
        End If

    End Sub

起動してみる

ひとまずグリッドに内容が表示されました。

1行目のコンボボックスの内容です。

2行目のコンボボックスの内容です。

ひとまず目的のことはできましたね。

まとめ

本来であれば、データグリッドビューではなく他のコントローラで実現すべきところなんだと思いますが、顧客からの要望なんかでやらざるをえない場合もありますよね。

何かの参考になれば。

ではでは。