VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE），小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3942字，纯文字阅读大概需要6分钟。

内容图文

VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

留存备用。

Imports MySql.Data.MySqlClient
 
 
Public Class Form1
 
 
    ' GLOBAL DECLARATIONS
    Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;"
    Dim con As New MySqlConnection(conString)
    Dim cmd As MySqlCommand
    Dim adapter As MySqlDataAdapter
    Dim dt As New DataTable()
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'CONSTRUCT DATAGRIDVIEW
        DataGridView1.ColumnCount = 4
 
        DataGridView1.Columns(0).Name = "ID"
        DataGridView1.Columns(1).Name = "Name"
        DataGridView1.Columns(2).Name = "Position"
        DataGridView1.Columns(3).Name = "Team"
 
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
 
    End Sub
    'CLEAR TXT
    Private Sub cleartxt()
        nameTxt.Text = ""
        PosTxt.Text = ""
        TeamTxt.Text = ""
    End Sub
 
 
    'INSERT INTO DB
    Private Sub Add()
        Dim sql As String = "INSERT INTO peopletb(Name,Position,Team) VALUES(@PNAME,@POSITION,@TEAM)"
 
        cmd = New MySqlCommand(sql, con)
 
        'PARAMETERS
        cmd.Parameters.AddWithValue("@PNAME", nameTxt.Text)
        cmd.Parameters.AddWithValue("@POSITION", PosTxt.Text)
        cmd.Parameters.AddWithValue("@TEAM", TeamTxt.Text)
 
        'OPEN CONNECTION And INSERT
        Try
            con.Open()
 
            If cmd.ExecuteNonQuery() > 0 Then
                MsgBox("Successfully Inserted")
                cleartxt()
            End If
 
            con.Close()
            retrieve()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
    End Sub
 
    'POPULATE DGVIEW
    Private Sub Populate(id As String, name As String, pos As String, team As String)
        Dim row As String() = New String() {id, name, pos, team}
 
        'ADD ROW TO ROWS COLLEC
        DataGridView1.Rows.Add(row)
    End Sub
 
 
    Private Sub retrieve()
        DataGridView1.Rows.Clear()
 
        'SQL STMT
        Dim sql As String = "SELECT * FROM peopletb"
        cmd = New MySqlCommand(sql, con)
 
        'OPEN CON,RETRIEVE,FILL,DGVIEW
        Try
            con.Open()
            adapter = New MySqlDataAdapter(cmd)
 
            adapter.Fill(dt)
 
            'FILL DGVIEW
            For Each row In dt.Rows
                Populate(row(0), row(1), row(2), row(3))
            Next
 
            con.Close()
 
            'CLEAR DT
            dt.Rows.Clear()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
 
    End Sub
 
    'UPDATE
    Private Sub UpdateDG(id As String)
        Dim sql As String = "UPDATE peopletb SET Name='" + nameTxt.Text + "',Position='" + PosTxt.Text + "',Team='" + TeamTxt.Text + "'WHERE ID='" + id + "'"
 
        'OPEN CON,EXEUTE UPDATE,CLOSE
        Try
            con.Open()
            adapter.UpdateCommand = con.CreateCommand()
            adapter.UpdateCommand.CommandText = sql
 
            If adapter.UpdateCommand.ExecuteNonQuery() > 0 Then
                MsgBox("Successfully Updated")
                cleartxt()
            End If
 
            con.Close()
 
            'REFRESH
            retrieve()
 
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
    End Sub
 
    'delete
    Private Sub deleteDG(id As String)
        Dim sql As String = "DELETE FROM peopletb WHERE ID='" + id + "'"
 
        cmd = New MySqlCommand(sql, con)
 
        'OPEN CON,EXECUTE UPDATE,CLOSE CON
        Try
            con.Open()
            adapter.DeleteCommand = con.CreateCommand()
            adapter.DeleteCommand.CommandText = sql
 
            'PROMPT FOR CONFIRMATION
            If MessageBox.Show("sure??", "DELETE", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.OK Then
                If cmd.ExecuteNonQuery() > 0 Then
                    MsgBox("Successfully Deleted")
                End If
            End If
 
            con.Clone()
            retrieve()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try
 
    End Sub
 
    Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
        Dim name As String = DataGridView1.SelectedRows(0).Cells(1).Value
        Dim position As String = DataGridView1.SelectedRows(0).Cells(2).Value
        Dim team As String = DataGridView1.SelectedRows(0).Cells(3).Value
 
        nameTxt.Text = name
        PosTxt.Text = position
        TeamTxt.Text = team
 
 
    End Sub
 
    Private Sub addBtn_Click(sender As Object, e As EventArgs) Handles addBtn.Click
        Add()
    End Sub
 
    Private Sub retrieweBtn_Click(sender As Object, e As EventArgs) Handles retrieweBtn.Click
        retrieve()
    End Sub
 
    Private Sub UpdateBtn_Click(sender As Object, e As EventArgs) Handles UpdateBtn.Click
        Dim id As String = DataGridView1.SelectedRows(0).Cells(0).Value
        ' MsgBox(id)
        UpdateDG(id)
    End Sub
 
    Private Sub DeleteBtn_Click(sender As Object, e As EventArgs) Handles DeleteBtn.Click
        Dim id As String = DataGridView1.SelectedRows(0).Cells(0).Value
        deleteDG(id)
    End Sub
 
End Class

内容总结

以上是互联网集市为您收集整理的VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）全部内容，希望文章能够帮你解决VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---