Mengenal Objek Data untuk Koneksi ke Database di 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.

A. Data

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

Related Post: Artikel Objek