Cara Membuat Menyambungkan Database MySql Ke Visual Basic 2012

Cara Membuat Menyambungkan Database MySql Ke Visual Basic 2012, Cara Membuat Module Koneksi di Visual Basic 2012

Cara Membuat Menyambungkan Database MySql Ke Visual Basic Dot Net, Cara Membuat Module Koneksi di Visual Basic 2012 - Pada Kesempatan Kali ini saya akan membahas tentang cara menyambungkan database MySql Ke Visual Basic Dot Net. Cara ini sebenarnya sudah lama, saya cuman mau share bagi yang belum tahu saja. nah cara ini berfungsi untuk agar kita bisa mengakses data di database misalnya kita bisa menghapus mesimpan, mengupdate dan lain-lain. sebelum menyambungkan kita membuat sebuah notepad untuk menghubungkannya. untuk caranya anda bisa mengikuti langkah-langkah dibawah ini :

1. Buat Sebuah data base di sebuah MySql misalnya saya beri nama databasenya oop_bagus

2. Buat Sebuah Notepad dengan menamakan koneksi.text setelah itu isi dengan isian seperti dibawah ini :

localhost

root

password

nama_database

Punya saya kerena password pada MySql saya tidak ada maka saya kosongkan saja

3. Simpan notepad tadi di C dimana C: adalah sebuat sistem yang terdapat windows anda.

4. Selanjutnya buat sebuah module dengan cara Project > Add Module setelah itu isikan seperti dibawah ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Module Koneksi
    Private cmd As New MySql.Data.MySqlClient.MySqlCommand
    Public conn As New MySql.Data.MySqlClient.MySqlConnection
    Private server, user, pwd, database As String
    Public Sub konek()
        If conn.State = ConnectionState.Closed Then
            Dim reader As New System.IO.StreamReader("/koneksi.txt")
            Dim server, id, pass, db As String
            server = reader.ReadLine()
            id = reader.ReadLine()
            pass = reader.ReadLine()
            db = reader.ReadLine()
            reader.Close()
            Dim myString As String = "server='" & server &
                "'; user id='" & id &
                "'; password='" & pass &
                "'; database='" & db & "';"
            Try
                conn.ConnectionString = myString
                conn.Open()
                MsgBox("Berhasil Terkoneksi")
            Catch ex As Exception
                MsgBox("Koneksi Gagal")
                End
            End Try
        End If
    End Sub
    Public Sub disconnect1()
        Try
            conn.Close()
            MsgBox("Koneksi Dimatikan")
        Catch ex As Exception
        End Try
    End Sub
End Module

4. Jika sudah buat sebuah form untuk mengecek apakah koneksi anda berhasil atau tidak

Selanjutnya isi Script Seperti Dibawah ini :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Connect.Click

        Call konek()

    End Sub

    Private Sub Disconnect_Click(sender As Object, e As EventArgs) Handles Disconnect.Click

        Call disconnect1()

    End Sub

End Class

5. Jika sudah silahkan jalankan.

Demikian tips dan trik yang dapat saya sampaikan semoga bermanfaat bagi anda semua. terimakasih