Membuat koneksi MySQL pada VB.Net

Sebelum memulai tutorial menampilkan data dan membuat koneksi MySQL pada Vb.Net  ada beberapa hal yang harus dipersiapkan , yaitu :

install visual basic .net atau visual studio baik yang express maupun versi yang lebih tinggi

download terlebih dahulu driver mysql, bisa download disini

setelah itu lakukan pembuatan project baru terlebih dahulu dengan cara :

klik new –> project -> visual basic –> windows form –> berikan nama aplikasi lalu enter.

setelah itu, maka kalian akan diberikan satu form tampilan kosong.  Untuk menampilkan data dari MySQL kita gunakan komponen yang bernama listView.

Pilih ListView lalu drag ke area form, setting view menjadi detail (pada tab properties) dan tambahkan columns (masih pada tab properties) dan isikan kolom yang akan dimasukkan.

Setelah itu, sekarang masukkan driver MySQL tadi dengan cara, klik kanan pada project lalu pilih add –> references.mysql.data

Pilih tombol browse, lalu pilih file yang tadi sudah di download (mysql.data.dll).

setelah itu silakan copas kode berikut : (penjelasan sintak ada di dalam kode)

'pastikan sudah add reference terlebih dahulu, jika belum maka akan error ketika import
Imports MySql.Data.MySqlClient  'jangan lupa import terlebih dahulu, agar lebih mudah dalam memanggilnya
Public Class Form1
    Private koneksi As MySqlConnection
    Private Sub openDatabase()
        If Not koneksi.State = ConnectionState.Open Then
            koneksi.Open()
        End If
    End Sub
 
    Private Sub closeDatabase()
        If Not koneksi.State = ConnectionState.Closed Then
            koneksi.Close()
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        koneksi = New MySqlConnection("server=localhost;User Id=root;database=datmin")
        loadData()
    End Sub
    Private Sub loadData()
        Try
            ''sintak disini 
            openDatabase()
            Dim komen As New MySqlCommand()
            komen.Connection = koneksi
            komen.CommandText = "select * from mahasiswa"
            Dim adapter As MySqlDataReader
            adapter = komen.ExecuteReader
            Dim dt As New DataTable
            dt.Load(adapter)
            closeDatabase()
            ''sampai disini digunakan untuk mendapatkan data dari mysql
            ''data dari mysql tersebut dimasukkan ke datatable yang bernama dt.
 
            ''sintak ini digunakan untuk memanggil data tiap baris pada datatable yang bernama dt.
            For Each dr As DataRow In dt.Rows
                Dim datalist As ListViewItem = ListView1.Items.Add(dr("nama"))
                datalist.SubItems.Add(dr("nim"))
                'sebenarnya dari sini kalian bisa memproses data2nya 
                'jika akan dibuat format nn, maka masukkan rumus disini
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Leave a Comment