今回やること

1. ASP.NETからMySQLを呼び出す準備
2. ASP.NETからMySQLに接続して、データを取得する（SELECT）
3. UPDATE、INSERT、DELETEでデータを操作する

VisualSudioの準備

サーバーエクスプローラーからデータ接続をクリックしてデータベースを追加する。

データソースはMySQL Databaseを選択

ローカルに接続するので、Server name: localhost, User name: rootに設定。
passwordはMySQLに接続する時のパスワード　Database nameは接続するデータべース。

データ接続に追加されたことを確認。

接続確認：右クリックしてデータを取得

データが表示されたことを確認

ASP.netから呼び出す

MySQLへ接続するために必要な情報を取得

port確認

mysql> status
--------------
mysql  Ver 8.0.26 for Win64 on x86_64 (MySQL Community Server - GPL)
:
:
TCP port:               3306
:
:
--------------

hostとuserを確認

# localhost/rootに繋ぐ
mysql> select host, user from mysql.user;
+-----------+------------------+
| host      | user             |
+-----------+------------------+
| localhost | mysql.infoschema |
| localhost | mysql.session    |
| localhost | mysql.sys        |
| localhost | root             |
+-----------+------------------+
4 rows in set (0.03 sec)

ASP.NETからSELECT文で取得する

MySQLへ接続するためのコードをModuleに追加

MySQLへ接続するモジュール

Imports System.Web
Imports MySql.Data.MySqlClient
Module SQLModule
    Public mysqlCon As New MySqlConnection
    Public sqlCommand As New MySqlCommand
    
    'MySQLへ接続
    Sub sql_st()
        Dim Builder = New MySqlConnectionStringBuilder()
        Builder.Server = "localhost"
        Builder.SslMode = MySqlSslMode.None
        Builder.Port = 3306
        Builder.UserID = "root"
        Builder.Password = ""
        Builder.Database = "test"

        Dim ConStr = Builder.ToString()
        mysqlCon.ConnectionString = ConStr
        mysqlCon.Open()
    End Sub

    '切断
    Sub sql_cl()
        mysqlCon.Close()
    End Sub

End Module

SELECTデータ取得用

Function SelectFromSQL(ByVal query As String) As DataSet
    Dim ds As New DataSet
    Call sql_st()
    Try
        Dim Adapter = New MySqlDataAdapter(query, mysqlCon)
        Adapter.Fill(ds)
        Call sql_cl()
        Return ds
    Catch ex As Exception
        Call sql_cl()
        Return ds
    End Try
End Function

SQL側の準備

# Genderカラムをchar(3)へ変更
mysql> show columns from test_users;
+--------+--------------+------+-----+---------+----------------+
| Field  | Type         | Null | Key | Default | Extra          |
+--------+--------------+------+-----+---------+----------------+
| id     | int unsigned | NO   | PRI | NULL    | auto_increment |
| No     | int          | YES  |     | NULL    |                |
| Name   | varchar(100) | NO   |     | NULL    |                |
| Gender | char(1)      | YES  |     | NULL    |                |
| Age    | tinyint      | YES  |     | NULL    |                |
| Intro  | varchar(255) | YES  |     | NULL    |                |
+--------+--------------+------+-----+---------+----------------+
6 rows in set (0.13 sec)

mysql> alter table test_users change column Gender Gender char(3);
Query OK, 11 rows affected (0.69 sec)
Records: 11  Duplicates: 0  Warnings: 0

mysql> show columns from test_users;
+--------+--------------+------+-----+---------+----------------+
| Field  | Type         | Null | Key | Default | Extra          |
+--------+--------------+------+-----+---------+----------------+
| id     | int unsigned | NO   | PRI | NULL    | auto_increment |
| No     | int          | YES  |     | NULL    |                |
| Name   | varchar(100) | NO   |     | NULL    |                |
| Gender | char(3)      | YES  |     | NULL    |                |
| Age    | tinyint      | YES  |     | NULL    |                |
| Intro  | varchar(255) | YES  |     | NULL    |                |
+--------+--------------+------+-----+---------+----------------+
6 rows in set (0.03 sec)

