Selasa, 25 Oktober 2011

Aplikasi sederhana menampilkan (Simpan,Edit dan Hapus) database di VB.NET menggunakan Office Access 2010

08.54

allhmdulillah, setelah sekian lama tidak berbagi sedikit apa yang diketahui oleh penulis mengenai VB.Net, kini saya akan mencoba berbagi trik sederhana untuk membuat program menampilkan (simpan,edit dan hapus) database di visual basic 2010 dari office Access 2010,
pertama buatlah database dengan nama dbbelajar dengan tabel bernama siswa seperti gambar di bawah ini :

setelah database terbuat, bukalah Visual Basic 2010 dan buatlah New Project dengan nama project belajardengandatabase
masukan 4 Label, 3 Button, 2 Combobox, 2 Textbox dan 1 DataGridView dari Toolbox, seperti contoh di bawah ini :
klik form1, dan lihat bagian Properties, cari StartPosition rubahlah CenterScreen
kemudian cari ControlBox di Properties Form1 dan rubahlah menjadi False

lanjutkan rubahlah Label 1 pada Properties bagian Text menjadi NIS, Label 2 menjadi Nama, Label 3 menjadi Email, Label 4 menjadi Kelas, untuk Button di bagian properties masing-masing rubahlah pada bagian Name dan Textnya, button1 pada Name menjadi BtnSimpan dan Text menjadi &Simpan, button 2 pada Name menjadi BtnEdit dan Text menjadi &Edit, button 3 pada Name menjadi BtnHapus dan Text menjadi &Hapus, kemudian untuk ComboBox 1 rubah pada bagian Name menjadi CmbNIS, ComboBox 2 rubah pada bagian Name menjadi CmbKelas, terakhir untuk Textbox 1 rubah pada bagian Name menjadi TxtNama serta Textbox 2 rubah pada bagian Name menjadi TxtEmail,
hingga seperti gambar di bawah ini :
simpanlah terlebih dahulu project yang kita buat dengan nama project belajardengandatabase,
setelah disimpan, masukan database siswa yang sebelumnya sudah dibuat di MS Access ke Folder Project anda di Folder Visual Studios 2010, langkah-langkahnya seperti berikut
langkah-1
buka Folder Visual Studios 2010
langkah-2
buka Folder Project
langkah - 3
buka Folder Project belajardengandatabase
langkah - 4
buka Folder belajardengandatabase
langkah - 5
bukalah Folder bin
langkah - 6
Bukalah Folder Debug dan Simpan file database dbsiswa yang dibuat tadi di folder ini

jika database sudah disimpan, mari lanjutkan ke Desain Form kembali, double klik pada Form, masukan perintah :
Imports System.Data.OleDb
sebelum Public Class Form1
dan masukan rumus berikut setelah Public Class Form1
Private Conn As OleDbConnection = Nothing
    Private cmd As OleDbCommand = Nothing
    Private sql As String = Nothing
    Private reader As OleDbDataReader = Nothing
    Private da As OleDbDataAdapter = Nothing
    Function Connect()
        If Not Conn Is Nothing Then
            Conn.Close()
        End If
        Conn.Open()
        Return Conn
    End Function
    Function Closedd()
        Conn.Close()
        Return Conn
    End Function

    Sub LoadData()
        Connect()
        sql = "select NIS from siswa"
        cmd = New OleDbCommand(sql, Conn)
        reader = cmd.ExecuteReader()
        Try
            CmbNIS.Items.Clear()
            While reader.Read
                CmbNIS.Items.Add(reader.GetString(0))
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Closedd()
    End Sub

    Sub Tampil()
        Connect()
        Try
            Dim dt As New DataTable
            da = New OleDbDataAdapter("select * from siswa", Conn)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Closedd()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Conn Is Nothing Then Conn.Close()

        Dim ConnString As String

        ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbbelajar.accdb"
        Try
            Conn = New OleDbConnection(ConnString)
            Conn.Open()
            Me.Text = "Mengubah data Anggota [Connected]"
            LoadData()
            Tampil()
            Conn.Close()
        Catch ex As Exception
            MessageBox.Show("Koneksi Error : " + ex.Message)
        End Try
        CmbKelas.Items.Add("X")
        CmbKelas.Items.Add("XI-IPS")
        CmbKelas.Items.Add("XI-IPA")
        CmbKelas.Items.Add("XI-Bahasa")
        CmbKelas.Items.Add("XII-IPS")
        CmbKelas.Items.Add("XII-IPA")
        CmbKelas.Items.Add("XII-Bahas")
seperti gambar di bawah ini :


masukan rumus berikut dibawah Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load rumusnya sebagai berikut :

If Not Conn Is Nothing Then Conn.Close()

        Dim ConnString As String

        ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbbelajar.accdb"
        Try
            Conn = New OleDbConnection(ConnString)
            Conn.Open()
            Me.Text = "Mengubah Data Siswa [Terkoneksi]"
            LoadData()
            Tampil()
            Conn.Close()
        Catch ex As Exception
            MessageBox.Show("Koneksi Error : " + ex.Message)
        End Try
        CmbKelas.Items.Add("X")
        CmbKelas.Items.Add("XI-IPS")
        CmbKelas.Items.Add("XI-IPA")
        CmbKelas.Items.Add("XI-Bahasa")
        CmbKelas.Items.Add("XII-IPS")
        CmbKelas.Items.Add("XII-IPA")
        CmbKelas.Items.Add("XII-Bahas")
