Keperluan yang perlu di instal
adalah :
1. Aplikasi Microsoft Visual Studio .NET.
2. XAMPP yang kita gunakan sebagai engine untuk memberikan interface
akses data mysql.
3. 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
alamathttp://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 :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 AsSystem.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 AsSystem.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,
No comments:
Post a Comment