Aplikasi Input Data Buku dengan VB.NET dan MS.Access

Aplikasi Input Data Buku dengan VB.NET dan MS.Access

1. Buat databasenya terlebih dahulu. Buka MS. Access anda, kemudian buat sebuah tabel. (Go to Table Design) lalu disain tampilannya seperti ini:

nama tabel: tbl_buku
 
KLIK LINK UNTUK MELIHAT GAMBAR

2. Simpan ditempat yang mudah di ingat. Kali ini saya taruh file database accessnya di Drive d: (ingat selalu lokasi filenya yak)

3. Tutup terlebih dahulu aplikasi MS.Access anda (kalau ndak ditutup ntar bisa crash di Visual Studio nya)

4. Buat Project baru di Visual Studio, Setelah itu SAVE ALL terlebih dahulu PROJECT ANDA!
Kemudian langsung saja klik menu Data -> Lalu pilih -> Add New Data Source
KLIK LINK UNTUK MELIHAT GAMBAR

5. Selanjutnya akan muncul dialog Data Source Configuration Wizard, pilih Database lalu klik Next
KLIK LINK UNTUK MELIHAT GAMBAR

6. Lanjut, klik Dataset lalu Next lagi
KLIK LINK UNTUK MELIHAT GAMBAR

7. Sekarang kita klik tombol New Connection... 


KLIK LINK UNTUK MELIHAT GAMBAR

8. Kita akan dibawa ke dialog Add Connection, langsung saja jangan segan-segan untuk menekan tombol Change.

9. Untuk Data Source, kita pilih Microsoft Access Database File, kemudian klik OK

10. Kembali lagi ke kotak dialog Add Connection, sekarang klik BROWSE untuk memilih file database MS.Access yang kita buat tadi.

11. Balik maning ke kotak dialog Add Connection sekarang klik OK

12. Dan secara tiba-tiba muncul kotak dialog pertanyaan. "Apakah anda ingin meng-copy file database anda ke folder Project VB anda? Jika Yes maka nggak papa, Jika No maka nggak papa juga" Klik NO aja biar mudah tau lokasi Filenya.

13. Next, kita akan diarahkan ke Data Source Configuration Wizard. Disini kita bisa mengubah nama Connection Stringnya. tapi untuk studi kasus kali ini lebih baik tidak perlu, dan sekarang klik NEXT lagi.

14. Checklist semua yang ada di dialog Choose your database object. Dan yaaap! kita sudah selesai melakukan setting pada data source yang akan kita gunakan horeeeee :D