データの確認
mysql> select * from test_users;
+----+------+--------------+--------+------+--------------------------+
| id | No   | Name         | Gender | Age  | Intro                    |
+----+------+--------------+--------+------+--------------------------+
|  1 |    1 | テスト１     | 男     |   28 | よろしくね               |
|  2 |    2 | テスト花子   | 女     |   20 | NULL                     |
| 25 |    3 | テスト太郎   | 男     |   23 | 趣味はキャンプ           |
| 26 |    4 | テスト洋子   | 女     |   45 | 私は洋子                 |
| 27 |    5 | テスト右衛門 | 男     |   68 | ポケモンゲットだぜ!      |
| 28 |    6 | テストめい   | 女     |   24 | おねぇちゃんのばかぁ!    |
| 29 |    7 | テスト愛     | 女     |   17 | 貢いでくれる人が好きです |
| 30 |    8 | テスト三郎   | 男     |   43 | お金ならありません       |
| 31 |    9 | テスト志郎   | 男     |   38 | デュクシ、デュクシ       |
| 32 |   10 | テスト和恵   | 女     |   48 | NULL                     |
| 33 | NULL | テスト陽太   | 男     | NULL | NULL                     |
+----+------+--------------+--------+------+--------------------------+
11 rows in set (0.03 sec)

SELECT文でデータを取得する

Public Class WebForm3
    Inherits System.Web.UI.Page

    'SELECT文
    Private Const SELECT_SQL As String = "" &
        " SELECT " &
        "   Name, Gender, Age, Intro " &
        " From " &
        "   test_users " &
        " Where " &
        "   id = {0} "
    
    '検索ボタン
    Protected Sub BtnSearch_Click1(sender As Object, e As EventArgs) Handles BtnSearch.Click
        Dim ssql As String
        Dim code As Integer
        Dim dsData As DataSet

        '　エラーハンドリング
        If txtCode.Text = String.Empty Then
            lblErr.Text = "表示するコードを入力してください"
            txtName.Text = String.Empty
            txtGender.Text = String.Empty
            txtAge.Text = String.Empty
            txtIntro.Text = String.Empty
            Exit Sub
        End If

        If IsNumeric(txtCode.Text) = False Then
            lblErr.Text = "コードは数値で入力してください"
            txtName.Text = String.Empty
            txtGender.Text = String.Empty
            txtAge.Text = String.Empty
            txtIntro.Text = String.Empty
            Exit Sub
        End If

        code = Integer.Parse(StrConv(txtCode.Text, VbStrConv.Narrow))

        ' MySQLへ接続しデータを取得
        ssql = String.Format(SELECT_SQL, code)
        dsData = SelectFromSQL(ssql)

        'データがある場合は表示(NULLは空白)
        If dsData.Tables(0).Rows.Count > 0 Then
            txtName.Text = If(IsDBNull(dsData.Tables(0).Rows(0).Item("Name")), "", dsData.Tables(0).Rows(0).Item("Name"))
            txtGender.Text = If(IsDBNull(dsData.Tables(0).Rows(0).Item("Gender")), "", dsData.Tables(0).Rows(0).Item("Gender"))
            txtAge.Text = If(IsDBNull(dsData.Tables(0).Rows(0).Item("Age")), "", dsData.Tables(0).Rows(0).Item("Age"))
            txtIntro.Text = If(IsDBNull(dsData.Tables(0).Rows(0).Item("Intro")), "", dsData.Tables(0).Rows(0).Item("Intro"))
            lblRegister.Text = "更新"
        Else
            lblErr.Text = "データがありません"
            lblRegister.Text = "新規"
            txtName.Text = String.Empty
            txtGender.Text = String.Empty
            txtAge.Text = String.Empty
            txtIntro.Text = String.Empty
            Exit Sub
        End If
    End Sub
