KONEKSI DATABASE MySQL DENGAN ODBC

Pada kesempatan ini kita akan belajar membuat koneksi database di Visual Basic .Net menggunakan ODBC(Open Databases Connection) untuk databasesnya saya menggunakan MySQL bisa didownload Gratis Disini. Asumsi saya database sudah terinstal dengan baik dikomputer anda. Untuk membuat program kita terhubung dengan MySQL melalui ODBC kita membutuhkan mysql-connector-odbc bisa di download secara gratis Disini. Setelah mysql-connector-odbc di Instal langkah selanjutnya adalah membuat setingan ODBC

• Masuk ke Control Panel kemudian double click Administrative Tools
• Lalu double click Data Sources(ODBC)
• Maka akan tampil form ODBC, Selanjutnya click Add
• Pilih Driver MySQL ODBC
• Kemudian click Finish
• Akan muncul form Connector/ODBC kemudian isi Data Source Name dengan nama koneksi yang anda kehendaki disini saya membuat nama “XoplaX”
• Description boleh diisi boleh tidak(Optional)
• Server anda isi IP atau hostname dimana MySQL terinstal. Karena di computer saya MySQL terinstal dalam 1 komputer(tidak dalam jaringan) maka server saya isi “localhost”
• User diisi nama user login MySQL saya menggunakan “root”
• Password diisi password login MySQL saya menggunakan “12345”
• Kemudian pilih Database yang ingin anda pakai untuk koneksi ini, saya memakai database “Test”. Hasilnya tampak seperti gambar berikut :

• Kemudian Click OK

Setelah ODBC berhasil kita buat saatnya kita membuat koneksi di Visual Basic .Net
Buat Project baru, kemudian tambahkan komponen Button di Form tampak seperti gambar berikut

Double Click Button1 maka anda akan di bawa ke tampilan code ketik code berikut

Imports System.Data.Odbc
Public Class Form1
     Private Function BikinKoneksi() As Boolean
        Dim conn As OdbcConnection = Nothing
        Dim connString As String = "Dsn=xoplax"
        conn = New OdbcConnection(connString)
        conn.Open()
        If conn.State <> ConnectionState.Open Then
           Return False
        Else
           Return True
        End If
     End Function


     Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If BikinKoneksi() = True Then
           MsgBox( "Koneksi MySQL Dengan ODBC Berhasil", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "PESAN")
        Else
           MsgBox( "Koneksi MySQL Dengan ODBC Gagal", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ERROR")
        End If
     End Sub

End Class


Run program dengan menekan tombol F5 kemudian click tombol Test Koneksi, jika koneksi sukses maka akan tampil pesan seperti berikut

Okay cukup sekian dulu belajarnya nanti kita lanjutkan dengan materi lainnya. :D

Message Box

Kali ini kita belajar tentang message box di Visual Basic dot Net. Message Box berguna untuk memberikan informasi kepada user dan menerima masukan dari user setelah user memilih pilihan yang disediakan. Format dari message box seperti berikut ini :

 Msgbox(“Pesan”,Prameter,”Title”)

Keterangan

Pesan	Merupakan isi informasi yang disampaikan kepada user. Informasi ini dapat berupa pemberitahuan terhadap suatu proses yang telah terjadi seperti pemberitahuan bahwa data tidak ditemukan setelah proses pencarian selesai atau permintaan kepada user untuk memilih suatu tindakan atas hasil dari suatu proses.
Parameter	Merupakan bagian yang digunakan untuk memunculkan pilihan tindakan seperti tombol OK, Cancel, Retry, Ignore, Abort, Yes, No dan dapat digabungkan untuk menampilkan gambar icon tertentu yang dapat memperkuat pesan yang disampaikan. Berikut ini merupakan daftar dari icon, tombol dan beberapa pilihan lain yang dapat digunakan dalam message box. Tombol Parameter Keterangan MsgBoxStyle.OkOnly Menampilkan tombol OK saja MsgBoxStyle.OkCancel Menampilkan tombol OK dan Cancel MsgBoxStyle.AbortRetryIgnore Menampilkan tombol Abort,Retry,Ignore MsgBoxStyle.YesNoCancel Menampilkan tombol Yes,No,Cancel MsgBoxStyle.YesNo Menampilkan Tombol Yes dan No MsgBoxStyle.RetryCancel Menampilkan tombol Retry dan Cancel Icon Parameter Keterangan MsgBoxStyle.Critical Menampilkan icon tanda silang MsgBoxStyle.Information Menampilkan icon huruf i MsgBoxStyle.Question Menampilkan icon tanda tanya MsgBoxStyle.Exclamation Menampilkan icon tanda seru Tombol default Parameter Keterangan MsgBoxStyle.DefaultButton1 Tombol pertama aktif MsgBoxStyle.DefaultButton2 Tombol kedua aktif MsgBoxStyle.DefaultButton3 Tombol ketiga aktif Perilaku Message Box Parameter Keterangan MsgBoxStyle.ApplicationModal User harus merespon messagebox untuk melanjutkan program MsgBoxStyle.SystemModal Semua aplikasi yang dijalankan sistem akan dihentikan sampai user merespon messagebox Pengembalian nilai dari Message Box Parameter Tombol yang ditekan MsgBoxResult.Abort Abort MsgBoxResult.Cancel Cancel MsgBoxResult.Ignore Ignore MsgBoxResult.No No MsgBoxResult.Ok Ok MsgBoxResult.Retry Retry MsgBoxResult.Yes Yes
Title	Merupakan text yang muncul di bar messagebox

Berikut contoh sederhana menulis code program messagebox di visual basic dot Net

MsgBox( "Isi Pesan MessageBox", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "JUDUL") 

Code diatas akam menampilkan messagebox dengan title Judul dengan icon silang dan tombol OK dengan pesan “Isi Pesan MessageBox” Tampak tampilan seperti gambar berikut

Berikut ini contoh menangkap aksi dari user jika tombol Yes di click oleh user

If MsgBox( "Apakah anda akan menekan tombol YES..?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.ApplicationModal, "Pertanyaan") = MsgBoxResult.Yes Then

Label1.Text = "Anda Menekan Tombol Yes"

Else 

Label1.Text = "Anda Menekan Tombol No"

End If 

Jika user menekan tombol Yes pada Messagebox diatas maka text pada label1 akan berubah menjadi "Anda Menekan Tombol Yes" tetapi apabila user menekan tombol No maka text Label1 akan berubah menjadi "Anda Menekan Tombol No"

Belajar VisualBasic dot Net

Serunya belajar Visual Basic dot Net mari kita belajar bersama :D
Berikut refrensi yang cukup bagus untuk belajar dasar Visual Basic dot Net
Dasar-Dasar Visual Basic DotNet