15. (Tekan CTRL+S berulang kali) ayoooo cepet-cepetan sebelum CRASH Reportingnya muncul! hal ini disebabkan karna aku juga gak tau kenapa. tapi setelah riset berkali-kali aku coba aja pake teknik *cepet-cepetan ngesave sebelum program crash nya muncul* soalnya kalau nggak di save nanti data source yang kita buat bakal hilang :( tuh kan muncul

16. Sekarang kita buka lagi Project yang tadi ke close, kemudian KLIK DATASOURCE disamping TOOLBOX, kemudian GESER tbl_buku ke dalam form. maka lihatlah hasilnya!

17. JENG JEEENG! Hasilnya akan terlihat AWESOME! FANTASTIC! COOL! and AS SWEET AS YOU LIKE!

18. Next, tarik satu-satu field yang ada di Data Source toolbox, seperti gambar dibawah ini:

19. Hasilnya akan tampak seperti ini:

20. Nah terakhir tinggal kita isi aja datanya, jangan ragu-ragu ngisinya ya! isi-isi aja :D

21. Paling akhir, sekarang tutup Visual Studio anda, lalu buka file MS.Access anda yang dibuat tadi. Jeeeng! datanya massuuuuuk!

a. Membuat Database
Database yang kita gunakan untuk membuat aplikasi barang ini yaitu Ms. Access 2010 (jika tidak ada, bisa juga menggunakan Ms. Access 2007 atau Ms. Access). Adapun langkah-langkah membuat database-nya yaitu:

1. Buka program Ms. Access 2010 dengan cara klik tombol Start > All Program > Microsoft Office > Microsoft Access 2010

2. Klik icon open kemudian ketikkan nama database pada kolom File Name dengan nama supermarket, dan Save as Type menjadi Microsoft Access Databases (2002-2003) kemudian klik tombol OK, setelah itu klik tombol Create. (untuk sementara terserah anda mau disimpan dimana database tersebut)

3. Selanjutnya akan muncul Table1 kemudian tekan tombol ctrl+s dan tulis nama tabelnya menjadi barang, klik tombol OK.

4. Klik kanan pada tulisan barang kemudian pilih Design View.

5. Isikan field tabel barang seperti gambar berikut:

6. Tekan tombol ctrl+s untuk menyimpan tabel tersebut.

b. Membuat Tampilan Aplikasi Barang
Tahap berikutnya kita akan merancang tampilan aplikasi barang. Langkah-langkah yang harus dilakukan yaitu:

1. Klik tombol Start >All Program > Microsoft Visual Studio 2010 > Microsoft Visual Studio 2010.

2. Klik link New Project.

3. Ubah Name pada New Project  menjadi supermarket kemudian klik tombol OK.

4. Pada Form1 kita masukkan 3 Label, 3 TextBox, 1 DataGridView, 4 Button, 1 GroupBox, dan 2 RadioButton. Lihat gambar berikut:

5. Untuk pengaturan obejk control aplikasi yang akan kita buat, dapat dilihat seperti tabel berikut:

Nama control	Properties	Keterangan
Form1	Name	frmBarang
	MaximizeBox	False
	StartPosition	CenterScreen
	Text	Barang
Label1	Text	Nama :
Label2	Text	Harga :
Label3	Text	Kata :
TextBox1	Name	txtNmBarang
TextBox2	Name	txtHrg
	TextAlign	Right
TextBox3	Name	txtCariKata
Button1	Name	btnTambah
	Text	Tambah
Button2	Name	btnUbah
	Text	Ubah
Button3	Name	btnHapus
	Text	Hapus
Button4	Name	btnKeluar
	Text	Keluar
GroupBox1	Text	Pencarian
RadioButton1	Name	rbBarang
	Text	Barang
RadioButton2	Name	rbHarga
	Text	Harga

6. Simpan aplikasi sesuai tempat yang anda inginkan.
7. Pindahkan database yang telah dibuat tadi ke dalam direktori penyimpanan aplikasi …\supermarket\supermarket\bin\Debug dan …\supermarket\supermarket

c. Membuat Kode Aplikasi Barang
Untuk membuat kode aplikasi barang, ikuti langkah-langkah berikut:

1. Aktifkan form frmBarang lalu klik icon View Code, kemudian ketikkan kode berikut:

Imports System.Data

Imports System.Data.OleDb

Public Class frmBarang

End Class

2 Setelah itu, ketikkan code berikut:

Public Class frmBarang

Dim database As OleDbConnection

Dim tabel As OleDbDataAdapter

Dim data As DataSet

Dim record As New BindingSource

Sub koneksi()

Try

database = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=supermarket.mdb")

database.Open()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub data_record()

Try

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 200

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub bersih()

txtNmBarang.Text = ""

txtHarga.Text = ""

txtCariKata.Text = ""

rbBarang.Checked = False

rbHarga.Checked = False

txtNmBarang.Enabled = True

txtNmBarang.Focus()

btnTambah.Enabled = True

btnUbah.Enabled = False

btnHapus.Enabled = False

Call koneksi()

Call data_record()

End Sub

End Class  

3. Kembali ke tampilan frmBarang, kemudian klik dua kali pada area form, lalu ketikkan code berikut:

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

Call bersih()

End Sub  

4. Kembali ke tampilan frmBarang, klik dua kali tombol Tambah, lalu ketikkan code berikut:

Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "insert into barang values('" & txtNmBarang.Text & "','" & CSng(txtHarga.Text) & "')"

dml.ExecuteNonQuery()

MsgBox("Data telah disimpan")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub  

5. Kembali ke tampilan frmBarang, klik dua kali tombol Ubah, lalu ketikkan code berikut:

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "update barang set harga = '" & txtHarga.Text & "' where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah diubah")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub  

6. Kembali ke tampilan frmBarang, klik dua kali tombol Hapus, lalu ketikkan code berikut:

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "delete from barang where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah dihapus")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub  

7. Kembali ke tampilan frmBarang, klik dua kali tombol Keluar, lalu ketikkan code berikut:

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

Me.Dispose()

End Sub  

8. Kembali ke tampilan frmBarang, klik dua kali textbox txtCariKata, lalu ketikkan code berikut:

Private Sub txtCariKata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCariKata.TextChanged

Try

If rbBarang.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where nama_barang like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

ElseIf rbHarga.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where harga like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

End If

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub  

9. Kembali ke tampilan frmBarang, klik dua kali DataGridView1, lalu ketikkan code berikut:

Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick

Try

txtNmBarang.Text = DataGridView1.SelectedCells(0).Value

txtHarga.Text = DataGridView1.SelectedCells(1).Value

txtNmBarang.Enabled = False

btnTambah.Enabled = False

btnUbah.Enabled = True

btnHapus.Enabled = True

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub  

10. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbBarang, lalu ketikkan code berikut:

Private Sub rbBarang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbBarang.Click

txtCariKata.Focus()

End Sub  

11. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbHarga, lalu ketikkan code berikut:

Private Sub rbHarga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbHarga.Click

txtCariKata.Focus()

End Sub  

12. Tekan F5 atau tombol Start Debugging untuk menjalankan program.

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 :