Membuat Crud Visual Basic .Net Database Mysql

Pada pembelajaran kali ini akan bahas mengenai cara menciptakan CRUD ( cread, read, update and delete) atau bahasa indonesianya Input, Edit, Delete Visual Basic .NET database Menggunakan MysQL.

Syarat Mengikuti Tutorial ini :
1.    Anda sudah menginstall Visual Basic atau Visual Studio ( Boleh Versi Apapun)
2.    Anda sudah menginstall database MysQL ( Saya memakai Xampp)
3.    Anda sudah menginstall Connector MySQL to VB ( Jika anda belum silahkan download di  sajian Download web JNM ini )

Jika syarat diatas sudah dipenuhi berikut langkahnya :

LANGKAH 1 : Membuat Database dan Tabel Menggunakan MySQL

Langkah ini wajib dilakukan ya, sebab kalau tidak ada database dan tabel maka anda tidak sanggup melaksanakan CRUD
Silahkan buka Xampp Control Panel :

Pastikan Apache dan MysQL dalam keadaan running menyerupai gambar diatas,
Jika sudah silahkan buka browser anda. Kemudian masuk ke PHP MyAdmin : http://localhost/phpmyadmin/
Maka akan muncul tampilan dibawah ini :

Silahkan anda klik new menyerupai yang saya beri kotak warna merah
Buat database dengan nama : dbjnm
Jika database sudah terbuat, silahkan buat tabel dengan nama tbl_mahasiswa

CREATE TABLE `tbl_mahasiswa` (   `nimmhs` varchar(6) NOT NULL,   `namamhs` varchar(100) DEFAULT NULL,   `alamatmhs` varchar(100) DEFAULT NULL,   `teleponmhs` varchar(20) DEFAULT NULL,   `jurusanmhs` varchar(50) DEFAULT NULL ) ENGINE=InnoDB DEFAULT CHARSET=latin1; ALTER TABLE `tbl_mahasiswa` ADD PRIMARY KEY (`nimmhs`); INSERT INTO `tbl_mahasiswa` (`nimmhs`, `namamhs`, `alamatmhs`, `teleponmhs`, `jurusanmhs`) VALUES ('NIM001', 'Agus Masaid', 'JL Durian No 44', '02111111', 'Sastra'), ('NIM002', 'Bilqis Maimunah', 'JL Mangga No 56', '02122222', 'Ekonomi'), ('NIM003', 'Wahyu Adi', 'Jl Salak No 77', '0213333333', 'Sastra'), ('NIM004', 'Cahya Istiqomah', 'JL Anggur No 56', '021444444', 'Hukum'), ('NIM005', 'Alin Arfianti', 'JL Duku No 56', '02155555', 'Management'); 

Fungsi diatas yaitu fungsi SQL, jadi menciptakan tabel pada mysql memakai koding bukan cara manual.
Saya sudah membahasnya di website JNM di link ini : /search?q=membuat-database-dan-tabel-mysql

Jika anda sudah menjalankan koding diatas, maka balasannya yaitu sebagai berikut :

Gambar diatas, sudah terdapat tbl_mahasiswa didalam database dbjnm

LANGKAH 2 : Membuat Form Visual Basic .NET dan Kodingnya

Jika anda telah berhasil menciptakan database dan tabel memakai MySQL sekarang saatnya kita menciptakan
Silahkan buka Software Visual Basic .NET anda
Buat sebuah form menyerupai gambar dibawah ini :

Keterangan Gambar :
Nama Form : Form1
1 : Textbox1, 2 : Textbox2, 3 : TextBox3, 4 : textbox4, 5 : ComboBox1, 6 : Button1, 7: Button2, 8: Button3, 9 : Button4, Terakhir no 10 : DatagridView1

#1. Membuat Koding Koneksi Database :
Berikut yaitu koding untuk mengkoneksikan kedatabase dbjnm dan memunculkan list tbl_mahasiswa pada Datagridview1

Imports System.Data.Odbc Public Class Form1     Dim CONN As OdbcConnection     Dim CMD As OdbcCommand     Dim DS As New DataSet     Dim DA As OdbcDataAdapter     Dim RD As OdbcDataReader     Dim LokasiData As String     Sub Koneksi()         LokasiData = "Driver={MySQL ODBC 3.51 Driver};Database=dbjnm;server=localhost;uid=root"         CONN = New OdbcConnection(LokasiData)         If CONN.State = ConnectionState.Closed Then             CONN.Open()         End If     End Sub     Sub TampilGrid()         Call Koneksi()         DA = New OdbcDataAdapter("select * From tbl_mahasiswa ", CONN)         DS = New DataSet         DA.Fill(DS, "tbl_mahasiswa")         DataGridView1.DataSource = DS.Tables("tbl_mahasiswa")         DataGridView1.ReadOnly = True     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call TampilGrid()     End Sub End Class  

Jika anda sudah memasukan koding di Form1 maka balasannya yaitu sebagai berikut :

Jika anda belum sanggup menciptakan koneksi tbl_mahasiswa menyerupai gambar diatas, anda dilarang melanjutkan tutorial selanjutnya. Jika masih error, silahkan cari hingga bisa.

