Pada postingan kali ini saya ingin berbagi tips menampilkan data karyawan yang berulang tahun dengan VB 6.0 database Acces 2003. Adapun algoritmanya adalah ketika user mengklik menu ulang tahun pada halaman Menu utama. maka akan ditampilkan data karyawan yang berulang tahun hari ini. seperti pada gambar dibawah ini.
Komponen yang dibutuhkan adalah :
Klik pada connnectionStringnya, sampai muncul dialogbox sebagai berikut:
Kemudian klik Build - Lalu pilih Microsoft Jet 4.0 OLE DB Provider - kemudian Next
Setelah pilih next maka akan muncul tampilan seperti berikut :
Pada select or enter a database name tentukan nama databasenya. Untuk memastikan koneksinya sudah berhasil klik Test Connection. Apabila berhasil akan muncul pesan sebagai berikut :
Selanjutnya pada properties adodcnya cari RecordSource
pada RecordSourcenya ketiknya select * from tbKaryawan
Langkah membuat koneksinya selesai sampai disitu. Kemudian untuk menampilkan isi tabel pada datagrid, pada properties datagrid cari DataSource - kemudian pilih nama adodc yang kita gunakan.
Langkah selanjutnya adalah klik kanan pada datagrid kemudian pilih Retrieve Fields. Kemudian Yes. Koneksi dan menampilkan isi tabel ke vb selesai sampai disini. Langkah selanjutnya adalah menampilkan data karyawan yang berulang tahun hari ini.
Caranya sederhana tinggal tambahkan coding berikut pada pada form ulang tahunnya pada event load
Adapun penjelasannya adalah :
Saya menggunakan adodc sebagai koneksi ke database adapun namanya adalah adoKaryawan. tbKaryawan merupakan tabel tempat data karyawan disimpan. tgl_lahir merupakan field yang menyimpan tanggal lahir karyawan.
Untuk selanjutnya desesuaikan dengan nama database, nama tabel, dan nama fieldnya.
Komponen yang dibutuhkan adalah :
- 1 buah Datagrid.
- 1 buah adodc untuk koneksi databasenya
Klik pada connnectionStringnya, sampai muncul dialogbox sebagai berikut:
Kemudian klik Build - Lalu pilih Microsoft Jet 4.0 OLE DB Provider - kemudian Next
Setelah pilih next maka akan muncul tampilan seperti berikut :
Pada select or enter a database name tentukan nama databasenya. Untuk memastikan koneksinya sudah berhasil klik Test Connection. Apabila berhasil akan muncul pesan sebagai berikut :
Selanjutnya pada properties adodcnya cari RecordSource
pada RecordSourcenya ketiknya select * from tbKaryawan
Langkah membuat koneksinya selesai sampai disitu. Kemudian untuk menampilkan isi tabel pada datagrid, pada properties datagrid cari DataSource - kemudian pilih nama adodc yang kita gunakan.
Langkah selanjutnya adalah klik kanan pada datagrid kemudian pilih Retrieve Fields. Kemudian Yes. Koneksi dan menampilkan isi tabel ke vb selesai sampai disini. Langkah selanjutnya adalah menampilkan data karyawan yang berulang tahun hari ini.
Caranya sederhana tinggal tambahkan coding berikut pada pada form ulang tahunnya pada event load
Private Sub Form_Load() adoKaryawan.RecordSource = "SELECT * FROM tbKaryawan WHERE format(tgl_lahir,'mm-dd') = format(now(),'mm-dd')" adoKaryawan.Refresh End Sub
Adapun penjelasannya adalah :
Saya menggunakan adodc sebagai koneksi ke database adapun namanya adalah adoKaryawan. tbKaryawan merupakan tabel tempat data karyawan disimpan. tgl_lahir merupakan field yang menyimpan tanggal lahir karyawan.
Untuk selanjutnya desesuaikan dengan nama database, nama tabel, dan nama fieldnya.
0 Comments
