JOBSHEET 8 DATABASE IN VB
Tujuan: Mampu membuat tabel menggunakan program Ms. Access Mampu membuat koneksi antara VB dengan Ms. Access Dapat menampilkan data tabel pada DataGridView Mengoneksikan tabel pada Ms. Access dengan DataGridView Dapat melakukan manipulasi data menggunakan database meliputi insert, update, delete data. 6. Melakukan pencarian data dari tabel dengan criteria kolom tertentu
1. 2. 3. 4. 5.
A. Membuat Database dengan Ms. Access LATIHAN 1 Langkah-langkah: 1. Buka aplikasi Ms. Access, buat database dengan nama megacities. 2. Buat tabel dengan nama megacities dengan ketentuan sebagai berikut:
3. Simpan tabel dan masukkan data berikut pada tabel megacities:
4. Simpan database
B. Membuat koneksi antara VB dengan Ms. Access LATIHAN 2 Langkah-Langkah: 1. Buka program aplikasi VB 2008 2. Buat form cities data seperti gambar berikut ini.
3. Atur Properties-nya seperti pada tabel berikut ini! Object Property Setting Form1 GroupBox1 TextBox1 TextBox2 TextBox3 TextBox4 DataGridView Button1 Button2 Button3 Button4
Name Text Text Name Name Name Name Name Name Text Name Text Name Text Name Text
CitiesData Cities Data Data txtCity txtCountry txtPop2005 txtPop2010 dg_megacities btnProses Proses btnInsert Insert btnUpdate Update btnDelete Delete
4. Membuat koneksi databasenya. Karena kita menggunakan database Ms. Access, maka menggunakan jenis koneksi OleDbConnection, drag dari toolbox data. Jika belum ada maka dapat ditambahkan dengan cara: - Klik kanan toolbox data, pilih Choose Items…
-
Setelah di klik choose items…, maka akan muncul kotak dialog seperti pada gambar di bawah ini.
-
Centang pada OleDbConnection, klik OK. Drag and drop OleDbConnection ke dalam form CitiesData, Jika berhasil ditandai dengan:
-
Setting properties name OleDbConnection1, menjadi koneksi.
-
Setting connectionString pada properties juga, dengan cara: o Klik kanan koneksi, pilih properties. o Pada ConnectionString tekan tanda panah ke bawah, pada opsi pilihannya pilih
o Muncul jendela untuk menambahkan koneksi
o Klik Browse, pilih database yang digunakan, kemudian klik Open.
o Setelah itu pada bagian Database file name: telah terisi lokasi alamat database yang akan digunakan.
o Tekan Test Connection, jika berhasil maka akan keluar kotak peringatan sebagai berikut.
o Setting koneksi vb dengan database Ms. Access telah selesai dilakukan. C. Menampilkan isi tabel yang telah dibuat pada DataGridView LATIHAN 3 Langkah-Langkah: 1. Meng-import data yang dibutuhkan untuk koneksi database dengan memberikan kode Import System….. di atas Public Class CitiesData
2. Membuat deklarasi variable dt dengan tipe data data table sebagai tempat untuk menyimpan sementara data dari tabel megacities.
3. Membuat sub procedure isi untuk menampilkan data dari tabel megacities di Ms. Access ke DataGridView
4. Memanggil sub procedure isi untuk menampilkan data. Letakkan code pada event CitiesData_Load
5. Jalankan program, hasilnya: DataGridView telah terisi data dari tabel megacities.
D. Menampilkan data ke textbox dari baris pada DataGridView yang diklik LATIHAN 4 1. Pilih Class Name yang akan diberi method event, yaitu dg_megacities
2. Pilih method event CellClick (memberi event pada DataGridView dengan meng-klik cell pada DataGridView).
Hasilnya:
3. Tambahkan script berikut ini pada Sub dg_megacities_CellClick di atas
4. Jalankan program, hasilnya seperti pada gambar di bawah ini.
E. Manipulasi data menggunakan database (Insert, update, delete) 1. Insert Data LATIHAN 5 Jika button Insert di-klik maka txtCity, txtCountry, txtPop2005, txtPop2010 menjadi kosong dan siap dipakai untuk insert data. Untuk menambahkan datanya dapat dilakukan dengan button proses. Langkah-Langkah: a) Beri event click pada button Insert. b) Tambahkan script berikut ini untuk mengosongkan textbox, dan meletakkan posisi cursor pada txtCity.
Deklarasikan juga variable kunci sebagai variable global dengan tipe data string (Letakkan pada class CitiesData paling atas). c) Beri event click pada button Proses d) Tambahkan IF block untuk pengkondisian button Insert, Update, dan Delete berikut ini If (kunci = btnInsert.Text) Then ‘Script untuk tambah/insert data ElseIf (kunci = btnUpdate.Text) Then ‘Script untuk mengubah/update data ElseIf (kunci = btnDelete.Text) Then ‘Script untuk menghapus/delete data End If
e) Script untuk tambah data
‘Memunculkan pesan peringatan apabila terdapat txtbox ‘yang belum terisi
‘ Membuka koneksi, tambah data ke tabel megacities di ‘ Ms. Access, menutup koneksi kembali
Keterangan: Error Handler (pendeteksian kesalahan): Try ‘Perintah/pernyataan yang mungkin dapat menimbulkan error Catch ‘Perintah/pernyataan yang akan dijalankan apabila terjadi error End Try f) Jarankan program, tambahkan beberapa data, lihat hasilnya. 2. Update Data LATIHAN 6 Jika button Update di-klik maka txtCity menjadi ReadOnly (hanya bisa membaca, tidak bisa diisi, karena txtCity merupakan Primary Key) Untuk Mengubah datanya dapat dilakukan dengan button proses. Langkah-Langkah: a) Beri Event Click pada button Update. b) Tambahkan script berikut untuk membuat txtCity menjadi ReadOnly.
‘Untuk ekspresi pengkondisian button Update pada event Click btnProses
c) Buat sub procedure teks() untuk manipulasi ReadOnly pada textbox.
d) Tambahkahkan script ubah data berikut pada event click button proses
‘Membuka koneksi dengan database megacities, mengubah ‘data kota tertentu pada tabel megacities, menutup ‘koneksi, error handler
e) Tambahkahkan script pemanggilan sub prosedur teks() berikut pada event click button proses, letakkan setelah IF-Block pengkondisian button. teks(False) f) Jalankan program, lakukan pengubahan data pada tabel, lihat hasilnya. 3. Delete Data LATIHAN 7 Jika button Delete di-klik maka semua textbox menjadi ReadOnly (hanya bisa membaca, tidak bisa diisi, karena txtCity merupakan Primary Key) Untuk Menghapus datanya dapat dilakukan dengan button proses. Langkah-Langkah: a) Beri Event Click pada button Delete. b) Tambahkan script pemanggilan prosedur teks dengan kondisi true untuk membuat semua textbox menjadi ReadOnly.
‘Untuk ekspresi pengkondisian button Delete pada event Click btnProses
c) Tambahkahkan script hapus/delete data berikut pada event click button proses.
‘Membuka koneksi dengan database megacities, menghapus ‘data kota tertentu pada tabel megacities, menutup ‘koneksi, error handler
d) Jalankan program, lakukan penghapusan data dari tabel megacities, lihat hasilnya.
F. Melakukan Pencarian Data LATIHAN 8 Langkah-Langkah: 1. Tambahkan beberapa object dari toolbox untuk pencarian data seperti terlihat pada gambar berikut.
2. Setting property seperti pada tabel berikut: Object Property textBox5 ComboBox1
Button5 Button6
Name Name Text Items Name Text Name Text
3. Beri Event Click pada button Search.
Setting txtCari cbCari Kolom City, Country btnSearch Search btnShowAll Show All
4. Tambahkan script berikut ini:
5. Beri Event Click pada button Show All 6. Tambahkan pemanggilan sub procedure isi() untuk menampilkan semua baris. isi() 7. Jalankan program, coba pencarian data dal lihat hasilnya.