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 Createreadupdate, 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
CRUD dengan VB.NET bagian 1

4. lalu desain form seperti gambar dibawah ini
CRUD dengan VB.NET bagian 1

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,
CRUD dengan VB.NET bagian 1


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
Author image

About the Author :

Nama Saya Dwi Randy Herdinanto. Saya Tinggal Di Bandar Lampung, Saat Ini SayaKuliah di Salah Satu Perguruan Tinggi di Lampung dan Juga Bekerja di Software House Lampung

Connect with me on :

0 Comments
Comments
 
Top