Aplikasi Sederhana Menggunakan VB .net CRUD

Saya akan menggambarkan pembuatan aplikasi sederhana menggunakan vb .net dengan CRUD (Creat Read Update Delete). Disini saya akan membuat aplikasi input barang koperasi. Dari kode barang, nama barang, harga barang, harga jual, dan jumlah yang nantinya akan di input kedalam sebuah database (MS Access yang saya gunakan disini) mari kita langsung saja ke tampilan aplikasi yang akan kita buat. :)

Aplikasi Input Data Barang Koperasi :

~ Tampilan ~



Aplikasi ini memiliki tombol-tombol seperti :

• Tambah : Untuk input data yang akan dimasukkan.
• Edit       : Untuk merubah data dengan cara memasukkan terlebih dahulu kode barang lalu masukkan data yang akan di edit.
• Hapus   : Untuk menghapus data yang sudah tercatat dalam database.
• Keluar   : Untuk menutup aplikasi.

 ~ Tabel Database~
 





~ Source Code ~

Imports System.Data.OleDb
Public Class Form1

    Private Sub TampilReader()
        Dim Tampil As String = "Select * From tblBarang Where KodeBarang='" & TextBox1.Text & "'"
        Try
            Using Conn As New OleDbConnection(My.Settings.ConnStr)
                Using cmd As New OleDbCommand(Tampil, Conn)
                    Conn.Open()
                    Dim reader As OleDbDataReader = cmd.ExecuteReader
                    While reader.Read
                        TextBox2.Text = reader.GetString(1)
                        TextBox3.Text = reader.GetValue(2)
                        TextBox4.Text = reader.GetValue(3)
                        TextBox5.Text = reader.GetValue(4)
                    End While
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub

    Private Sub TampilData()
        Using Conn As New OleDbConnection(My.Settings.ConnStr)
            Using Adp As New OleDbDataAdapter("Select * From tblBarang", Conn)
                Conn.Open()
                Dim Tabel As New DataTable
                Adp.Fill(Tabel)
                DataGridView1.DataSource = Tabel
            End Using
        End Using
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Tambah As String = "Insert Into tblBarang Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        Try
            Using Conn As New OleDbConnection(My.Settings.ConnStr)
                Using cmd As New OleDbCommand(Tambah, Conn)
                    Conn.Open()
                    cmd.ExecuteNonQuery()
                    MsgBox("Data Berhasil Ditambah", MsgBoxStyle.Information, "Perhatian")
                    TampilData()
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Ubah As String = "Update tblBarang Set NamaBarang='" & TextBox2.Text & "', HargaBeli='" & TextBox3.Text & "',HargaJual='" & TextBox4.Text & "',Jumlah='" & TextBox5.Text & "' Where KodeBarang='" & TextBox1.Text & "'"
        Try
            Using Conn As New OleDbConnection(My.Settings.ConnStr)
                Using cmd As New OleDbCommand(Ubah, Conn)
                    Conn.Open()
                    cmd.ExecuteNonQuery()
                    MsgBox("Data Berhasil DiUbah", MsgBoxStyle.Information, "Perhatian")
                    TampilData()
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Hapus As String = "Delete From tblBarang Where KodeBarang='" & TextBox1.Text & "'"
        Try
            Using Conn As New OleDbConnection(My.Settings.ConnStr)
                Using cmd As New OleDbCommand(Hapus, Conn)
                    Conn.Open()
                    cmd.ExecuteNonQuery()
                    MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Information, "Perhatian")
                    TampilData()
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TampilData()
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            TampilReader()
        End If
    End Sub
End Class

Semoga membantu :)