Apa itu CRUD? CRUD singkatan dari CREATE, RENAME, UPDATE, DELETE.
CRUD adalah operasi Create, read, update, dan delete pada database. Jadi tentu kita butuh database untuk menerapkan CRUD. sebelum memulai CRUD dengan VB.NET ada baiknya anda membaca Syntak Dasar SQL Server.
Oke langsung saja
1. Tambahkan sebuah table ke database latihan sebagai berikut:
create table siswa
(nis varchar(10) not null primary key,
nm_siswa varchar(30) not null,
alamat varchar(50) not null,
jenis_kelamin varchar(15) not null )
2. Buka project yang kita buat sebelumnya yang bernama KoneksiKeSqlServer
3. Setelah project berhasil dibuka lalu Klik menu Project - Add Windows Form pada kolom Name ketikan FrmCrud
4. lalu desain form seperti gambar dibawah ini
Object
|
Property
|
Value
|
Textbox1
|
Name
|
Txt_nis
|
Textbox2
|
Name
|
Txt_nama
|
Textbox3
|
Name
|
Txt_alamat
|
Combobox1
|
Name
|
Cbo_kelamin
|
Button1
|
Name
|
Btn_cari
|
Text
|
Cari
|
|
Button2
|
Name
|
Btn_tambah
|
Text
|
Tambah
|
|
Button3
|
Name
|
Btn_tutup
|
Text
|
Tutup
|
|
Button4
|
Name
|
Btn_simpan
|
Text
|
Simpan
|
5. klik 2 kali pada form data siswa lalu ketikan script di bawah ini:
Imports System.Data.SqlClient
Imports System.Xml
Public Class FrmCrud
Sub awal()
Txt_nis.Text = ""
Txt_nama.Text = ""
Txt_alamat.Text = ""
Cbo_kelamin.Text = ""
Cbo_kelamin.Items.Clear()
Cbo_kelamin.Items.Add("Laki - Laki")
Cbo_kelamin.Items.Add("Perempuan")
Btn_tutup.Text = "Tutup"
Btn_cari.Enabled = False
Btn_simpan.Enabled = False
Btn_tambah.Enabled = True
Btn_tutup.Enabled = True
Txt_nis.Enabled = False
Txt_nama.Enabled = False
Txt_alamat.Enabled = False
Cbo_kelamin.Enabled = False
End Sub
Private Sub FrmCrud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call ambilkoneksi()
Call awal()
End Sub
Private Sub Btn_tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_tambah.Click
Txt_nis.Enabled = True
Txt_nama.Enabled = True
Txt_alamat.Enabled = True
Cbo_kelamin.Enabled = True
Btn_simpan.Enabled = True
Btn_cari.Enabled = True
Btn_tambah.Enabled = False
Btn_tutup.Text = "Batal"
End Sub
Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click
If Txt_nis.Text = "" Or Txt_nama.Text = "" Or Txt_alamat.Text = "" Or Cbo_kelamin.Text = "" Then
MsgBox("Data belum lengkap", MsgBoxStyle.Information, "Informasi")
Else
cmd = New SqlCommand("select nis from siswa where nis='" & Txt_nis.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
MsgBox("NIS Sudah digunakan", MsgBoxStyle.Information, "informasi")
rd.Close()
Else
rd.Close()
cmd = New SqlCommand("insert into siswa (nis,nm_siswa,alamat,jenis_kelamin) values ('" & Txt_nis.Text & "','" & Txt_nama.Text & "','" & Txt_alamat.Text & "','" & Cbo_kelamin.Text & "')", conn)
cmd.ExecuteNonQuery()
MsgBox("Data berhasil disimpan", MsgBoxStyle.Information, "Informasi")
Call awal()
End If
End If
End Sub
Private Sub Btn_tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_tutup.Click
If Btn_tutup.Text = "Batal" Then
Call awal()
Else
Me.Close()
End If
End Sub
Private Sub Btn_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_cari.Click
If Txt_nis.Text = "" Then
MsgBox("Nis masih kosong", MsgBoxStyle.Exclamation, "Peringatan")
Else
cmd = New SqlCommand("select nis,nm_siswa,alamat,jenis_kelamin from siswa where nis='" & Txt_nis.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
Txt_nis.Text = rd("nis")
Txt_nama.Text = rd("nm_siswa")
Txt_alamat.Text = rd("alamat")
Cbo_kelamin.Text = rd("jenis_kelamin")
Btn_simpan.Enabled= False
Else
MsgBox("Data tidak ditemukan")
End If
rd.Close()
End If
End Sub
End Class
6. Lalu jalankan program dengan cara tekan F5,
Jika anda ingin mendownload source code silahkan klik disinidan untuk passwordnya disini
semoga berhasil
sekian postingan saya kali ini.
untuk selanjutnya pada postingan CRUD dengan VB.NET bagian 2 saya akan menambahkan Update dan Delete data
