Aplikasi CRUD dengan Visual Basic 2012 [APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, & MySQL. Bahtiar Imran

Aplikasi CRUD dengan Visual Basic 2012 [APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] & MySQL

Bahtiar Imran

September 18, 2013

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 Assalamualaikum..

Pada kesempatan kali ini kita akan membahas mengenai bagaimana membuat aplikasi Create,Read,Update dan Delete (CRUD) menggunakan visual studio 2012 dan database MySQL. Sebelum kita memulai membuat interface nya, terlebih dahulu kita akan membuat databasenya, dan pastikan XAMPP sudah terinstal dan sudah dijalankan. Buatlah database dengan nama “crud” (tanpa tanda petik”), kemudian buatlah tabelnya dengan nama “tblcrud” (tanpa tanda petik”). Kemudian isilah beberapa field yaitu : No

Nama Field

Type Data

Index

1

Nim

Int(10)

Primary

2

Nama

Varchar(30)

3

Alamat

Varchar(60)

4

Jurusan

Varchar(20)

SQL : CREATE TABLE IF NOT EXISTS `tblcrud` ( `Nim` int(10) NOT NULL, `Nama` varchar(30) NOT NULL, `Alamat` varchar(60) NOT NULL, `Jurusan` varchar(20) NOT NULL,

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 PRIMARY KEY (`Nim`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1; Setelah database sudah selesai kita buat, sekarang waktunya kita buat design interfacenya. (Lihat gambar). Nama Control

Properties

Nilai

Name

crud

FormBorderStyle

FixxedSingle

StartPosition

CenterScreen

MaximizeBox

False

MinimizeBox

False

Text

Aplikasi CRUD

Font Size

20

Label2

Text

Nim

Label3

Text

Nama

Label4

Text

Alamat

Label5

Text

Jurusan

Textbox1

Name

nim

Textbox2

Name

nama

Textbox3

Name

alamat

MultiLine

True

Name

jurusan

Items

Manajemen Informatika

Form 1

Label1

Combobox1

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 Teknik Komputer Informasi kesehatan DataGridView

Name

tabelcrud

GroupBox

Text

Tombol Proses

Button1

Text

Baru

Name

baru

Text

Simpan

Button2

Simpan Button3

Button4

Button5

Text

Edit

Name

edit

Text

Delete

Name

delete

Text

Keluar

Name

keluar

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 SecrenShoot :

Sekarang Interface dan Database sudah kita buat, sekarang saat ke sesi pengkodingan, koding pada visual basic 2012 simple kok. Oke kita lanjutkan. Sebelum kita masuk ke pengkodingan, terlebih dahulu kita menginstal MySQL Connector sebagai penghubungnya, MySQL Connector bisa di download di sini http://mysql.ntu.edu.tw/Downloads/Connector-Net/ atau

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 http://dev.mysql.com/downloads/connector/net/6.1.html Setelah MySQL terinstal, skrang kita masukkan ke dalam project kita. 1. Klik kanan pada project -> Add Reference ->Extensions -> MySQL.Data-> Ok (Lihat Gambar)

Saatnya kita masuk ke pengkodingan, yang pertama harus di lakukan adalah : 1. Membuat file koneksi : Klik kanan pada project kita -> Add ->Modulu -> namakan “Koneksi” (tanpa tanda petik) -> Add.

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 Kemudian isikan source code pada module koneksi tadi . Imports MySql.Data.MySqlClient Module koneksi Public Database As New MySqlConnection Public Tampilkan As New MySql.Data.MySqlClient.MySqlCommand Public Tampil As MySql.Data.MySqlClient.MySqlDataReader Public gridview As New MySql.Data.MySqlClient.MySqlDataAdapter Public data As New DataSet Public tabel As String Public record As New BindingSource Public SQL As New MySql.Data.MySqlClient.MySqlCommand Public Sub koneksiku() Try Database.Close() Database.ConnectionString = "server=localhost;" _ & "user id=root;" _ & "password=;" _ & "database=crud" Database.Open() Catch ex As Exception MsgBox(ex.ToString()) End Try


End Sub End Module ScrenShoot :

2. Double klik pada button baru -> masukkan source berikut : nim.Text = "" nama.Text = "" alamat.Text = "" baru.Enabled = False edit.Enabled = True Simpan.Enabled = True delete.Enabled = True


Screnshoot :

3. Double klik pada button Simpan -> dan masukkan source berikut:

If nim.Text = "" Then MessageBox.Show("Nim tidak boleh dikosongkan") : Exit Sub If nama.Text = "" Then MessageBox.Show("Nama tidak boleh dikosongkan") : Exit Sub If alamat.Text = "" Then MessageBox.Show("Alamat tidak boleh dikosongkan") : Exit Sub If jurusan.Text = "" Then MessageBox.Show("Jurusan tidak boleh dikosongkan") : Exit Sub Try Call koneksiku() SQL.Connection = Database

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 SQL.CommandType = CommandType.Text SQL.CommandText = "insert into tblcrud values('" & nim.Text & "','" & nama.Text & "','" & alamat.Text & "','" & jurusan.Text & "')" SQL.ExecuteNonQuery() MsgBox("Data berhaasil disimpan", vbInformation, "Pemberitahuan") Call record() nim.Text = "" nama.Text = "" alamat.Text = "" baru.Enabled = True edit.Enabled = True Simpan.Enabled = False delete.Enabled = True Catch ex As Exception MsgBox(ex.ToString())

End Try End Sub

ScrenShoot :


4. Kemudian kita akan membuat class baru bernama record:

Try Call koneksiku() data = New DataSet tabel = "select * from tblcrud" gridview = New MySql.Data.MySqlClient.MySqlDataAdapter(tabel, Database) gridview.Fill(data, "tblcrud") Dim DataGridView As New DataView(data.Tables("tblcrud")) tabelcrud.DataSource = DataGridView tabelcrud.Columns(0).Width = 75 tabelcrud.Columns(1).Width = 275 tabelcrud.Columns(3).Visible = False

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub

Screnshoot :

5. Sekarang kita double klik pada form.

Call record()

Screnshoot:


6. Sekarang kita akan membuat fungsi dari edit , yaitu apabila kita ingin melakukan edit/perubahan data, yang perlu harus dilakukan adalah, double klik pada cell table. Tapi sebelum kita berbicara kesana, terlebih dahulu kita buatkan fungsi , yaitu apabila kita melakukan double klik pada cell tabel, maka data akan di tampilkan. Sekaran kita masukkan source double klik cell pada tabel nya dengan cara (lihat gambar).

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 7. Double klik pada CellDoubleClick lalu masukkan source code dibawah ini: Try nim.Text = tabelcrud.SelectedCells(0).Value nama.Text = tabelcrud.SelectedCells(1).Value alamat.Text = tabelcrud.SelectedCells(2).Value jurusan.Text = tabelcrud.SelectedCells(3).Value baru.Enabled = False edit.Enabled = True Simpan.Enabled = False delete.Enabled = False Catch ex As Exception MsgBox(ex.ToString()) End Try Screnshoot :

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 8. Double klik pada button edit, isikan source dibawah ini: Try Call koneksiku() SQL.Connection = Database SQL.CommandType = CommandType.Text SQL.CommandText = "update tblcrud set Nama = '" & nama.Text & "', Alamat='" & alamat.Text & "', Jurusan='" & jurusan.Text & "' where Nim = '" & nim.Text & "'" SQL.ExecuteNonQuery() MsgBox("Data berhasil di edit", vbInformation, "Pemberitahuan") Call record() nim.Text = "" nama.Text = "" alamat.Text = "" baru.Enabled = True edit.Enabled = True Simpan.Enabled = True delete.Enabled = True Catch ex As Exception MsgBox(ex.ToString()) End Try

Screnshoot:

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 9. Double klik pada button delete, kemudian isikan source code dibawah ini: Try Call koneksiku() SQL.Connection = Database SQL.CommandType = CommandType.Text SQL.CommandText = "delete from tblcrud where Nim = '" & nim.Text & "'" SQL.ExecuteNonQuery() MsgBox("Data berhasil dihapus", vbInformation, "Pemberitahuan") Call record() nim.Text = "" nama.Text = "" alamat.Text = "" jurusan.Text = "" baru.Enabled = True edit.Enabled = False Simpan.Enabled = False delete.Enabled = False Catch ex As Exception End Try Screnshoot :

[APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, 2013 10. Selanjutnya, Double klik pada button keluar, dan masukkan source code dibawah ini: Me.Close() Screnshoot :

Setelah semua button kita masukkan source code, sekarang waktunya kita menjalankan program/Run (F5).


Mungkin ini dulu tutorial edisi pertama dari saya , mohon maaf bila ada kekurangan, dan apabila ada yang kurang jelas, silahkan hubungi saya dengan kontak dibawah ini : Email : [email protected] Blog : tiarvariabel.blogspot.com FB : Ti’ar Variabel (https://www.facebook.com/S4ng.Pengemb4r4.WhiteHat) SEKIAN , SAMPAI JUMPA DI TUTORIAL SELANJUTNYA

Aplikasi CRUD dengan Visual Basic 2012 [APLIKASI CRUD DENGAN VISUAL BASIC 2012 & MYSQL] September 18, & MySQL. Bahtiar Imran

Recommend Documents