Koneksi Database Pada VB .Net
Pengembangan aplikasi berbasis desktop menggunakan Visual Basic .NET (VB .Net), salah satu aspek yang krusial adalah koneksi dengan database. Koneksi database memungkinkan aplikasi untuk menyimpan, mengambil, dan memanipulasi data seperti menampilkan data pada combobox atau sejenisnya. Dalam artikel ini, kita akan membahas bagaimana mudahnya untuk membuat koneksi database pada VB .Net.
Memahami Kebutuhan
Sebelum memulai, kenali terlebih dahulu kebutuhan aplikasi kita dan jenis database yang akan digunakan. VB.Net mendukung berbagai jenis database seperti SQL Server, MySQL, dan Access. Pastikan kita sudah memiliki informasi server, seperti nama database, username dan password untuk terhubung ke database yang akan kita gunakan. Dan pada artikel kali ini, kita akan mencoba membuat koneksi database menggunakan MySQL.
Persiapan membuat koneksi database pada VB .Net
Karena database yang akan kita gunakan pada artikel ini adalah MySql, maka langkah awal sebelum membuat koneksi database adalah memastikan bahwa perangkat yang kita gunakan sudah terpasang Driver MySql Connector. Jika belum, silahkan download terlebih dahulu pada official website nya. Untuk versi driver MySql Connector yang saya gunakan adalah versi 6.9.8.
Jika Driver MySql Connector sudah terpasang, langkah selanjutnya adalah menambahkan driver tersebut pada Reference project VB .Net yang akan kita buat dengan cara pilih menu Project -> [nama_project] Properties (Perhatikan gambar)
Setelah muncul jendela properties, pilih tab references yang ada di sebelah kiri. Jika pada list references masih kosong, silahkan klik tombol add.
Klik tab .NET kemudian cari MySql.Data dan System.Data kemudian pilih OK hingga MySql.Data dan System.Data tersebut muncul di list References kemudian simpan.
Jika sudah, lalu tambahkan sebuah form pada project dan tambahkan sebuah kontrol button pada form yang dibuat. Untuk cara menambahkan form dan control silahkan cek pada artikel tentang pengenalan form, object dan module.
Jika sudah, masuk pada mode view code pada form yang td sudah dibuat dan masukkan kode berikut tepat di baris paling awal
|
1 2 3 |
Imports MySql.Data Imports MySql.Data.MySqlClient Imports System.Data |
Langkah selanjutnya masukkan variable berikut ini kedalam public class form yang sudah dibuat tadi.
|
1 2 3 4 |
Dim connDB As New MySqlConnection Dim comDb As New MySqlCommand Dim rdDB As MySqlDataReader Dim myError As MySqlError |
kemudian pada event klik button yang sudah di buat, masukkan kode berikut :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim dbHost As String = [<strong>ALAMAT_SERVER</strong>] Dim dbName As String = [<strong>NAMA_DATABASE</strong>] Dim dbUser As String = [<strong>USERNAME_DATABASE</strong>] Dim dbPassword As String = [<strong>PASSWORD_DATABASE</strong>] Dim dbPort As String = [<strong>PORT_DATABASE</strong>] Try Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor If connDB.State <> ConnectionState.Open Then connDB.ConnectionString = "server=" & dbHost & ";database=" & dbName & ";user=" & dbUser & ";password=" & dbPassword & ";port=" & dbPort If connDB.State <> ConnectionState.Open Then connDB.Open() Else connDB.Close() Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default MsgBox("Koneksi database berhasil", vbInformation, "Sukses") Exit Sub Catch ex As Exception Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default MsgBox("Koneksi database gagal", vbInformation, "Koneksi database") Exit Sub End Try |
Sedikit penjelasan dari kode di atas. Jika program dijalankan, maka akan menampilkan sebuah form dengan sebuah tombol didalamnya. Jika tombol tersebut di klik, maka program akan mencoba melakukan koneksi database. Program akan menampilkan pesan “Koneksi database berhasil” jika koneksi berhasil, dan menampilkan pesan “Koneksi database gagal” jika koneksi gagal.
Berikut ini adalah kode lengkap pada program yang kita buat :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
Imports MySql.Data Imports MySql.Data.MySqlClient Imports System.Data Public Class Form1 Dim connDB As New MySqlConnection Dim comDb As New MySqlCommand Dim rdDB As MySqlDataReader Dim myError As MySqlError Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'KONFIGURASI DATABASE Dim dbHost As String = [ALAMAT_SERVER] Dim dbName As String = [NAMA_DATABASE] Dim dbUser As String = [USERNAME_DATABASE] Dim dbPassword As String = [PASSWORD_DATABASE] Dim dbPort As String = [PORT_DATABASE] Try Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor If connDB.State <> ConnectionState.Open Then connDB.ConnectionString = "server=" & dbHost & ";database=" & dbName & ";user=" & dbUser & ";password=" & dbPassword & ";port=" & dbPort If connDB.State <> ConnectionState.Open Then connDB.Open() Else connDB.Close() Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default MsgBox("Koneksi database berhasil", vbInformation, "Sukses") Exit Sub Catch ex As Exception Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default MsgBox("Koneksi database gagal", vbInformation, "Koneksi database") Exit Sub End Try End Sub End Class |
Catatan :
Sesuaikan konfigurasi database dengan konfigurasi pada server database masing-masing
Dan berikut ini adalah tampilan program ketika running dan berhasil melakukan koneksi database
Dan berikut ini adalah pesan error yang muncul ketika koneksi database gagal.
Penutup
Demikianlah tutorial bagaimana cara membuat koneksi database pada vb .Net, semoga bisa bermanfaat. Dan di bawah ini juga saya sertakan file contoh kode untuk bahan belajar lebih lanjut. sampai ketemu lagi di artikel berikutnya.
