Cara menggunakan vb net mysql

Artikel ini akan membahas koneksi antara Visual Basic.Net dan MySQL. sebelumnya, untuk membuat koneksi dari VB.Net ke MySQL kita memerlukan MySQL connector, bisa di download dari https://dev.mysql.com/downloads/connector/net/

Penggunaan

• Pertama tambahkan reference, Pilih Project, Add Reference, Cari Mysql.Data
• Kemudian buat module untuk koneksi dengan nama Mod_db.vb

Imports MySql.Data.MySqlClient
Module Mod_db

    Private Function ConString() As String
        Return "server=host_anda;user=username;password=password;database=nama_database"
    End Function

    Private conn As MySqlConnection
    Public Function KonekDb() As MySqlConnection
        Try
            conn = New MySqlConnection(ConString)
            conn.Open()
            MsgBox("OK")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return conn
    End Function

End Module

• Selanjutnya tes koneksi yang di buat pada form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    KonekDb()
End Sub

Jika koneksi berhasil seharusnya ada sebuah message box yang berisi “OK”

database snippet

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

Membuat CRUD Dengan VB .NET dan Database MySQL – Pada kali ini saya akan membahas tentang bagaimana cara membuat Read, Create, Delete dan Update (CRUD). Dikarenakan CRUD merupakan dasar dari pembuatan perangkat lunak yang bersangkutan dengan database.

Sehingga kebanyakan pemula dalam pemrograman harus mempelajari CRUD lebih terdahulu, kali ini saya akan memberikan tutorial cara membuat CRUD dengan menggunakan bahasa pemograman Visual Basic.Net (VB.Net) dengan database MySQL.

Table of Contents

Membuat Database MySQL

Langkah pertama sebelum membuat CRUD dengan VB .NET, yakni membuat database yang digunakan untuk menyimpan data yang sesuai dengan keinginan kita. Seperti gambar dibawah ini saya telah membuat database dengan nama Flin Setyadi didalamnya memiliki Tabel flin member.

Tabel flin member yang berisikan ID Member, Nama, Status, Jenis Kelamin, dan Email. Hal tersebut merupakan data-data yang ingin disimpan kedalam sebuah database, melalui VB.Net

Baca Juga : Mengenal DBMS lebih dalam

Membuat CRUD Dengan VB .NET

Membuat Project Pada VB .NET

Pada tahap ini kalian harus membuat project baru di VB.Net anda, saya disini menggunakan visual basic 2019 akan tetapi jika anda menggunakan visual basic dibawah atau diatas saya tidak akan mempengaruhi Tutorial ini.

Langkah kesatu saya menekan tombol ‘Create a New Project’

Langkah kedua saya ‘memilih’ dan ‘menekan’ Windows Forms App (.Net Framework) yang menggunakan bahasa pemograman vb.net kemudian tekan tombol ‘Next‘

Langkah ketiga masukkan nama ‘Project Name’ kemudian klik tombol ‘Create‘

Langkah keempat Klik Project seperti gambar di bawah ini :

Langkah kelima pilih menu properties, seperti gambar di bawah ini :

Langkah keenam pilih Refrences kemudian klik tombol add

Langkah ketujuh cari kemudian pilih Mysql.Data.ddl kemudian tekan ok.

Catatan jika anda belum memiliki MySql.Data.dll, anda harus mendownloadnya terlebih dahulu disitus resmi MySQL. Kemudian carilah folder MySql.data.dll yang telah anda instal dengan menekan tombol ‘Browser‘ kemudian menekan tombol ‘Ok’ dan muncullah MySql.Data.dll sperti gambar dibawah ini :

Langkah kedelapan kembalilah ke forms utama kemudian tambah item baru seperti gambar dibawah ini :

Kemudian pilihlah dataset kemudian tekan ‘add‘

Langkah kesembilan buatlah tabel didataset sesuaikan isinya dengan tabel yang ada didatabase yang telah dibuat, seperti gambar dibawah ini :

Kemudian klik tabel tersebut dua kali, sehingga akan masuk kedalam pengkodean pada dataset, kemudian anda masukan kodingan seperti gambar dibawah ini :

IImports MySql.Data.MySqlClient
Partial Class DataSet1

    Partial Public Class Flin_MemberDataTable
        Dim flinbuilder As MySqlCommandBuilder
        Dim flinkoneksi As MySqlConnection
        Dim flinadapter As MySqlDataAdapter
        Dim flinstring As String
        Dim flinsql As String

        Public Sub member()
            flinstring = "Server=localhost;user id=root;password=;database=flin setyadi"
            flinsql = "SELECT `ID Member`, `Nama`, `Status`, `Jenis Kelamin`, `Email` FROM `Flin Member` "

            flinkoneksi = New MySqlConnection(flinstring)
            flinadapter = New MySqlDataAdapter(flinsql, flinkoneksi)
            flinbuilder = New MySqlCommandBuilder(flinadapter)

            Me.Clear()

            Try
                flinadapter.Fill(Me)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub
        Public Sub UpdateMember()
            Try
                flinadapter.Update(Me)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            MessageBox.Show("Data telah di update", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Sub

        Private Sub Flin_MemberDataTable_Flin_MemberRowChanging(sender As Object, e As Flin_MemberRowChangeEvent) Handles Me.Flin_MemberRowChanging

        End Sub

    End Class
End Class

Langkah kesepuluh kembali ke forms 1 kemudian buatlah seperti gambar dibawah ini :

Langkah kesebelas silahkan masukkan kodingan seperti, gambar dibawah ini :

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

    Private Sub InisialisasiGrid()
        DataGridView1.DataSource = BindingSource1
    End Sub
    Private Sub bindigrid()
        DataSet11.Flin_Member.member()
        DataGridView1.AutoResizeColumns()

    End Sub


    Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click


        Dim pertanyaan As String
        Dim jawaban As DialogResult

        pertanyaan = "Apakah anda yakin untuk menyimpan data member ini?"
        jawaban = MessageBox.Show(pertanyaan, Me.Text, MessageBoxButtons.YesNo)
        If jawaban = Windows.Forms.DialogResult.No Then Exit Sub

        DataGridView1.EndEdit()
        BindingSource1.EndEdit()
        DataSet11.Flin_Member.UpdateMember()
    End Sub
End Class

Hasil Dari Kodingan CRUD Visual Basic

Form Tambah data

Form Hapus Data

Penutup

Pada tutorial kali ini kita telah belajar bagiamana cara membuat CRUD menggunakan bahasa pemograman VB.Net dengan database MySQL. jika anda ingin mendownload project diatas anda dapat mendownlonloadnya pada link dibawah ini :