Selamat sejahtera buat kawan kawan
sekalian. Disini saya mau sharing informasi tentang bagaimana cara membuat
koneksi antara data yang kita simpan dalam database untuk kita sambungkan
dengan aplikasi kita dengan menggunakan VB.NET.
Keperluan yang perlu di instal adalah :
- Aplikasi Microsoft Visual Studio .NET.
- XAMPP yang kita gunakan sebagai engine
untuk memberikan interface akses data mysql.
- Mysql connector yang kita gunakan untuk
memberikan fungsi tambahan agar mysql kita bisa di akses oleh aplikasi lainnya
(dalam hal ini VB.NET).
Setelah semua aplikasi di atas terinstal
dengan baik. Kemudian kita jalankan XAMPP nya untuk mengaktifkan dan membuat
database yang akan kita akses nanti.
Kita aktifkan Apache dan Mysql nya.
Cukup dua modul tersebut yang kita aktifkan di XAMPP untuk kita bisa melakukan
manipulasi terhadap database dengan server localhost ini.
Pastikan juga sudah mempunyai database yang berisi minimal satu tabel untuk
bisa kita akses nantinya. Membuat database nya bisa kita gunakan browser,
dengan mengetikan alamat http://localhost/phpmyadmin
> kemudian masukkan nama database kemudian buat satu tabel sederhana.
Setelah selesai dengan databasenya kemudian
kita buka dulu aplikasi VB.NET nya. Lalu klik file > new project >
windows application > isikan nama aplikasinya (tanpa spasi) dan pilih
direktori dimana kamu mau buat solution explorer nya J
Setelah selesai, kita akan dihadapkan
dengan area kerja VB.NET. kemudian buat tampilan VB.NET menjadi sebagai berikut
Ganti name textfieldnya dengan txt____
di ikuti dengan keterangan untuk textfieldnya.
Sebelum masuk Kode program kita buka
menu Project > Add Reference > masuk di Tab .NET > pilih Mysql.data
berikut :
Setelahnya kita buat terlebih dulu
module untuk menangani koneksi yang menghubungkan antara VB.NET dengan database
nya nanti. Berikut adalah kode program untuk koneksi database nya :
Imports MySql.Data.MySqlClient.MySqlConnection
Module Module1
Public
conn As New
MySql.Data.MySqlClient.MySqlConnection
Public ds
As DataSet
Public Function koneksi(ByVal
server As String,
ByVal user As
String, ByVal
pass As String,
_
ByVal db As String) As Boolean
Try
If
conn.State = ConnectionState.Closed Then
conn.ConnectionString = "server=" & server & ";user=" & user & ";database=" & db & ""
conn.Open()
End
If
Catch
ex As MySql.Data.MySqlClient.MySqlException
MsgBox("Koneksi
ke server gagal")
End Try
End Function
Public Sub disconnect()
Try
conn.Close()
Catch
ex As MySql.Data.MySqlClient.MySqlException
End Try
End Sub
End Module
|
Kemudian kita klik tombol proses pada
form yang kita buat tadi kemudian ketikan kode program berikut :
Private Sub bProses_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
bProses.Click
Dim
tr As Boolean
tr = koneksi(txtserver.Text,
txtUser.Text, txtPass.Text, txtDatabase.Text)
'tr =
koneksi()
If tr
= False Then
MsgBox("Koneksi
Berhasil")
buat()
disconnect()
Else
MsgBox("ada
yang salah")
End If
End Sub
|
Atau secara keseluruhan kode program
untuk form1.vb ini akan menjadi sebagai berikut :
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub bProses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bProses.Click
Dim
tr As Boolean
tr = koneksi(txtserver.Text,
txtUser.Text, txtPass.Text, txtDatabase.Text)
'tr =
koneksi()
If tr
= False Then
MsgBox("Koneksi
Berhasil")
buat()
disconnect()
Else
MsgBox("ada
yang salah")
End If
End Sub
Public Sub buat()
Dim
TW As TextWriter ' variabel
untuk menulis atau menyimpan data ke sebuah file
If
File.Exists("config.ini") Then ' Membaca atau mencari file config.ini
‘ kita sesuaikan File Delete berikut dengan dimana kalian menyimpan
projek explorer kalian tadi.
File.Delete("F:\Tutorial
VB.NET\GoNect\GoNect\bin\Debug\config.ini") ' menghapus
file config.ini
End If
TW = File.CreateText("config.ini") ' membuat file
config.ini pada folder bin
TW.WriteLine(txtserver.Text)
TW.WriteLine(txtDatabase.Text)
TW.WriteLine(txtUser.Text)
TW.WriteLine(txtPass.Text)
TW.Flush() ' menyimpan hasil
write tadi
TW.Close() ' menutup koneksi
dengan file config.ini
End Sub
End Class
|
Saya sudah coba dan berhasil. Jika
berhasil maka tampilannya akan menjadi sebagai berikut :
Dan jika kita klik button proses nya
akan menjadi sebagai berikut :
Oke sekian ilmu yang saya sempatkan
untuk membangun dasar koneksi antara database mysql dengan aplikasi VB.NET.
Terimakasih sudah berkunjung, dan jangan lupa salamPCC #shareYourKnowledge Ga
ada ruginya berbagi ilmu J kita bukan anak SD yang sedang balapan
cari nilai bagus bagusan untuk jadi ketua kelas kan? Semangat Program J
Jangan
lupa follow twitter yak @goandrew92
unduh PDF lengkapnya disini
Biar agak keren aku kasih password. hahaha Password : @goandrew92
#onogo