Artikel Terkait Tutorial VB6
Mengenal Objek Data untuk Koneksi ke Database di VB6 - Pada pertemuan kali ini tip dan trik kan mengulas tentang Objek Data dimana objek tersebut mempunyai peranan yang sangat penting teruma dalam hubungannya dalam pengkoneksian Database yang ada di Visual Basic 6.0.
Kali ini kta kan membahas objek tersebut dari segi properti dan fungsi sehingga nanti Anda dapat memahami lebih jauh tentang properti tersebut dengan begitu Anda dapat menyusun kode program dengan baik.
Data adalah objek yang digunakan untuk menghubungkan program aplikasi yang kita buat dengan Database. Berikut ini adalah beberapa Properti Data serta kegunaannya :
Properti | Kegunaan |
| Align | Untuk menentukan posisi objek data terhadap kontenernya (misalnya Form).(0-None, 1-Align Top, 2-Align Bottom, 3-Align Left, 4-Align Right) |
| Appearance | Untuk menentukan tampilan data (0-Flat, 1-3D) |
| BackColor | Untuk menentukan warna latar belakang |
| BOFAction | Untuk menentukan pa yang akan dilakukan jika kondisi BOF (Beginning Of File) ditemukan (0-MoveFirst, 2-BOF) |
| Caption | Untuk menentukan tulisan yang tertera pada objek Data |
| Connect | Untuk menentukan jenis Database yang kan dihubungkan dengan project |
| DatabaseName | Untuk menentukan nama Database yang akan dihubungkan dengan project, nama Databasenya harus dituliskan lengkap dengan Path-nya C:\VB6\proyek.mdb Pada contoh diatas terlihat bahwa database yang dihubungkan dalah database proyek.mdb yang terletak di directori C:\VB6. |
| DragIcon | Untuk menentukan Icon yang digunakan ketika terjadi pada operasi drag and Drop terhadap objek Data |
| DragMode | Untuk menentukan modus operasi drag and drop (0-manual, 1-automatic) |
| Enabled | Menentukan apakan objek Data dapat menerima Event yang dibuat olen pemakai misalnya Click, MouseDown, MouseUp dll |
| EOFAction | Untuk menentukan pa yang kan dilakukan jikalau kondisi EOF (End Of File) ditemukan (0-MoveLast, 1-EOF, 2-AddNew) |
| Font | Digunakan untuk menentukan jenis Font, ukuran, Style dll |
| ForeColor | Untuk menentukan warna tulisan pada objek Data |
| Height | Untuk menentukan tinggi objek Data |
| Index | Untuk menentukan nomor Index jika Data tersebut merupakan array |
| Left | Untuk menentukan jarak kiri objek Data dari wadahnya (Form) |
| MouseIcon | Untuk menentukan bentuk icon mouse yang digunakan ketika pointer mouse berada diatas objek Data tersebut Properti hanya bisa digunakan apabila properti MousePointer diset menjadi Custom (99-Custom) |
| MousePointer | Untuk menentukan bentuk pointer yang digunakan ketika pointer tersebut barada diatas objek Data |
| ReadOnly | Untuk menentukan apakah objek Data dapat diedit atau tidak |
| RecordsetType | Untuk menentukanntipe himpunan record (Recordset) yang digunakan dengan objek Data (0-Table, 1-Dynaset, 2-Snapshot) |
| RecordSource | Untuk menentukan nama Recordset (tabel atau query) yang kan dihubungkan dengan kontrol |
| Visible | Untuk menentukan apakah objek Data dapat dilihat (visible) atau tidak (False, True) |
| Width | Menentukan lebar objek Data |
| WordWrap | untuk menetapkan apakah tulisan yang ada didalam objek Data akan disesuaikan dengan lebar objek Data atau tidak (False, True) |
Adapun event yang sering digunakan untuk bekerja di objek Data adalah sebagai berikut :
Event | Keterangan |
| DragDrop | Terjadi ketika objek Data dipindahkan |
| MouseDown | Terjadi ketika pemakai menekan tombol mouse pada objek Data parameter yang dapat digunakan adalah Button (1-tombol kiri, 2-tombol kanan), Keyboard (1-Shift, 2-Ctrl, 3-Alt), X (posisi kolom pointer), Y (posisi baris pointer) |
| MouseMove | Terjadi ketika pemakai menggerakan mouse pada objek Data parameter yang dapat digunakan adalah Button (1-tombol kiri, 2-tombol kanan), Keyboard (1-Shift, 2-Ctrl, 3-Alt), X (posisi kolom pointer), Y (posisi baris pointer) |
| MouseUp | Terjadi ketika pemakai melepaskan penekanan tombol mouse pada objek Data parameter yang dapat digunakan adalah Button (1-tombol kiri, 2-tombol kanan), Keyboard (1-Shift, 2-Ctrl, 3-Alt), X (posisi kolom pointer), Y (posisi baris pointer) |
| Reposition | Terjadi ketika objek Data mengalami perpindahan Record |
| Validate | Terjadi ketika objek Data mengalami operasi perpindahan Record, panambahan Record, Update Record dan penghapusan Record |
Sedangkan berikut ini adalah beberapa metode yang biasa digunakan oleh Data :
Metode | Keterangan |
| Move | Keterangan |
| Metode | Metode ini digunakan untuk memindahkan letak (koordinat Left, top) kontrol Data maupun mengubah ukurannya (Height dan Width) |
| UpdateControls | Digunakan untuk membaca kembali nilai yang dimilki oleh setiap field dalam recordset, lalu menampilkannya kedalam setiap objek yang terhubung dengannya |
| Refresh | Untuk mencetak ulang objek Data |
| Zorder | Untuk menentukan order objek Data, apakah diatas atau dibawah objek lain |
Berikut dibawah ini adalah bebebrapa perintah objek Data yang berhubungan dengan aksi Record :
1. Berpindah Record
Untuk berpindah record selain menggunakan tombol-tombol yang terdapat dalam objek data, juga dapat dilakukan melalui bebebrpa metode yang dituliskan dalam kode program. Metode-metode tersebut itu adalah MoveFirst, MoveLast, MoveNext dan MovePrevious.
Aturan penulisan kode program untuk berpindah record adalah sebagai berikut :
-Berpindah ke Record pertama
<namaobjectData>.Recordset.MoveFirst
-Berpindah ke Record terakhir
<namaobjectData>.Recordset.MoveLast
-Berpindah ke Recordselanjutnya
<namaobjectData>.Recordset.MoveNext
-Berpindah ke Record sebelumnya
<namaobjectData>.Recordset.MovePrevious
2. Pencarian Record dengan Find
Ada dua jenis pencarian dengan Find yaitu dengan FindFirst dan FindNext. FindFirst digunakan untuk melakukan pencarian mulai dari record pertama sedangakn FindNext pencarian dilakukan dimulai daro posisi sekarang, jadi tidak dari posisi pertama.
Berikut adalah aturan penulisan kode programnya :
<namaobjekData>.Recordset.FindFirst "<kriteria>"
atau
<namaobjekData>.Recordset.FindNext "<kriteria>"
Contoh penggunaannya:
data_dosen.Recordset.FindFirst "namadosen = 'Gofur' "
if data_dosen.Recordset.NoMatch Then
MsgBox "Data tidak ditemukan"
End if
atau
data_dosen.Recordset.FindNext "namadosen = 'Gofur' "
if data_dosen.Recordset.NoMatch Then
MsgBox "Data tidak ditemukan"
End if
3. Pencarian Data dengan Index
data_dosen.Recordet.Index = "namaindex"
data_dosen.Recordset.Seek "=", "kata yang dicari"
if data_dosen.Recordset.NoMatch Then
MsgBox "Data tidak ditemukan"
else
MsgBox "Data ditemukan"
End if
4. Menambah Record
<namaobjekData>.Recordset.AddNew
5.Menghapus Record
<namaobjekData>.Recordset.Delete
6. Mengubah Record
<namaobjekData>.Recordset.Edit
Demikian artikel mengenai Objek Data untuk Koneksi ke Database di VB6. semoga dengan adanya artikel dapat menambah wawasan kita dalam dunia pemograman khususnya Visual Basic 6.0.
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).