VB.Net Tutorial connect to MySQL using Module

How to create a connection using module in Vb Net?

Cara membuat sebuah koneksi database MySQL di vb net sangatlah sederhana, disini saya menggunakan sebuah module yang bernama "koneksi.vb",

Sebelumnya jika anda belum mempunyai Connector ODBC silahkan download Connector ODBC dari web Resmi MySQL, install jika sudah didownload.

Selanjutnya kita harus setting koneksi Data Sources (ODBC) dari database ke server / komputer yang kita gunakan, ikuti langkah - langkah berikut :

1. Buka Control Panel
2. Performance and Maintenance
3. Administrative Tools
4. Data Sources (ODBC)

Open Data Sources (ODBC) dan Pada menu user DNS klik ADD, pilih MySQL ODBC 5.1 Driver (tergantung driver yang anda download tadi) dan klik Finish, isikan informasi sesuai database anda,

lihat gambar untuk lebih detail nya

jangan lupa, jika parametersnya sudah diisi, silahkan test koneksi terlebih dahulu, dan jika Connection Successful klik ok, pertanda koneksi sudah konek,

Bagaimana Membuat Koneksi MySQL di VB Net ?

Buatlah sebuah module Baru dengan cara Klik menu Project dan Add Module, Buatlah nama koneksi.vb, Selanjutnya pada menu Project klik Add Reference dan klik tab .NET
cari Component Name >> MySql.Data dan Klik ok

Jika selesai, tinggal tambah Module baru, pada menu Project klik Add Module dan isikan Kode berikut :

Imports System.Data.Odbc
Imports System.Data
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Module koneksiDB
    Public konek As OdbcConnection
    Public DA As OdbcDataAdapter
    Public DR As OdbcDataReader
    Public CMD As OdbcCommand
    Public DS As DataSet
    Sub bukaDB()
        Try
            konek = New OdbcConnection("DSN=sampaikanaja;MultipleActiveResultSets=True;")
            If konek.State = ConnectionState.Closed Then
                konek.Open()
            End If
        Catch ex As Exception
            MsgBox("konek Ke Database Bermasalah, Periksa koneksi Jaringan Anda")
        End Try
    End Sub
End Module

dan pada Form1, untuk memanggil sub  koneksi dari Koneksi Module tinggal panggil pada From_Load

bukaDB()

NB : Data Source Name (DSN) =  samakan dengan Nama DSN yang anda buat sebelumnya.

Klik F5 untk mencoba koneksi yang telah anda buat tadi, jika koneksi bermasalah coba anda teliti dan ulangi langkah - langkahnya satu persatu,

anda juga bisa download Tutorial connect to MySQL using Module (VB Net 2010)

Update di Blog "Sampaikan Aja" dengan berlangganan melalui Email, Terima Kasih

Posted by Unknown

Tweet

Update setiap hari dengan berlangganan dan Sampaikan Kepada Teman anda :)

	» Sampaikan aja Jika Artikelnya Bermanfaat ya !