Membuat Koneksi Database di VB.net Menggunakan Database MySQL atau MariaDB

Assalamu’alaikum Wr Wb

Selamat datang di web Sibukngoding.com. Pada kesempatan kali ini, saya akan menjelaskan tentang VB.net. Untuk Kali ini, Materi yang saya sampaikan sudah berhubungan dengan database. Kita bisa membuat membuat program atau aplikasi bebasis database menggunakan VB.net. Database yang dipakai sebenarnya ada macam-macam seperti MariaDB,MySQL, MS Acces, Sql Server ataupun yang lainnya, tetapi untuk materi pada postingan kali ini menggunakan database MariaDB.

Pastikan teman-teman sudah membuat databasenya. Jika belum tahu caranya bisa klik disini. Untuk database saya memakai database dengan nama  dbcontoh

Setelah database berhasil dibuat, kita buat koneksi yang berfungsi untuk menghubungkan atara database MariaDB dengan VB.net. Untuk menghubungkan database, saya menggunakan ODBC. Untuk menggunakan ODBC, teman-teman bisa klik disini. Untuk setingan Mysql ODBC saya seperti berikut.

Setelah mysqlconnector ODBC berhasil dibuat, saatnya kita buat Source code koneksi di VB.net. Silahkan dibuka Visual Studio nya, untuk kali ini saya pakai yang versi 2010. Untuk yang 2008 Insya Allah masih sama. Buat Project Baru dan buat formnya seperti dibawah ini.

Untuk propertisnya sebagai berikut.

Tool Control	Propertis	Value
Form1	Name	Frmkoneksi
	Text	Program Tes Koneksi
Botton1	Name	Bttes
	Text	Tes Koneksi

Selanjutnya kita masukkan source codenya. Tekan F7 untuk masuk ke halaman source Code

Pertama import dulu ODBCnya di atas Public Class frmkoneksi

Imports System.Data.Odbc

Selanjutnya kita buat variabel yang akan digunakan, letakkan dibawahnya Public Class frmkoneksi

Dim dsn As String

Dim koneksi As OdbcConnection

Selanjutnya kembali ke form (Shift+F7) lalu klik 2 kali tombol tes koneksi dan ketikkan source code seperti dibawah ini :

dsn = "DSN=contoh"

        Try

            koneksi = New OdbcConnection(dsn)

            koneksi.Open()

            MsgBox("Koneksi Berhasil")

        Catch ex As Exception

            MsgBox("Koneksi Gagal")

        End Try

Untuk dsn, Ketikkan sesuai dengan Data Source Name di ODBC yang teman-teman buat sebelumnya.

Untuk Source code keseluruhannya sebagai berikut:

Imports System.Data.Odbc

Public Class frmkoneksi

    Dim dsn As String
    Dim koneksi As OdbcConnection

    Private Sub bttes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttes.Click
        dsn = "DSN=contoh"
        Try
            koneksi = New OdbcConnection(dsn)
            koneksi.Open()
            MsgBox("Koneksi Berhasil")
        Catch ex As Exception
            MsgBox("Koneksi Gagal")
        End Try
    End Sub

End Class

Jika sudah diketikkan, silahkan coba untuk di jalankan(RUN). Untuk jika benar, maka hasilnya seperti dibawah ini.

Jika koneksi benar, pada saat kita klik tes koneksi, akan muncul pesan koneksi berhasil.

Jika muncul koneksi gagal, kemunkinan DSN tidak sesuai dengan yang telah kita buat tadi atau bisa juga XAMPP nya belum dijalankan. 

Demikian postingan saya kali ini, semoga bermanfaat. Jika ada pertanyaan, bisa ditanyakan lewat kolom komentar. Tetap kunjungi web sibukngoding.com untuk mendapatkan tutorial lainnya.

Terimakasih atas kunjungannya, Selamat belajar, Tetap semangat dan jangan mudah menyerah

Wassalamu'alaikum Wr Wb