CARA MENGHUBUNGKAN KONEKSI VB.NET DENGAN MYSQL

CARA MENGHUBUNGKAN KONEKSI VB.NET DENGAN MYSQL

Untuk dapat menghubungkan sebuah program dengan database, selain connection string yang ada pada baris suatu coding, juga dibutuhkan driver agar sebuah program dapat berkomunikasi dengan database, apalagi jika antara program dan database sudah berbeda platform pembuatnya.
Sebagai contoh jika kita ingin mengembangkan sebuah software yang di develop dengan menggunakan Visual Studio yang menggunakan platform Microsoft, dengan sebuah database open source seperti MySQL, hal ini tentunya membutuhkan 3rd party software yang sudah disediakan oleh MySQL.

Berikut adalah langkah-langkahnya:

• Download drivernya pada link berikut MySQL Driver Connector .Net 6.2.5
• Extract file yang sudah di download diatas
• Install file tersebut kedalam komputer kita sendiri (hanya next saja sampai finish).
• Buat sebuah project baru dalam Visual Basic, dan buka My Project pada Solution Explorer, kemudian pilih Reference, pilih Add Reference, pada tab COM pilih MySQL.Data (double klik), berikut gambar dari langkahnya :

• Tambahkan button1 pada Form1, double klik pada button1 kemudian masukkan script berikut ke dalamnya :

'Koneksi VB.Net ke MySQLVisual Basic .NET

Imports MySql.Data.MySqlClient.MySqlConnection
Imports System.Data

Public Class Form1

    '-- MySQL Connection
    Public connDB As New MySql.Data.MySqlClient.MySqlConnection

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call conectDB()
        'Close Database
        connDB.Close()
    End Sub

    Public Sub conectDB()
        Try

            'This is the server IP/Server name.  If server is intalled on your local machine, your IP should be 127.0.0.1 or you may use localhost
            Dim strServer As String = "localhost"
            Dim strDbase As String = "mysql" 'Database name
            Dim strUser As String = "root"  'Database user
            Dim strPass As String = ""     'Database password

            'MySQL Connection String
            If connDB.State <> ConnectionState.Open Then connDB.ConnectionString = "server=" & strServer.Trim & ";database=" & strDbase.Trim & ";user=" & strUser.Trim & ";password=" & strPass
            If connDB.State <> ConnectionState.Open Then connDB.Open() Else connDB.Close()
            MsgBox("Connected")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Kemudian jalankan program dan tekan button1, jika terdapat message box berisi Connected, berarti step yang dilakukan sudah benar.  Berikut adalah screenshoot simple program koneksi VB.Net ke MySQL :

Berikut spesifikasi komputer saya untuk menguji program diatas :

Database Server : MySQL
Dev. Tools : Visual Studio 2008 Exspress

Segera bergabung : - kursus bahasa Inggris - kursus komputer dengan: Lembaga Pendidikan Indonesia Amerika ( LPIA ); Alamat LPIA Margonda Jl. Margonda Raya, No.91C (dekat lampu merah flyover pertigaan Arief Rahman Hakim atau depan Autopart Ramanda Depok, sebelah Solite Furniture dan ATTIN TOUR); Kelurahan: Pancoran Mas; Kecamatan : Pancoran Mas; Kota: Depok; Po Box: 16431; Telepon LPIA Depok : (021) 7774443