【MySQL】VB.net フォームアプリケーションでSQLを操作するクラス(自分用)

わざわざモジュールの名前を分けてSQL実行モジュールを呼び出しているのは、
フォームから呼び出した時の可読性を高める為です。

フォームで呼び出す際は、引数にDataGridViewオブジェクトとSQL文を指定します。

Imports MySQL.Data.MySqlClient

Public Class MySqlClass

    Const IP As String = "サーバーのアドレス"
    Const PORTNO As Integer = 3306
    Const USERNAME As String = "ユーザー名"
    Const PASSWORD As String = "パスワード"
    Const DBNAME As String = "データベース名"

    Sub SelectDatagridShow(dataG As DataGridView, StrSQL As String)
        'SELECT文等
        ShowTypeSQL(dataG, StrSQL)
    End Sub

    Sub InsertDB(StrSQL As String)
        'INSERT文
        OperationTypeSQL(StrSQL)
    End Sub

    Sub UpdateDB(StrSQL As String)
        'UPDATE文
        OperationTypeSQL(StrSQL)
    End Sub

    Sub DeleteDB(StrSQL As String)
        'DELETE文
        OperationTypeSQL(StrSQL)
    End Sub

    Sub ShowTypeSQL(dataG As DataGridView, StrSQL As String)
        'DataGridViewに表示する時はこのモジュールを使う
        Dim Builder = New MySqlConnectionStringBuilder()

        With Builder
            .Server = IP
            .Port = PORTNO
            .UserID = USERNAME
            .Password = PASSWORD
            .Database = DBNAME
        End With

        Dim ConStr = Builder.ToString()
        Dim Con As New MySqlConnection

        Con.ConnectionString = ConStr
        Con.Open()

        Dim SqlStr = StrSQL
        Dim Adapter = New MySqlDataAdapter(SqlStr, Con)
        ' データを取得
        Dim Ds As New DataSet
        Adapter.Fill(Ds)
        dataG.DataSource = Ds.Tables(0)
        Con.Close()
    End Sub

    Sub OperationTypeSQL(StrSQL As String)
        'DataGridViewに表示しない時はこのモジュールを使う
        Dim Builder = New MySqlConnectionStringBuilder()

        With Builder
            .Server = IP
            .Port = PORTNO
            .UserID = USERNAME
            .Password = PASSWORD
            .Database = DBNAME
        End With

        Dim ConStr = Builder.ToString()
        Dim Con As New MySqlConnection

        Con.ConnectionString = ConStr
        Con.Open()

        Dim SqlStr = StrSQL
        Dim Adapter = New MySqlDataAdapter(SqlStr, Con)
        Dim Ds As New DataSet
        Adapter.Fill(Ds)
        Con.Close()
    End Sub

End Class

このクラスは今後使いながらアレンジしていきたいなと思います。