[ADS] Top Ads

Membuat Koneksi Database MySQL ODBC #tutorialvb.net

Membuat Koneksi Database MySQL ODBC #tutorialvb.net


Membuat Koneksi Database MySQL ODBC #tutorialvb.net - priacoding. Pada postingan kali ini priacoding akan membahas tentang bagaimana cara membuat koneksi MySQl pada VB.Net. ODBC (Open Database Connectivity) merupakan sebuah standar terbuka untuk menghubungkan antar mesin database. Standar ini menyediakan API yang dapat digunakan untuk menjalankan dan mengoneksikan sebuah aplikasi dengan sebuah sistem database.

Langsung saja ikuti langkah-langkah berikut..
1. Install ODBC Connector terlebih dahulu
Silahkan download disini

2. Buka ODBC Connector
Pada Control Panel → Administrative Tools → ODBC Connector, dan tampilanya seperti gambar


3. Klik Add dan pilih "MySQL ODBC 5.1 Driver" → "Finish"


4. Tahap pembuatan DSN (Data Source Name)
Isikan DSN dan Database, seperti gambar


db_test → database yang telah dibuat pada MySQL
Klik tombil "Test", jika ada jendela "koneksi sukses", maka pembuatan DSN berhasil → OK

5. Membuat module koneksi pada VB.Net
Tambahkan OdbcConnection pada project anda


Pada jendala Properties pada menu ConnectionString, klik "New Connention", tambahkan DSN "Test" yang telah kita buat tadi → OK


6. Pembuatan Module Koneksi
klik kanan pada project → add → Module. Seperti gambar..


Pada jendela code editor pastekan coding dibawah

Imports System.Data.Odbc
Module module_koneksi
    Public CONN As OdbcConnection
    Public CMD As OdbcCommand
    Public DR As OdbcDataReader
    Public DA As OdbcDataAdapter
    Public QUERY As String
    Public DS As DataSet
    Public DT As DataTable

    Sub KONEKSI()
        Dim str As String = "Dsn=Test"
        CONN = New OdbcConnection(str)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
            MsgBox("Koneksi Berhasil")
        Else
            MsgBox("Koneksi Gagal")
        End If
    End Sub
End Module
   

7. Pada Form1_Load panggil koneksi, yang kita buat tadi

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call KONEKSI()
    End Sub

Hasil


Unduh Sourcecode
Pass: priacoding.com

Terimakasih, semoga bermanfaat..

Note
Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini dibagikan kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih..

Post a Comment

[ADS] Bottom Ads