End Class

結果

ASP.netからMySQLを操作する

データ操作用

' 処理に成功したかどうかを返す
Function ImplementToSQL(ByVal query As String) As Boolean
    Call sql_st()

    Try
        sqlCommand.Connection = mysqlCon
        sqlCommand.CommandText = query
        sqlCommand.ExecuteNonQuery()
        Call sql_cl()
        Return True
    Catch ex As Exception
        Call sql_cl()
        Return False
    End Try
End Function

UPDATE文で上書き

UPDATE文

Private Const UPDATE_SQL As String = "" &
    " UPDATE " &
    "   test_users " &
    " SET " &
    "   Name='{1}', Gender='{2}', Age={3}, Intro='{4}' " &
    " WHERE " &
    "   id = {0} "

Protected Sub BtnRegister_Click(sender As Object, e As EventArgs) Handles BtnRegister.Click
    Dim selssql As String
    Dim ssql As String
    Dim dsData As DataSet
    Dim bRet As Boolean
    Dim lenstr As Integer
    Dim code As Integer
    Dim name As String = String.Empty
    Dim gender As String = String.Empty
    Dim age As Integer = 0
    Dim intro As String = String.Empty

    'エラーハンドリング
    If txtCode.Text = String.Empty Then
        lblErr.Text = "コードを入力してください"
        Exit Sub
    ElseIf IsNumeric(txtCode.Text) = False Then
        lblErr.Text = "コードは数値で入力してください"
        Exit Sub
    Else
        code = Integer.Parse(StrConv(txtCode.Text, VbStrConv.Narrow))
    End If

    lenstr = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(txtName.Text)
    If txtName.Text = String.Empty Then
        lblErr.Text = "名前を入力してください"
        Exit Sub
    ElseIf lenstr > 100 Then
        lblErr.Text = "名前は50文字以内で入力してください"
        Exit Sub
    Else
        name = txtName.Text
    End If

    lenstr = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(txtGender.Text)
    If txtGender.Text <> String.Empty Then
        If lenstr > 3 Then
            lblErr.Text = "性別は「男」か「女」で入力してください"
            Exit Sub
        Else
            gender = txtGender.Text
        End If
    End If

    If txtAge.Text <> String.Empty Then
        If IsNumeric(txtAge.Text) = False Then
            lblErr.Text = "年齢は数値で入力してください"
            Exit Sub
        Else
            age = Integer.Parse(StrConv(txtAge.Text, VbStrConv.Narrow))
        End If
    End If

    lenstr = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(txtIntro.Text)
    If txtIntro.Text <> String.Empty Then
        If lenstr > 255 Then
            lblErr.Text = "紹介は125文字以内で入力してください"
            Exit Sub
        Else
            intro = txtIntro.Text
        End If
    End If

    'MySQLへ接続
    'SELECT分でデータを探し、あればUPDATEする。
    selssql = String.Format(SELECT_SQL, code)
    dsData = SelectFromSQL(selssql)
    If dsData.Tables(0).Rows.Count > 0 Then
        ssql = String.Format(UPDATE_SQL, code, name, gender, age, intro)
    End If

    bRet = ImplementToSQL(ssql)
    If bRet = False Then
        lblErr.Text = "登録に失敗しました"
        Exit Sub
    End If
    lblErr.Text = "登録しました"
End Sub

結果

MySQLで結果を確認

mysql> select * from test_users where id = 1;
+----+------+----------+--------+------+------------+
| id | No   | Name     | Gender | Age  | Intro      |
+----+------+----------+--------+------+------------+
|  1 |    1 | テスト１ | 男     |   28 | よろしくね |
+----+------+----------+--------+------+------------+

mysql> select * from test_users where id = 1;
+----+------+------------+--------+------+------------+
| id | No   | Name       | Gender | Age  | Intro      |
+----+------+------------+--------+------+------------+
|  1 |    1 | テスト野郎 |        |   28 | よろしくね |
+----+------+------------+--------+------+------------+

