VB.NET INSERT, UPDATE, DELETE, SEARCH

Halo sahabat bahasaporgramvb.blogspot.com, sesuai dengan judul artikel ini adalah membuat aplikasi insert, update, delete dan search data . Dalam tutorial ini saya membuat membuat dua form dimana form pertama adalah untuk manampilkan data dari database dan form kedua untuk input user. Saya berharap yang melihat tutorial ini sudah paham apa itu module, procedure, function dalam bahasa pemrograman khususnya visual basic.net. saya juga akan menjelaskan beberapa kode yang saya tuliskan nantinya agar pembaca dapat lebih mudah paham dengan kode yang saya tuliskan. Hasil dari aplikasi ini akan terlihat seperti gambar di bawah ini.

Langkah-langkah dalam membuat aplikasi spergi gambar di atas

• Membuat database
Buka Sql server dan buat query seperti dibawah ini untuk menciptakan database baru bernama CRUD CREATE DATABASE CRUD ON ( NAME = CRUD_DATA, FILENAME = 'D:\LIBRARY\CRUD_DATA.MDF', SIZE = 3MB, MAXSIZE = UNLIMITED, FILEGROWTH = 10MB ) LOG ON ( NAME = CRUD_LOG, FILENAME = 'D:\LIBRARY\CRUD_DATA.LDF', SIZE = 3MB, MAXSIZE = UNLIMITED, FILEGROWTH = 10MB ); Kode tersebut berfungsi untuk membuat database bernama CRUD dan meciptakan 2 file yaitu CRUD_DATA format MDF dan CRUD_LOG format LDF, dimana masing masing file tersebut memiliki unkuran awal (SIZE) adalah 3MB dan ukuran terbesarnya (MAXSIZE) tak terhingga dan masing masing file hanya boleh bertambah ukurannya (FILEGROWTH) 10MB dari MAXSIZE yang sudah ditentukan. Kebetulan untuk MAXSIZE yang kita buat di atas adalah untlimited sehingga tidak akan mempengaruhi FILEGROWTH. Untuk lebih jelasnya jika MAXSIZE di set 1GB makan file tersebut hanya bisa bertambah 10MB jadi total SIZE database nya hanya akan berukuran 1,01 GB yang bisa digunakan.
• Membuat Tabel Master
USE CRUD GO CREATE TABLE MASTER ( KODE CHAR(3) PRIMARY KEY, STATUS SMALLINT DEFAULT 0, NAMA VARCHAR(50) NOT NULL, JENIS_KELAMIN SMALLINT DEFAULT 0, ALAMAT VARCHAR(100), ); Query diatas berfungsi menciptakan tabel bernama MASTER yang akan kita gunakan sebagai penampung data dari aplikasi nantinya
• Buka visual studio, buatlah Form dengan nama frmBrowse seperti dibawah ini

Form tersebut berfungsi untuk menampilkan data master yang akan kita tarik dari database yang telah kita buat sebelumnya. Aturlah property dari masing masing control seperti gambar di atas.
• tambahkan form dengan nama FrmMaster seperti dibawah ini

