CRUD dengan VB.NET dan SQL Server Bagian 1

Malam semua sebelum saya menlanjutkan postingan ini ada baiknya anda membaca Cara mengkoneksikan VB.NET ke SQL Server kali ini saya akan memposting tutorial CRUD dengan VB.NET
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.

Oke langsung saja

1. Tambahkan sebuah table pada 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

Komponen	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")
Else
MsgBox("Data tidak ditemukan")
End If
rd.Close()
End If
End Sub

End Class

6. Lalu jalankan program dengan cara tekan F5,