Selasa, 26 September 2017
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.
