CRUD( Create, Read, Update, Delete) - Merupakan pelajaran dasar setiap bahasa pemoggraman yang harus di pelajari setelah kita memahami basisdata dan database.
Berikut ini tutorial CRUD dengan menggunakan Visal Basic .net 2008, yang bisa kamu ikuti step by step.
Sebelum kita mulai, anda harus mempersiapkan tool sebagai berikut, Aplikasi VB.NET 2008, Xampp, MySQL Conector.
Baik langsung saja kita mulai, dengan langgah pertama yaitu membuat database.
Video Tutorial Belajar VB NET:
1. Belajar VB Net - Membuat Database
Buatlah Databe dengan nama db_crud pada SQL Database, bisa melalui PHP MyAdmin.
Lalu buatlah tabel t_mahasiswa, dengan nama file nim, nama, alamat. Kamu bisa menggunakan Code Berikut ini.
CREATE TABLE IF NOT EXISTS `t_mahasiswa` (
`nim` varchar(10) NOT NULL,
`nama` varchar(50) NOT NULL,
`alamat` varchar(100) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
2. Belajar VB NET - Membuat Modul Koneksi
Buka Aplikasi Visual Studio, lalu langkah pertama buatlah modul koneksi terlebih dahulu. Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Module Module1
Public Cmd As MySqlCommand
Public Rd As MySqlDataReader
Public Conn As MySqlConnection
Public Sub Koneksi()
Conn = New MySqlConnection("server=localhost;user=root;password ='';database=db_crud")
Try
If Conn.State = ConnectionState.Closed Then
Conn.Open()
'MsgBox("Terkoneksi", MsgBoxStyle.Information, "konfirmasi")
End If
Catch Pesan As MySql.Data.MySqlClient.MySqlException
MsgBox("Mencoba menghubungi server... " + vbCrLf + _
"Pastikan Database Server Telah Aktif", MsgBoxStyle.Exclamation, "Perhatian")
End Try
End Sub
End Module
3. Belajar VB Net - Membuat Form
Buatlah Form seperti gambar dibawah ini, menggunakan 4 Textbox, 4 Button, dan 1 List View seperti contoh berikut. |
| Form Belajar VB Net |
4. Belajar VB Net - Membuat fungsi Simpan
Berikut ini adalah code pada Button Simpan, Doubel click button simpan dan Paste Code berikut.
Try
Cmd = New MySqlCommand("insert into t_mahasiswa(nim,nama,alamat)values " & _
"('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "')", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data " & TxtNama.Text & " Berhasil Disimpan...", MsgBoxStyle.Information, "Konfirmasi")
Call isi_tabel()
Call batal()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
5. Belajar VB Net - Mengisi Data ke List View
Fungsi berikut ini digunakan untuk mengisi data pada List View, setiap data yang kita simpan maka akan masuk ke dalam List View di samping. Guanakan pada sub tersendiri. Sub isi_tabel()
Try
LV1.Items.Clear()
Cmd = New MySqlCommand("select * from t_mahasiswa", Conn)
Rd = Cmd.ExecuteReader
While Rd.Read
Dim Li As New ListViewItem
Li.Text = Rd!nim
Li.SubItems.Add(Rd!nama)
Li.SubItems.Add(Rd!alamat)
LV1.Items.Add(Li)
End While
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
End Sub
6. Belajar VB Net - Memanggil data dari List View
Memanggil data dari ListView dengan cara click pada record yang tampil. Fungsi ini bertujuan untuk memperbarui data atau menghapus data.
Try
TxtNim.Enabled = False
TxtNama.Enabled = True
BtnSimpan.Enabled = False
BtnBatal.Enabled = True
BtnHapus.Enabled = True
BtnBatal.Enabled = True
TxtNim.Text = LV1.SelectedItems(0).Text
Cmd = New MySqlCommand("select * from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Rd.HasRows Then
TxtNim.Text = Rd!nim
TxtNama.Text = Rd!nama
TxtAlamat.Text = Rd!alamat
Rd.Close()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
7. Tutorial Vb Net - Memanggil data dari NIM
Memanggil data berdasarkan NIM, dibuat agar kita mengetahui setiap NIM yang telah di input sebelumnya, atau dapat berfungsi sama dengan poin 6 diatas. If e.KeyChar = Chr(13) Then
TxtNama.Enabled = True
TxtNama.Focus()
BtnSimpan.Enabled = True
Try
Cmd = New MySqlCommand("select * from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Rd.HasRows Then
TxtNama.Text = Rd!nama
TxtAlamat.Text = Rd!alamat
BtnHapus.Enabled = True
BtnBatal.Enabled = True
BtnSimpan.Enabled = False
End If
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
End If
8. Tutorial VB Net - Membuat Fungsi Batal
Fungsi batal digunakan untuk membersihkan form saja, bisa jadi di gunakan pada setiap Event yang ada, jadi sebaiknya menggunakan SUB Sendiri. TxtNim.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
TxtNim.Enabled = True
BtnSimpan.Enabled = True
9. Tutorial Vb Net - Merubah Data (Edit)
Fungsi ini digunakan untuk memperbarui data apabila ada kesalahan pada setiap record yang di simpan, dapat juga di sebut untuk fungsi UPDATE. Try
Cmd = New MySqlCommand("update t_mahasiswa set nama='" & TxtNama.Text & "',alamat='" & TxtAlamat.Text & "' where nim ='" & TxtNim.Text & "'", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data " & TxtNama.Text & " Berhasil Diubah...", MsgBoxStyle.Information, "Konfirmasi")
Call isi_tabel()
Call batal()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
10. Tutorial Vb Net - Fungsi Hapus
Fungsi ini di gunakan untuk menghapus data pada tabel. Langsung saja doubel click pada butoon hapus dan paste code berikut. Try
Cmd = New MySqlCommand("delete from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Berhasil Dihapus", MsgBoxStyle.Information, "Konfirmasi")
Call batal()
Call isi_tabel()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
11. Tutorial VB Net - Membuat Fungsi Pencarian
Fungsi ini bertujuan untuk memfilter atau mencari data yang ada pada record atau database. Gunakan fungsi ini pada event change. Try
LV1.Items.Clear()
Cmd = New MySqlCommand("select * from t_mahasiswa where nama like '%" & TxtCari.Text & "%'", Conn)
Rd = Cmd.ExecuteReader
While Rd.Read
Dim Li As New ListViewItem
Li.Text = Rd!nim
Li.SubItems.Add(Rd!nama)
Li.SubItems.Add(Rd!alamat)
LV1.Items.Add(Li)
End While
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
Demikian Tutorial CRUD VB NET sebagai Tutorial Dasar Pemograman VB.NET 2008.
Kunjungi saya di Youtube :
https://www.youtube.com/sandifadilahbahri
Baca Juga :
- Membuat Premery Key Otomatis VB.NET
- Agar Combo Box Tidak bisa di EDIT VB.NET
- Menghitung Tanggal Menggunakan Datetimepicker VB.NET
Komentar untuk bertanya, memberikan masukan, atau saran. saya akan memalas pesan anda segera EmoticonEmoticon