CRUD dengan VB.NET bagian 1

Malam semua sebelum saya menlanjutkan postingan ini ada baiknya anda membaca cara mengkoneksikan VB.NET ke SQL Server 2008 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. 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 disini

dan 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