seperti dicontohkan pada gambar di bawah ini :


double klik pada button Simpan dan masukan perintah seperti berikut :
Connect()
        Dim insertquery As String
        Dim Kelas As Boolean
        Dim Hasil As Integer
        Dim cmd As OleDbCommand
        insertquery = ("insert into siswa(NIS,Nama,Email,Kelas)Values('" & CmbNIS.Text & "','" & TxtNama.Text & "','" & TxtEmail.Text & "','" & Kelas & "')")
        Try
            cmd = New OleDbCommand(insertquery, Conn)
            Hasil = cmd.ExecuteNonQuery
            If Hasil > 0 Then
                MessageBox.Show("record Berhasil Dimasukan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                CmbNIS.Text = ""
                TxtEmail.Text = ""
                TxtNama.Text = ""
                Tampil()
                LoadData()
            End If
        Catch ex As OleDbException
            MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Closedd()

dan masukan perintah berikut pada Button Edit
Connect()
        Dim hasil As Integer
        sql = "Update siswa set Nama='" & TxtNama.Text & "',Email='" & TxtEmail.Text & "', Kelas='" & CmbKelas.Text & "' where NIS='" & CmbNIS.Text & "'"
        cmd = New OleDbCommand(sql, Conn)
        Try
            hasil = cmd.ExecuteNonQuery
            If (hasil > 0) Then
                MessageBox.Show("Record Berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                CmbNIS.Text = ""
                TxtEmail.Text = ""
                TxtNama.Text = ""
                Tampil()
                LoadData()
            End If
        Catch ex As OleDbException
            MessageBox.Show("Failed : " & ex.Message)
        End Try
        Closedd()
seperti dicontohkan oleh gambar :

masukan perintah di bawah untuk Button Hapus
Connect()
        Dim index As Integer = CmbNIS.SelectedIndex
        Dim hasil As Integer
        Dim pesan As DialogResult
        sql = "delete from siswa where NIS='" & CmbNIS.Text & "'"
        pesan = MessageBox.Show("Yakin Menghapus Data Siswa " & Chr(10) & "dengan id" & CmbNIS.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        cmd = New OleDbCommand(sql, Conn)
        Try
            If pesan = Windows.Forms.DialogResult.Yes = True Then
                hasil = cmd.ExecuteNonQuery
                CmbNIS.Text = ""
                TxtEmail.Text = ""
                TxtNama.Text = ""
                Tampil()
            End If
        Catch ex As OleDbException
            MsgBox("Failed : " & ex.Message)
        End Try
        Closedd()
dicontohkan seperti gambar di bawah ini :


double klik pada ComboBoc NIS dan masukan Perintah seperti berikut :
Connect()
        Dim Kunci As String = CmbNIS.Text
        sql = "select * from siswa where NIS='" & Kunci & "'"
        cmd = New OleDbCommand(sql, Conn)
        reader = cmd.ExecuteReader
        Try
            reader.Read()
            TxtNama.Text = reader.GetString(1)
            TxtEmail.Text = reader.GetString(2)
            CmbKelas.Text = reader.GetString(3)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Closedd()
seperti di contohkan gambar di bawah ini :

klik DataGridView dan lihat pada properties bagaian Dock rubah menjadi Bottom
Terakhir masukan MenuStrip dari ToolBox ke form bagian atas 
setelah MenuStrip ditambahkan buatlah Menu > Exit dan Help > Tentang Software

double klik pada submenu Exit dan masukan perintah End serta masukan perintah pada submenu Tentang Software dengan cara doubleklik pada tentang software yaitu : MsgBox("Masih Versi Sederhana dalam naungan masih Belajar")


dan tampilan akhirnya seperti berikut :



Selamat Mencoba dan Berkreasi!

Written by

Penulis Lepas, apa yang ditemukan dan dialami bisa jadi bahan tulisan. 100% saya bisa salah!!! atau bisa benar, jadi bila menemukan konten dalam blog ini yang salah atau menyalahi silahkan saya mohon koreksi dari para pembaca.

5 komentar:

djiesoft mengatakan...

tutorial na sae kang.. hatur nuhun, cobian heula ah...

iphoel13 mengatakan...

ad ksalahan bang... :(
Error 1 'Private Sub Form1_Load(sender As Object, e As System.EventArgs)' has multiple definitions with identical signatures. C:\Users\Iphoel\AppData\Local\Temporary Projects\belajardenganDatabase\Form1.vb 49 17 belajardenganDatabase

Anonim mengatakan...

Bsng,,,,bener ksts iphoel13
Ada kesalahan om...

Anonim mengatakan...

makasih banyak mas.. moga2 ilmunya bermanfaat

algojo mengatakan...

makasi banyak gan sangat membantu tugas

 

© 2014 Gapura PangartiDesigned by Templateism

Back To Top