CRUD(Create,Read,Update,Delete) di VB.Net 2010 dan SQL Server 2005

Pada artikel berikut saya ingin berbagi cerita mengenai CRUD di VB.Net dan dengan database SQL Server 2005 yang terbukti efektif dan gampang digunakan. Seperti sudah banyak diketahui ketika kita membuat sebuah aplikasi komputer yang berhubungan dengan database, maka hampir tidak mungkin akan lepas dengan namanya CRUD (Create Read Update Delete).


Baiklah… mari kita mulai Tutorialnya…


- Pertama kita buat dahulu projectnya dengan nama CRUD(DheSoft).

- Setelah itu kita buat koneksinya dengan modul, untuk lebih jelasnya bisa dilihat disini
- Setelah itu kita buat Form Baru dengan nama CRUD(DheSoft)

- Kemudian buat Label,textbox,dan button nya sesuai dengan gambar diatas
- kemudian klik view code dan isi dengan source code di bawah

Imports System.Data.SqlClient
Public Class CRUD_DheSoft_
    Dim Cmd As SqlCommand
    Dim Rd As SqlDataReader

    Sub Bersih()
        Txtnim.Clear()
        Txtnama.Clear()
        TxtJur.Clear()
        TxtFak.Clear()
    End Sub

    Private Sub CRUD_DheSoft__Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Selamat Mencoba, Selalu kunjungi dhesoft.blogspot.com", MsgBoxStyle.Information, "Informasi")
        Txtnim.Focus()
        If Koneksi.State = ConnectionState.Open Then
            Label5.Visible = True
            Label5.Text = "Server Online"
        Else
            Label5.Visible = True
            Label5.Text = "Server Offline"
        End If
    End Sub

    Private Sub BtnBaca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaca.Click
        Cmd = New SqlCommand("Select *From TbMahasiswa where Nim='" & Txtnim.Text & "'", Koneksi)
        Rd = Cmd.ExecuteReader
        If Rd.Read Then
            Txtnama.Text = Rd.Item("Nama")
            TxtJur.Text = Rd.Item("Jurusan")
            TxtFak.Text = Rd.Item("Fakultas")
        Else
            MsgBox("Data tidak ada")
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Cmd = New SqlCommand("Insert Into TbMahasiswa (NIM,Nama,Jurusan,Fakultas) Values ('" & Txtnim.Text & "','" & Txtnama.Text & "','" & TxtJur.Text & "','" & TxtFak.Text & "')", Koneksi)
        Cmd.ExecuteNonQuery()
        MsgBox("Data Berhasil Disimpan")
        Bersih()
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        Cmd = New SqlCommand("Update TbMahasiswa Set Nama='" & Txtnama.Text & "',Jurusan='" & TxtJur.Text & "',Fakultas='" & TxtFak.Text & "' Where Nim='" & Txtnim.Text & "'", Koneksi)
        Cmd.ExecuteNonQuery()
        MsgBox("Data Berhasil Diedit")
        Bersih()
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Cmd = New SqlCommand("Delete from TbMahasiswa Where Nim='" & Txtnim.Text & "'", Koneksi)
        Cmd.ExecuteNonQuery()
        MsgBox("Data Berhasil Dihapus")
        Bersih()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Bersih()
    End Sub
End Class

- Untuk lebih jelasnya silahkan download source code nya disini
- Untuk Passwordnya silahkan download disini