Koneksi VB.Net dengan MySQL

Hai sobat pawers, kali ini saya akan mengajarkan koneksi VB.Net dengan MySQL.
Bahan-bahan yang dibutuhkan:

1. Sobat harus sudah menginstal XAMPP. Jika sobat belum menginstall dan masih bingung, tenang saja, kita sudah menyediakan tutorialnya bisa dilihat di sini Tutorial XAMPP.
2. Sobat juga harus mempunyai konektor yang akan menghubungkan VB.Net dengan MySQL nantinya. Jika sobat belum punya, bisa di download di sini.

Setelah mempunyai dan menginstall 2 komponen diatas, kita lanjut ke step berikutnya.

LANGKAH #1 MEMBUAT DATABASE

Di sini sobat harus membuat database terlebih dahulu. Buatlah sebuah database dengan nama "db_siswa". Kemudian sobat buat tabel bernama "tsiswa" yang berisi 2 field , yaitu:

1. Name: ID

    Type: Int

    Auto Increment

    Primary Key

2. Name: Nama

    Type: Varchar (35)

Setelah sobat membuat database seperti di atas, sekarang kita buka Visual Studionya. 

LANGKAH #2 MEMBUAT KONEKSI di VB.NET

Setelah Visual Studio terbuka, buatlah sebuah project baru. Kemudian sobat pilih bagian "Project - Add Reference"

Kemudian akan muncul sebuah kotak dialog. Sobat pilih pada tab ".Net" kemudian cari "MySql.Data" kemudian klik OK. 

Kemudian, sobat buat sebuah modul. Caranya klik toolbar "Project - Add Module" kemudian beri nama "koneksi.vb"

Setelah itu akan terbuka module-nya. Kemudian sobat isi module nya dengan koding seperti di bawah ini: 

Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
    Public conn As New MySql.Data.MySqlClient.MySqlConnection
    Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
        If conn.State = ConnectionState.Closed Then
            Dim myString As String = "server=" & server _
            & ";user=" & user _
            & ";password=" & pass _
            & ";database=" & db
            Try
                conn.ConnectionString = myString
                conn.Open()
            Catch ex As MySql.Data.MySqlClient.MySqlException
                MsgBox(ex.Message)
                End
            End Try
        End If
    End Sub
    Public Sub disconnect()
        Try
            conn.Open()
        Catch ex As MySql.Data.MySqlClient.MySqlException
        End Try
    End Sub
End Module

Nah, sekian dulu untuk tutorial koneksinya sobat paws. Tunggu tutorial berikutnya ya, akan diajarkan "penggunaan insert, delete pada Vb.Net dan MySQL"

• Tweet
• Share
• Share
• Share
• Share

Related Post