Tutorial CRUD Sederhana di VB.Net

Kali ini saya akan mengajarkan tutorial membuat aplikasi CRUD sederhana menggunakan VB.Net
tools yang digunakan : Visual Studio 2013 dan Sql Server 2008.

Apa Sih CRUD Itu ?

CRUD adalah singkatan dari Create Remove Undo Delete yang pengertiannya adalah program / aplikasi yang dapat mengelola databases . Biasanya materi ini diberikan di matakuliah pemrogaman database. Dan dalam artikel ini kita akan membuat aplikasi CRUD sederhana menggunakan bahasa pmerogaman VB.Net.

Baca Juga : Download Berbagai Kumpulan Source Code Program

Kenapa VB.Net ?

Bahasa pemrogaman ini masih banyak diminati karena banyak kelebihan yang bisa kita dapat salah satu nya adalah bahasa pemrogaman ini suport untuk pemrogaman berkonsep oop (Object Oriented Programing). Banyak Engine pemrogaman yang suport bahasa VB.Net tetapi kali ini kita akan menggunakan VIsual Studio 2013 dan  untuk server databesesnya kita menggunakan Sql Server 2008.

Baiklah tanpa basa basi lagi kita akan langsung ke proses pembuatan atau pembangunan atan pengembangan software.
Pertama Buat lah Form seperti gambar di atas samakan lalu masukan script di bawah ini :

Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private ds As DataSet
    Private da As SqlDataAdapter

    Private Sub koneksiDB()
        conn = New SqlConnection
        cmd = New SqlCommand
        da = New SqlDataAdapter
        ds = New DataSet
        conn.ConnectionString = "Data source=USER-PC;Initial Catalog=uas;Integrated Security=true"
    End Sub
    Private Sub bersih()
        Id.Text = ""
        Nama.Text = ""
        Satuan.Text = ""
        Harga.Text = ""
        Stock.Text = ""
    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ampil()
    End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

Baca Juga : Download Berbagai Kumpulan Source Code Java

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        koneksiDB()
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into tbo_obat VALUES ('" & Id.Text & "','" & Nama.Text & "','" & Harga.Text & "','" & Stock.Text & "','" & Satuan.Text & "')"
        cmd.ExecuteNonQuery()
        conn.Close()
        bersih()
        tampil()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "delete from tbo_obat where IdObat= " & Id.Text & ""
        cmd.ExecuteNonQuery()
        conn.Close()
        bersih()
        tampil()
    End Sub

       Sub tampil()
        koneksiDB()
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT * from tbo_obat"
        da.SelectCommand = cmd
        da.Fill(ds, "tbo_obat")
        DataGridView1.DataSource = ds.Tables("tbo_obat")
        conn.Close()
    End Sub

Baca Juga : Cara Membuat Deteksi Wajah Menggunakan Java

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        koneksiDB()
        conn.Open()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "UPDATE tbo_obat   SET IdObat ='" & Id.Text & "', Nama = '" & Nama.Text & "' ,Harga='" & Harga.Text & "' ,Stock='" & Stock.Text & "' ,Satuan='" & Satuan.Text & "'"
        cmd.ExecuteNonQuery()
        conn.Close()
        bersih()
        tampil()
    End Sub

     Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
        Id.Text = DataGridView1.SelectedCells(0).Value
        Nama.Text = DataGridView1.SelectedCells(1).Value
        Harga.Text = DataGridView1.SelectedCells(2).Value
        Stock.Text = DataGridView1.SelectedCells(3).Value
        Satuan.Text = DataGridView1.SelectedCells(4).Value
    End Sub
End Class

Keterangan:

Tulisan yang berwarna Merah itu adalah sintak untuk menyimpan data
Tulisan yang berwarna Ungu itu adalah sintak untuk mengubah data
Tulisan yang berwarna biru itu adalah sintak untuk menampilkan data
Tulisan yang berwarna gakjelasini itu adalah sintak untuk mengambil data dari datagrid view

untuk download Projectnya klik disini

Sekian artikel ini saya berikan semoga dapat bermanfaat dan dapat menjadi salah satu reffrensi kalian untuk yang ingin belajar pemrogaman.