• Tambahkan sebuah module dengan nama ModuleGlobal
Module ini berfungsi untuk membuat variabel variabel global dan membuat sambungan koneksi ke dalatabase CRUD yang akan kita perlukan nantinya di frmBrowse dan frmMaster sehingga dengan adanya module ini akan sangat bermanfaat karena kita tinggal memangilnya untuk digunakan dan tidak perlu di tulis berulang ulang di setiap form yang ada. Imports System.Data.SqlClient Imports System.Data Module ModuleGlobal Public Str As String Public Cn As SqlConnection Public Cmd As SqlCommand Public Da As SqlDataAdapter Public Dt As DataTable Public Ds As DataSet Public Dr As SqlDataReader Public Sub BukaKoneksi() Str = "Data Source = SERVER-PC; Initial Catalog =CRUD; User Id=SA; Password = 12345" Cn = New SqlConnection(Str) If Cn.State = ConnectionState.Closed Then Cn.Open() End If End Sub Public Sub TutupKoneksi() Cn.Close() End Sub End Module
• Buka frmBrowse dan tuliskan kode seperti dibawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmBrowse Public Sub TampilData() BukaKoneksi() If Len(Trim(txtCari.Text)) = 0 Then Str = "SELECT KODE, NAMA, ALAMAT FROM MASTER ORDER BY NAMA" Else Str = "SELECT KODE, NAMA, ALAMAT FROM MASTER WHERE NAMA LIKE '%" & txtCari.Text & "%'" End If Cmd = New SqlCommand(Str, Cn) Da = New SqlDataAdapter(Cmd) Dt = New DataTable Da.Fill(Dt) Dgv.Rows.Clear() For i As Integer = 0 To Dt.Rows.Count - 1 Dgv.Rows.Add(Dt.Rows(i).Item("KODE"), Dt.Rows(i).Item("NAMA"), Dt.Rows(i).Item("ALAMAT")) Next TutupKoneksi() End Sub Private Sub FrmBrowse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call TampilData() End Sub Private Sub txtCari_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.Validated Call TampilData() End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click BukaKoneksi() Dim KODE As String If Dgv.Rows.Count > 0 Then KODE = Dgv.Rows(Dgv.CurrentCell.RowIndex).Cells(0).Value If MessageBox.Show("Hapus data " & KODE, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Str = "DELETE FROM MASTER WHERE KODE = '" & KODE & "'" Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() End If End If Call TampilData() End Sub Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click FrmCrud.Posisi = True FrmCrud.ShowDialog() End Sub Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click If Dgv.Rows.Count - 1 > 0 Then FrmCrud.Posisi = False FrmCrud.Nilai = Dgv.Rows(Dgv.CurrentCell.RowIndex).Cells(0).Value FrmCrud.ShowDialog() End If End Sub End Class
• Buka frmMater dan tuliskan kode seperti dibawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmCrud Private Permission As Boolean Public Posisi As Boolean Public Nilai As String 'Deklarasi variabel untuk menampung nilai dari input user Private Kode As String Private Nama As String Private Status As Single Private JenisKelamin As Single Private Alamat As String Private Sub TampungNilai() Kode = txtKode.Text Nama = txtNama.Text Alamat = txtAlamat.Text Status = IIf(CboxAktif.Checked = True, 1, 0) JenisKelamin = IIf(CboxLakiLaki.Checked = True, 1, 0) End Sub Private Function CekKode(ByVal kode As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(KODE) FROM MASTER WHERE KODE = '" & txtKode.Text & "'" Try Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function Private Sub Validation() If Len(Trim(txtKode.Text)) = 0 Then txtKode.Focus() Permission = False Exit Sub End If If Len(Trim(txtNama.Text)) = 0 Then txtNama.Focus() Permission = False Exit Sub End If If CboxLakiLaki.Checked = False And CboxPerempuan.Checked = False Then MessageBox.Show("Pilih jenis kelamin", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) Permission = False Exit Sub End If Permission = True End Sub Private Sub RefreshForm() If Posisi Then txtKode.Clear() CboxAktif.Checked = False txtNama.Clear() CboxPerempuan.Checked = False CboxLakiLaki.Checked = False btnSimpan.Text = "Simpan" txtAlamat.Clear() Else Call BukaKoneksi() Str = "SELECT * FROM MASTER WHERE KODE = '" & Nilai & "'" Try Cmd = New SqlCommand(Str, Cn) Dr = Cmd.ExecuteReader Dr.Read() If Dr.HasRows Then txtKode.Text = Dr.Item("KODE") txtNama.Text = Dr.Item("NAMA") txtAlamat.Text = Dr.Item("ALAMAT") IIf(Dr.Item("STATUS") = 1, CboxAktif.Checked = True, CboxAktif.Checked = False) If Val(Dr.Item("JENIS_KELAMIN")) = 1 Then CboxLakiLaki.Checked = True Else CboxPerempuan.Checked = True End If Dr.Close() btnSimpan.Text = "Update" End If Catch ex As Exception MessageBox.Show(ex.Message.ToString) End Try End If txtKode.Focus() End Sub Private Sub FrmCrud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call RefreshForm() End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Call Validation() If Permission Then Call TampungNilai() If Posisi Then If CekKode(txtKode.Text) > 0 Then MessageBox.Show("Double Data", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtKode.Focus() Exit Sub Else Str = "INSERT INTO MASTER " & _ "VALUES ('" & Kode & "'," & Status & ",'" & Nama & "'," & JenisKelamin & ",'" & Alamat & "')" Try Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() MessageBox.Show("Data tersimpan", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MessageBox.Show(ex.Message) End Try End If Else Str = "UPDATE MASTER SET KODE = '" & Kode & "', STATUS = " & Status & ", NAMA = '" & _ Nama & "', JENIS_KELAMIN = " & JenisKelamin & ", ALAMAT = '" & Alamat & "' WHERE KODE = '" & Nilai & "'" Try Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() MessageBox.Show("Data telah update", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MessageBox.Show(ex.Message) End Try End If Posisi = True Call FrmBrowse.TampilData() Call RefreshForm() End If End Sub End Class

Aplikasi sudah di uji coba di komputer saya dan berjalan dengan baik, Saat ini link download untuk aplikasi ini masih belum tersedia dan dalam waktu dekat ini saya akan menyediakan link download nya. Jika diantara teman teman ingin aplikasi sederhana ini silahkan meninggalkan email di kolom komentar dibawah ini. Terimakasih