INSERT文で追加

Private Const INSERT_SQL As String = "" &
    " INSERT INTO " &
    "   test_users " &
    "       ( id, Name, Gender, Age, Intro ) " &
    " VALUES " &
    "       ({0}, '{1}', '{2}', {3}, '{4}') "

Protected Sub BtnRegister_Click(sender As Object, e As EventArgs) Handles BtnRegister.Click
    Dim selssql As String
    Dim ssql As String
    Dim dsData As DataSet
    Dim bRet As Boolean
    Dim lenstr As Integer
    Dim code As Integer
    Dim name As String = String.Empty
    Dim gender As String = String.Empty
    Dim age As Integer = 0
    Dim intro As String = String.Empty

    'エラーハンドリング
     "~ 省略 ~"

    'MySQLへ接続
    'SELECT分でデータを探し、なければINSERTする。
    selssql = String.Format(SELECT_SQL, code)
    dsData = SelectFromSQL(selssql)
    If dsData.Tables(0).Rows.Count > 0 Then
        ssql = String.Format(UPDATE_SQL, code, name, gender, age, intro)
    Else
        ssql = String.Format(INSERT_SQL, code, name, gender, age, intro)
    End If

    bRet = ImplementToSQL(ssql)
    If bRet = False Then
        lblErr.Text = "登録に失敗しました"
        Exit Sub
    End If
    lblErr.Text = "登録しました"
End Sub

結果

mysql> select * from test_users where id=3;
Empty set (0.00 sec)

mysql> select * from test_users where id=3;
+----+------+----------+--------+------+-------+
| id | No   | Name     | Gender | Age  | Intro |
+----+------+----------+--------+------+-------+
|  3 | NULL | てすと３ |        |   90 |       |
+----+------+----------+--------+------+-------+
1 row in set (0.01 sec)

DELETE文で削除

Private Const DELETE_SQL As String = "" &
    " DELETE " &
    " FROM " &
    "   test_users " &
    " WHERE " &
    "   id = {0} "

Protected Sub BntDelete_Click(sender As Object, e As EventArgs) Handles BntDelete.Click
    Dim ssql As String
    Dim code As Integer
    Dim bRet As Boolean

    'エラーハンドリング
    If txtCode.Text = String.Empty Then
        lblErr.Text = "表示するコードを入力してください"
        txtName.Text = String.Empty
        txtGender.Text = String.Empty
        txtAge.Text = String.Empty
        txtIntro.Text = String.Empty
        Exit Sub
    End If

    If IsNumeric(txtCode.Text) = False Then
        lblErr.Text = "コードは数値で入力してください"
        txtName.Text = String.Empty
        txtGender.Text = String.Empty
        txtAge.Text = String.Empty
        txtIntro.Text = String.Empty
        Exit Sub
    End If

    code = Integer.Parse(StrConv(txtCode.Text, VbStrConv.Narrow))
    
    'MySQLへ接続
    ssql = String.Format(DELETE_SQL, code)

    bRet = ImplementToSQL(ssql)
    If bRet = False Then
        lblErr.Text = "削除に失敗しました"
        Exit Sub
    End If
    lblErr.Text = "削除しました"
End Sub

結果

mysql> select * from test_users where id=3;
+----+------+----------+--------+------+-------+
| id | No   | Name     | Gender | Age  | Intro |
+----+------+----------+--------+------+-------+
|  3 | NULL | てすと３ |        |   90 |       |
+----+------+----------+--------+------+-------+
1 row in set (0.00 sec)

mysql> select * from test_users where id=3;
Empty set (0.00 sec)

参考資料

VB.NETでMySQLに接続してデータグリッドに表示【初心者向】
VB.NETでMySQLに接続
 VB.NETでデータベースを操作
 【MySQL】ポートの確認方法や変更方法について簡単に分かりやすく解説。
MySQLでユーザー一覧を確認する「mysql.userテーブル」
文字列を全角／半角に変換するには？（VB.NET関数活用）