Tampilkan postingan dengan label acces. Tampilkan semua postingan
Setelah tutorial sebelumnya dibahas mengenai sinkronisasi tabel di aplikasi dan didalam database, selanjutnya pada tutorial berikut akan di jelaskan mengenai cara memasukkan data kedalam database melalui aplikasi yang telah kita buat. Logikanya adalah kita memasukkan data kedalam textbox yang telah disediakan, selanjutnya dengan klik tombol Tambah, maka data akan tersimpan didalam database dan akan ditampilkan di listview. Saya asumsikan anda telah membaca Part 1 dan Part 2.
- Klik dua kali pada Button Tambah untuk memberikan event tambah.
Masukan Script dibawah ini :
Imports System.Data.OleDb
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
Sambung()
If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")
Else
Try
TTL = DTP.Value.Date
SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
End Try
End If
End Sub
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
Sambung()
If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")
Else
Try
TTL = DTP.Value.Date
SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
End Try
End If
End Sub
Penjelasan Kode :
Sambung()
Memanggil koneksi sambung yang berada didalam modul koneksi.digunakan untuk menghubungkan database.
If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")
Kode ini digunakan untuk kondisi jika textbox tidak ada isinya atau kosong. Jika ada isinya maka yang diproses adalah kode berikutnya.
Try
TTL = DTP.Value.Date
SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
End Try
TTL = DTP.Value.Date
SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
End Try
Kode diatas merupakan kondisi pengecualian, jika textbox terdapat isinya maka kode diatas yang akan diproses. Jika proses dijalankan benar maka akan disimpan dengan menampilkan message Box data berhasil disimpan, kemudian tabel akan direfresh, dan textbox akan dibersihkan, jika penyimpanan gagal,maka akan menampilkan pesan kesalahan.
- Buat variabel TTL dan SQLInsert di Form1 dimana variabel TTL sebagai Date dan SQLInsert sebagai String.
Dim TTL As Date
Dim SQLInsert As String
Dim SQLInsert As String
- Buat sebuah method baru dengan nama bersih yang akan digunakan untuk membersihkan textbox.
Sub bersih()
txtID.Clear()
txtAlamat.Clear()
txtAgama.Clear()
DTP.Value = Now
cboJenis.Text = "--Pilih Jenis Kelamin--"
End Sub
txtID.Clear()
txtAlamat.Clear()
txtAgama.Clear()
DTP.Value = Now
cboJenis.Text = "--Pilih Jenis Kelamin--"
End Sub
- Klik dua kali Button Batal dari jendela Design dan panggil method bersih() untuk mengembalikan nilai object seperti semula.
Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
bersih()
End Sub
bersih()
End Sub
- Jika selesai jalankan aplikasinya,dan cobalah mengisikan data kemudian klik Tambah. Jika tidak ada error maka program selesai dibuat.
Sekian tutorial ini, untuk selanjutnya saya akan share mengenai membuat event di tombol Edit. Jika ada pertanyaan silahkan komentar dibawah.
Tutorial ini merupakan lanjutan tutorial sebelumnya yang membahas tentang membuat aplikasi CRUD (Create, Read, Update, Delete) dengan VB.Net dan Microsoft acces. Untuk melihat tutorial sebelumnya, bisa dilihat disini. Di tutorial sebelumnya telah dibahas bagaimana membuat deasain interface. Dan pada tutorial berikut akan membahas mengenai kode yang digunakan untuk menghubungkan aplikasi dengan database, dan menyinkronkan tabel yang berada didatabase dengan tabel yang berada di aplikasi yang dalam hal ini kita menggunakan Listview sebagai tabel nya. Kita akan menggunakan modul sebagai koneksi ke database acces. Yang belum tahu bagaimana menambahkan modul, bisa lihat disini.
Saya asumsikan bahwa anda telah menambahkan modul dengan nama koneksi.
- Selanjutnya kita akan bisa menuliskan kode di dalam module koneksi tersebut.Tuliskan kode berikut :
Imports System.Data.OleDb
Module koneksi
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
End Module
Module koneksi
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
End Module
Penjelasan kode :
Imports System.Data.OleDb
Kode ini digunakan untuk mengimport data oledb sebagai jenis koneksi yang akan digunakan untuk menghubungkan database.
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Kode ini digunakan untuk mendekalarasikan variabel
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
Method sambung berisikan kode koneksi untuk membuka dan menghubungkan database. Method ini yang nanti akan digunakan sebagai penghubung database.
- Buka tab Code pada Form1 dengan cara klik View ( Code atau melalui shortcut F7).
- Import data oledb dengan kode :
Imports System.Data.OleDb
- Buat method baru untuk menyinkronkan tabel database dengan tabel didalam aplikasi.
Sub tambahdata()
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
- Tambahkan kode didalam form1_Load untuk memanggil method tambahdata() dan method Sambung().
- Sehingga kode secara keseluruhan adalah sebagai berikut :
Sub tambahdata()
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
- Jalankan program dengan menekan tombol F5. Untuk mengetes apakah tabel database sudah terhubung, cobalah isikan data di dalam database acces, dan jalankan kembali.
Sekian tutorial ini, selanjutnya akan dibahas mengenai memasukkan data dari aplikasi kedalam database.
Pada hari ini saya akan share mengenai cara membuat aplikasi CRUD atau Create, Read, Update, Delete. Tool yang saya gunakan dalam tutorial berikut adalah microsoft acces 2007 dan microsoft visual basic 2008. Untuk yang belum menginstal kedua program diatas silahkan di instal terlebih dahulu. Dalam tutorial ini kita akan menggunakan database microsoft acces yang telah dibuat sebelumnya disini. Pada tutorial part 1 berikut ini kita akan mendesain dari aplikasi yang akan digunakan sebagai user interface. Baiklah mari kita mulai tutorial kali ini.
- Yang pertama kali dilakukan sebelum membuat aplikasi adalah menyiapkan database. Oleh karena itu, silahkan buat database terlebih dahulu. Dalam tutorial ini saya menggunakan database acces yang telah saya buat sebelumnya. Lihat disini.untuk membuat database acces.
- Buat project baru di vb.net, untuk yang belum tahu caranya silahkan lihat disini.
- Pindahkan database acces ke dalam direktori debug.
- Langkah selanjutnya adalah membuat desain aplikasi yang akan digunakan sebagai antarmuka pengguna. Buatlah desain seperti berikut ini.
- Tool yang dibuutuhkan adalah 6 buah Label, 2 buah TextBox, 1 buah DateTimePicker, 1 buah RichTextBox, 1 buah ListView, 1 buah ComboBox, 4 buah Button.
- Atur properties untuk masing – masing tool atau object yang digunakan sebagai berikut ini :
- Selanjutnya kita akan membuat kolom didalam listview, kolom ini nantinya akan digunakan untuk menampilkan data dari dalam database microsoft acces. Kolom ini nantinya juga akan disinkronkan dengan database microsoft acces. Untuk itu klik pada ListView kemudian pada properties lihat pada Columns, klik tombol di samping (Collections).
- Selanjutnya kita akan dibawa ke jendela ColumnHeader Collection Editor.
- Untuk menambahkan kolom baru klik tombol Add dan pada ColumnHeader properties ubah Text menjadi ID dan klik Ok.
- lakukan hal yang sama untuk membuat kolom yang lainnya. Sesuaikan kolom yang ada di ListView dengan kolom yang ada di database microsoft acces. Seperti berikut :
Sampai disini kita telah selesai membuat aplikasi CRUD APP yang akan kita gunakan sebagai user interface, untuk tutorial selanjutnya akan dibahas mengenai kode yang digunakan untuk menghubungkan aplikasi dengan database dan memasukkan data dari aplikasi ke database.
