Koneksi MySql dengan VB .Net 2010

Assalamualikum Wr. Wb.


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 appserv-win32-2.5.9

2. MySQL Connector, dalam contoh saya menggunakan versi 6.6.4

3. VB .Net, dalam contoh saya menggunakan yang Visual Basic 2010 Express

4. dan saya disini memakai Windows 7 64 bit



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...

seperti gambar dibawah ini :





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 :

Lihat contoh gambar dibawah ini. . .





8. Design form1.vb (design) hingga Seperti dibawah ini.

 

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

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

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

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

* 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

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 :

CREATE DATABASE Kuliah;





2. Sekarang kita masuk ke database Kuliah, dengan ketikkan sintax berikut :

Use Kuliah;





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) );



12. Jika Sudah Membuat database dan table sekarang kita kembali ke VB dan memulai menjalankan programnya dengan mengeklik tombol start atau dengan menekan F5. .

* Jika berhasil terhubung ke MySql akan keluar Pesan seperti dibawah ini :

Untuk Ebooknya bisa di download