Kemudian kalau anda sudah sanggup memunculkan data tbl_mahasiswa menyerupai gambar diatas, mari lanjutkan tutorilnya :
Ceritanya pada combo jurusan kita akan menampilkan Jurusan yang diinginkan. Contoh saya akan menciptakan list jurusan ada 4 yaitu : Sastra, Ekonomi, Hukum dan Management.
Berikut langkahnya :
Pertama buat Sub dengan nama MunculCombo, lalu masukan koding items.add :

Sub MunculCombo()         ComboBox1.Items.Add("Sastra")         ComboBox1.Items.Add("Ekonomi")         ComboBox1.Items.Add("Hukum")         ComboBox1.Items.Add("Management") End Sub 

Silahkan jalankan Project anda seharusnya sudah muncul  list Jurusan pada pada Form1
Sebelum anda menciptakan koding Input data, sebaiknya anda menciptakan Sub KosongkanData Terlebih dahulu :

Sub KodongkanData()         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = "" End Sub 

#2. Membuat koding Input Data :
Untuk menciptakan koding Input data, silahkan Double Klik pada Button1. Kemudian masukan koding dibawah ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then             MsgBox("Silahkan Isi Semua Form")         Else             Call Koneksi()             Dim simpan As String = "insert into tbl_mahasiswa values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"             CMD = New OdbcCommand(simpan, CONN)             CMD.ExecuteNonQuery()             MsgBox("Input data berhasil")             Call TampilGrid()             Call KosongkanData()         End If     End Sub 

Selanjutnya silahkan anda jalankan atau runningkan Input data yang sudah dibentuk diatas
Jika sudah sanggup Input silahkan dilanjut ke tahap Edit data

#3. Edit Data di TBL_MAHASISWA
Selanjutnya kita akan menciptakan edit data. Saya akan memakai KeyPress dimana sebelum edit data, kita akan memunculkan data terlebih dahulu, dengan memasukan NIM lalu di ENTER , kalau sudah muncul data maka kita akan update data tersebut.

Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress         TextBox1.MaxLength = 6         If e.KeyChar = Chr(13) Then             Call Koneksi()             CMD = New OdbcCommand("Select * From tbl_mahasiswa  where NIMMHS='" & TextBox1.Text & "'", CONN)             RD = CMD.ExecuteReader             RD.Read()             If Not RD.HasRows Then                 MsgBox("NIM Tidak Ada, Silahkan coba lagi!")                 TextBox1.Focus()             Else                 TextBox2.Text = RD.Item("namamhs")                 TextBox3.Text = RD.Item("alamatmhs")                 TextBox4.Text = RD.Item("teleponmhs")                 ComboBox1.Text = RD.Item("jurusanmhs")                 TextBox2.Focus()                 End If             End If     End Sub 

Fungsi koding diatas untuk memunculkan data terlebih dahulu, Caranya masukan NIM pada TextBox1 pola NIM001 lalu ENTER

Setelah di ENTER silahkan Update data lalu masukan koding dibawah ini pada tombol Update :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Call Koneksi()         Dim edit As String = "update tbl_mahasiswa set namamhs='" & TextBox2.Text & "',alamatmhs='" & TextBox3.Text & "',teleponmhs='" & TextBox4.Text & "',jurusanmhs='" & ComboBox1.Text & "' where nimmhs='" & TextBox1.Text & "'"         CMD = New OdbcCommand(edit, CONN)         CMD.ExecuteNonQuery()         MsgBox("Data Berhasil diUpdate")         Call TampilGrid()         Call KosongkanData() End Sub 

Jika sudah diupdate maka Muncul pesan “Data Berhasil di Update” lalu Call TampilGrid untuk Refresh Datagrid, dan KosongkanData untuk mengosongkan field-field yang ada di Form.

#4. Hapus Data di TBL_MAHASISWA
Selanjutnya yang terakhir, kita akan menciptakan koding untuk menghapus data. Untuk menghapus data kita akan memakai Keypress pada TextBox1 dimana sebelum kita menghapus data, kita akan memunculkan data mana yang akan kita hapus terlebih dahulu. Kemudian kalau sudah ketemu akan kita hapus :
Karena kita sudah menciptakan Keypress diatas, maka kita eksklusif double klik pada Button3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         If TextBox1.Text = "" Then             MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")         Else             If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then                 Call Koneksi()                 Dim hapus As String = "delete From tbl_mahasiswa  where nimmhs='" & TextBox1.Text & "'"                 CMD = New OdbcCommand(hapus, CONN)                 CMD.ExecuteNonQuery()                 Call TampilGrid()                 Call KosongkanData()                 End If         End If End Sub 

Sampai disini, silahkan anda coba jalankan project anda, dan pastikan Input, Edit dan Hapus data sudah sanggup semua. Selanjutnya jangan lupa untuk memperlihatkan koding pada Button4 yaitu Close From.
Silahkan double klik pada Button4, lalu anda cukup ketikan END

Demikian Tutorial Membuat CRUD Visual Basic .NET Database MySQL Semoga bermanfaat untuk anda, Ikuti terus pembelajaran Visual Basic dari JNM. Jangan lupa anda sanggup Share Tutorial ini kepada teman anda yang membutuhkan dan Anda juga sanggup request tutorial atau berkomentar dibawah.

Silahkan KLIK DISINI untuk download project diatas

Share this post