Insert Data ke Database MySQL menggunakan VB.Net

Artikel ini akan membahas bagaimana mengisi (insert) data ke database MySQL menggunakan VB.Net dengan menggunakan modul koneksi yang telah di buat pada artikel sebelumnya Koneksi VB.Net dan MySQL.

Source Code

Fungsi dibawah ini digunakan untuk mengambil data dari database mysql yang kemudian akan di tampilkan di dalam DataGridView.

Tampil Data

Private Sub TampilData()
    Dim da As New MySqlDataAdapter("select * from mhs", KonekDb)
    Dim dt As New DataTable
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Sub

Insert Data

Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
    Try
        Dim cmd As New MySqlCommand("insert into mhs values('" & txtNip.Text & "','" & txtNama.Text & "')", KonekDb)
        cmd.ExecuteNonQuery()
        TampilData()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Full Source

Imports MySql.Data.MySqlClient
Public Class Form1

    Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        Try
            Dim cmd As New MySqlCommand("insert into mhs values('" & txtNip.Text & "','" & txtNama.Text & "')", KonekDb)
            cmd.ExecuteNonQuery()
            TampilData()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub TampilData()
        Dim da As New MySqlDataAdapter("select * from mhs", KonekDb)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TampilData()
    End Sub
End Class

Alfa Adhitya Member since December 18, 2019

Computer science education cannot make anybody an expert programmer any more than studying brushes and pigment can make somebody an expert painter – Eric S