Pada hari ini saya akan share mengenai salah satu kontrol yang ada di vb.net, yaitu Print Dialog Control. Ada beberapa kontrol yang pernah saya share di blog ini diantaranya adalah SaveFileDialog Control dan OpenFileDialog Control. Dan pada kesempatan ini saya akan share kontrol yang ketiga yaitu Print Dialog Control.
Print Diaolg Control memungkinkan pengguna untuk mencetak dokumen dengan memilih bagian dari dokumen yang akan dicetak dari form windows.
Dalam tutorial berikut ini saya akan menggunakan Vb.Net 2008. Untuk anda yang menggunakan versi yang lebih baru kurang lebih caranya hampir sama dengan VB.Net 2008. Aplikasi yang akan kita buat nantinya terdapat 1 buah button dan 1 buah textbox. Button akan digunakan sebagai tombol untuk mencetak dokumen dari textbox. Sehingga ketika button di klik maka yang dicetak adalah text dari textbox.
Baiklah, mari kita mulai langkah – langkah nya :
Print Diaolg Control memungkinkan pengguna untuk mencetak dokumen dengan memilih bagian dari dokumen yang akan dicetak dari form windows.
Dalam tutorial berikut ini saya akan menggunakan Vb.Net 2008. Untuk anda yang menggunakan versi yang lebih baru kurang lebih caranya hampir sama dengan VB.Net 2008. Aplikasi yang akan kita buat nantinya terdapat 1 buah button dan 1 buah textbox. Button akan digunakan sebagai tombol untuk mencetak dokumen dari textbox. Sehingga ketika button di klik maka yang dicetak adalah text dari textbox.
Baiklah, mari kita mulai langkah – langkah nya :
- Buatlah project baru di vb.net, silahkan lihat disini untuk yang belum tahu caranya.
- Desainlah aplikasi seperti berikut ini tool yang dibutuhkan adalah 1 buah TextBox, 1 buah Button, 1 buah PrintDialog, 1 buah PrintDocument:
- Atur properties seperti berikut ini :
| Tool | Properties | Nilai |
| TextBox1 | Name | txtPrint |
| Multiline | True | |
| Button1 | Name | btnprint |
| Text |
- Klik dua kali pada button print untuk membuka editor kode untuk membuat fungsi pada button Print.
- Masukkan kode berikut ini :
If PrintDialog1.ShowDialog = DialogResult.OK Then
PrintDocument1.Print()
End If
PrintDocument1.Print()
End If
Penjelasan kode :
PrintDialog1.ShowDialog
Memunculkan print dialog box.
DialogResult.OK
Mengonfirmasi untuk diteruskan ke print document.
PrintDocument1.Print()
Perintah untuk mencetak dokumen.
- Klik dua kali pada PrintDocument1 dan masukkan kode berikut :
e.Graphics.DrawString(txtPrint.Text, txtPrint.Font, Brushes.Black, 100, 100)
penjelasan kode :method yang digunakan untuk mencetak txtPrint dengan font ditentukan user dan dengan warna hitam dan berada diposisi koordinat x = 100, y = 100.
- Pada kode diatas terdapat kode txtPrint.Font dimana font ini ditentukan oleh user melalui font dialog control yang akan saya share nantinya. Bisa juga diganti langsung dengan font yang lain sebagai contoh saya akan mengatur font dengan jenis font Arial dan dengan ukuran 10 maka kodenya adalah New Font(“Arial”, 10). Dengan kode tersebut walaupun kita mengatur font dengan font dialog control maka yang akan tercetak tetap font Arial dengan ukuran 10.
- Jika selesai jalankan aplikasi dan cobalah untuk mencetak nya. Jika tidak terjadi masalah maka aplikasi sukses dibuat.
Sampai disini dulu tutorial ini, kalian bisa download source code nya disini. Untuk selanjutnya saya akan share mengenai Font Dialog Control dimana kita bisa mengubah jenis, ukuran, dan warna font pada dokumen sebelum di simpan atau dicetak. Jika terjadi masalah silahkan tinggalkan komentar dibawah ini.
HDTS Binary Converter merupakan sebuah software yang dapat digunakan untuk melakukan konversi dari bilangan biner, desimal, heksa desimal, dan oktal. HDTS Binary Converter mampu melakukan konversi hingga 12 macam konversi diantaranya :
- Biner ke Desimal
- Biner ke Heksa desimal
- Biner ke Oktal
- Desimal ke Biner
- Desimal ke Heksa desimal
- Desimal ke Oktal
- Heksa desimal ke Biner
- Heksa desimal ke Desimal
- Heksa desimal ke Oktal
- Oktal ke Biner
- Oktal ke Desimal
- Oktal ke Heksa desimal
- Mampu melakukan konversi hingga 32 bit.
- Melakukan konversi dari file berformat .txt.
- Menyimpan file input dan output kedalam file text (.txt)
- Mencetak file input dan output.
- Merubah bentuk dan warna font
System Requirentment :
Windows 10, 8, 7 (64 bit or 32 bit)
Ram 512 mb
Tested in Windows 10 64 bit and Windows 7 32 bit.
Windows 10, 8, 7 (64 bit or 32 bit)
Ram 512 mb
Tested in Windows 10 64 bit and Windows 7 32 bit.
Cara instal :
- Jalankan file Setup.exe dan ikuti sampai selesai.
- Buka HDTS Binary Converter dari shortcut desktop.
Google Drive | Mega
Password Rar : hdtechnology-studio.blogspot.co.id
Screenshoot :
Screenshoot :
Setelah sebelumnya saya menulis cara membuat aplikasi CRUD dengan database acces part 1, part 2, part 3 dan part 4, kini sampailah tulisan saya yang terakhir dari part sebelumnya. Di part 5 ini saya akan membahas untuk memberi kan event pada tombol hapus. Apa fungsi dari tombol hapus ? tombol hapus ini digunakan untuk menghapus data yang ada didalam database melalui aplikasi yang akan kita buat. Skema nya adalah data yang akan di hapus terlebih dahulu di sorot kemudian klik hapus, maka data akan terhapus baik yang ada didalam aplikasi dan ada didalam database.
- Klik dua kali pada tombol hapus.
- Kemudian masukkan kode berikut :
Sambung()
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Penjelasan kode :
Sambung()
Perintah untuk memanggil koneksi database
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Kondisi pengecualian kondisi ini dijalankan apabila ada data yang dipilih oleh user. Jika tidak ada yang dipilih maka akan tampil messagebox. kondisi ini tidak berhubungan langsung dengan koneksi database.
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
Deklarasi variabel selectedItem sebagai integer yang digunakan untuk memilih id dari listview sebagai patokan untuk menghapus data.
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Syntax sql yang berfungsi untuk menghapus data didatabase. Syntax disimpan didalam variabel SQLInsert.
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Kondisi pengecualian yang berada didalam kondisi pengecualian. Kode ini berfungsi untuk verifikasi data yang akan dihapus oleh user melalui messagebox. jika berhasil maka kode akan dihapus jika gagal maka kondisi dua yang dijalankan. Berbeda dengan kondisi pengecualian yang pertama, kondisi pengecualian ini berhubungan dengan koneksi database. Sehingga jika terjadi error atau masalah, maka hampir bisa dipastikan kesalahan ada didatabase atau koneksi database.
- Jalankan aplikasi nya melalui Debug (Start debugging atau melalui Shortcut F5.
- Sehingga hasilnya berikut ini
Sekian tutorial tentang cara membuat aplikasi CRUD dengan database acces dan vb.net untuk source code project nya bisa kalian download disini. Jika terjadi masalah atau error silahkan tinggalkan komentar.
- Buka jendela kode dengan cara klik View --> Code atau melalui Shortcut F7.
- Buat event DoubleClick pada object lvgrid. Event ini digunakan untuk membuat fungsi jika listview atau item listview di klik dua kali.
- Masukkan kode untuk menampilkan nilai dari item listview ke dalam textbox.
txtID.Text = lvGrid.SelectedItems(0).SubItems(0).Text
DTP.Value = lvGrid.SelectedItems(0).SubItems(1).Text
txtAlamat.Text = lvGrid.SelectedItems(0).SubItems(2).Text
txtAgama.Text = lvGrid.SelectedItems(0).SubItems(3).Text
cboJenis.Text = lvGrid.SelectedItems(0).SubItems(4).Text
DTP.Value = lvGrid.SelectedItems(0).SubItems(1).Text
txtAlamat.Text = lvGrid.SelectedItems(0).SubItems(2).Text
txtAgama.Text = lvGrid.SelectedItems(0).SubItems(3).Text
cboJenis.Text = lvGrid.SelectedItems(0).SubItems(4).Text
- Sehingga hasilnya sebagai berikut :
- Cobalah untuk menjalankannya dan double klik pada item listview.
- Sampai tahap ini kita hanya bisa menampilkan data dari listview kedalam textbox saja namun belum bisa menggunakan tombol edit. Oleh karena itu kita perlu menambahkan kode pada tombol edit.
- Klik dua kali pada tombol edit. Dan masukkan kode berikut :
Sambung()
TTL = DTP.Value.Date
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
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery() 'Mengeksekusi command
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
End If
TTL = DTP.Value.Date
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
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery() 'Mengeksekusi command
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
End If
Penjelasan kode :
Sambung()
Memanggil method sambung yang berada didalam modul koneksi, modul ini untuk menghubungkan aplikasi dengan database.
TTL = DTP.Value.Date
Menyimpan tanggal didalam variabel TTL.
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")
Membuat kondisi jika object textbox kosong maka akan ditampilkan kotak pesan.
Try
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
Kondisi pengecualian, jika benar maka kondisi 1 yang dijalankan, jika salah maka kondisi 2 yang dijalankan.
- Cobalah untuk menjalankan programnya yang telah dibuat, klik dua kali pada item listview yang akan diedit, kemudian edit datanya, klik tombol edit, dan lihat apa yang terjadi.
Jika tidak ada masalah maka tombol edit telah selesai dibuat, selanjutnya tinggal memberikan event tombol hapus yang akan digunakan untuk menghapus data didalam database dan akan dibahas di tutorial selanjutnya. Jika terjadi masalah pada program atau kode silahkan tinggalkan komentar dibawah.
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.
