Disini kita akan bahas cara koneksi antara Database
MySQL dengan VB .Net 2010, semoga dengan ini E-book ini bisa ingat
sepanjang jaman ya…^__^
Baik, pertama kali apa saja yang diperlukan:
1. MySQL Server, dalam contoh saya menggunakan
wampserver 2.2 DOWNLOAD di sini
2. MySQL Connector, dalam contoh saya menggunakan
versi 6.6.5 DOWNLOAD di sini
3. VB .Net, dalam contoh saya menggunakan yang Visual
Basic 2010 Express
Langkah-langkah :
1. Kita mulai dengan membuka program VB dengan cara :
Start => all program => Microsoft Visual Studio
2010 Express => Microsoft Visual Basic 2010 Express
2. Dan yang
kedua, akan keluar jendela New Project, Setelah keluar jendela new
project, kemudian pilih windows froms Application dan klik OK, seperti contoh
di bawah ini…..
3. Setelah keluar form project , kemudian pilih menu project dan pilih WindowsApplication1 Properties…
4. Dan
kemudian akan keluar tab baru, setelah keluar tab baru kemudian kita pilih
References den selanjutnya klik add (untuk menambah references buat import ke
MySql )
5. Dan akan
keluar jendela add references, kemudian pilih tab .NET dan cari componen yang
bernama MySql.Data, Jika anda sudah menginstall MySQL Connector, maka componen
MySql.Data pasti ada, dan selanjutnya klik ok. .
6. Setelah
anda klik OK, Maka Mysql.Data otomatis akan muncul pada kolom references,
kemudian kembali ke tab form1.vb(Design) yang pertama tadi untuk mendesign form
kita. . .
7. Dan selanjutnya waktunya kita Mendesign
form1.vb(Design) dengan cara Drag salah satu toolbox ke form1, dalam contoh
disini saya mendrag ToolBox “label1” ke dalam form1, dan selanjutnya ganti nama
label1 menjadi Masukkan Nama :
dan ganti properties toolbox nya seperti ini. .
Label1 : text =>
Masukkan Nama
TextBox : text => (biarkan kosong)
: (Name) => TxtName
Botton : text => Save
: (Name) => cmdSave
9. Setelah
Mendesign form1.vb(Design), kini saatnya memasukan code-code dengan cara klik
kanan pada area kosong di jendela form1 dan pilih view code. . . Lihat gambar
dibawah ini.
.
.
10. Dan selanjutnya akan keluar tab form1.vb yang
berisikan kumpulan Sourscode, sekarang kita akan mendeklarasi variable agar
bisa terkoneksi ke MySql Server. .
Ketikan sintax berikut ini. .
Dim ServerString As String =
“Server=localhost;user id=root;password=root;database=kuliah”
Dim SQLConnection As MySqlConnection = New MySqlConnection
Dim SQLConnection As MySqlConnection = New MySqlConnection
Apa tuh Fungsinya? ke 2 Variabel String diatas berguna
untuk menentukan parameter-parameter yang di butuhkan untuk membentuk koneksi
ke MySQL,
§
Yang Pertama adalah Server yang menjalankannya, dalam contoh ini saya
menggunakan APPSERV, jadi Server bisa diisi dengan localhost, user id diisi
dengan root, password saya isi dengan password appserv saya yaitu “root” dan
database saya isi dengan nama databases yang digunakan untuk aplikasi yang
sedang kita bangun.
§
Yang kedua adalah variabel untuk mewakili database yang telah dibentuk
koneksinya. Seharusnya saat ini terjadi error, pemecahannya lakukan import satu
baris berikut, dibaris paling atas sendiri:
Imports MySql.Data.MySqlClient
Yup, import satu baris di atas tidak akan bisa
dilakukan jika kita tidak melakukan add reference di awal tadi…
* Untuk yg pakai LAN , misal Servernya ada di IP
Adreess : 192.168.1.1
maka localhost diganti : 192.168.1.1
* Sesuaikan parameter-parameter diatas dengan setting
pada PC tempat database berada.
Dan Selanjutnya kembali ke tab form1.vb(Design) klik
2x pada area kosong di jendela form1, dan isikan sintax berikut ini. . .
SQLConnection.ConnectionString =
ServerStringTry
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
Penjelasan? OK2… pasti ada koq…^^…
§
SQLConnection.State = bla..bla.. then digunakan untuk memeriksa status koneksi apakah
sedang terbuka atau tidak, jika ya tutup dengan syntax SQLConnection.close() . Jangan lupa, variabel SQLConnection adalah
variabel yang kita gunakan untuk mewakili database yang telah terbentuk
koneksinya, karena di awal kita sudah membuat koneksi dengan sintax Dim SQLConnection As MySqlConnection = New
MySqlConnection
Minta penjelasan lagi? Iya…iya…, apa itu Try –
Catch?
§
Mudahnya, agar jika operasi dalam jualan Try gagal dilakukan, program tidak
keluar tanpa pesan, atau ketidakjelasan sehingga kita sulit mengidentifikasi
letak masalah. Selain itu, jika kita memikirkan pengguna, kasihan kan jika
mereka tiba-tiba langsung diKick tanpa keterangan apapun…sebenarnya juga tidak
terlalu membantu…;p Nah, dengan Try – Catch ini, jika operasi dalam Kuliah Try
gagal dilaksanakan, maka aplikasi akan mencoba menjalankan operasi yang ada
dalam jualan Catch, dalam contoh diberikan MsgBox(ex.Message) dimana ini
berguna untuk menampilkan pesan pop-up berisi Succes atau masalah yang terjadi.
Nah, pesan ini bisa diganti dengan String sesuka pengembang, terutama jika
nanti diterapkan untuk pengguna dengan cara mengubah isinya menjadi
MsgBox(“Succes berkoneksi ke MySql”), gimana sip toh? Selipkan juga dalam Blok
Try sebagai penanda bahwa koneksi gagal dilakukan.
Dan tambahkan sintax berikut ini untuk membuat
perintah MySqlComment
Public Sub SaveNames(ByRef
SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah”)
SQLConnection.Dispose()
End Sub
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah”)
SQLConnection.Dispose()
End Sub
SQLStatement itu adalah variable yang kita buat
sendiri untuk menjalankan Penge save an
* MsgBox(“bla-bla”) yaitu pesan jika kita berhasil
menambah ke table mahasiswa
Dan Selanjutnya kembali ke tab form1.vb(Design) klik
2x pada ToolBox Save di jendela form1, dan isikan sintax berikut ini. . .
Private Sub cmdSave_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”
SaveNames(SQLStatement)
End Sub
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”
SaveNames(SQLStatement)
End Sub
* sintax diatas gunanya untuk menginsert values ke
table mahasiswa
* SaveNames(SQLStatement) adalah variable string yang
kita buat di atas tadi
§
Sehingga isi keseluruhan Sintax form1 kita seperti
berikut :
Imports MySql.Data.MySqlClient
Public Class Form1
Dim ServerString As String = “Server=localhost;user id=root;password=root;database=kuliah”
Dim SQLConnection As MySqlConnection = New MySqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSQLConnection.ConnectionString = ServerStringTry
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
End SubPublic Sub SaveNames(ByRef SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah “)
SQLConnection.Dispose()
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”SaveNames(SQLStatement)
End Sub
End Class
Public Class Form1
Dim ServerString As String = “Server=localhost;user id=root;password=root;database=kuliah”
Dim SQLConnection As MySqlConnection = New MySqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSQLConnection.ConnectionString = ServerStringTry
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
End SubPublic Sub SaveNames(ByRef SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah “)
SQLConnection.Dispose()
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”SaveNames(SQLStatement)
End Sub
End Class
11. Jika sudah selesai mendesign VB dan Memasukan Variable-variable pada VB.Net sekarang kita akan membuat database dengan nama Kuliah dan membuat table dengan nama mahasiswa. .
1. Untuk Membuat Database ketikkan sintax berikut :
2. Sekarang kita masuk ke database Kuliah, dengan
ketikkan sintax berikut :
3. Kemudian kita membuat table dengan nama Mahasiswa,
dan struktur-strukturnya, dengan ketikkan sintax berikut :
CREATE TABLE Mahasiswa (
nim int not null primary key,
name varchar(20) );
nim int not null primary key,
name varchar(20) );
12. Jika Sudah Membuat database dan table sekarang
kita kembali ke VB dan memulai menjalankan programnya dengan mengeklik tombol
start atau dengan menekan F5. .
Tidak ada komentar:
Posting Komentar