Kontrol merupakan bagian terpenting didalam program MS. Visual Basic yang berfungsi menyusun sebuah program aplikasi, dengan kata lain kontrol itu adalah sebuah komponen atau objek yang diletakkan dalam form, berdiri sendiri tetapi saling berhubungan satu sama lainnya, sehingga membentuk sebuah program aplikasi.
Kontrol didalam Visual Basic cukup banyak, seperti :CheckBox, ComboBox, CommandButton, Data, DriveListBox, dan beberapa kontrol lainnya. Namun pada pembahasan saya kali ini, saya hanya akan membahas mengenai Kontrol Data saja.
Mungkin teman-teman semua masih bingung dengan kalimat “Kontrol Data” itu sendiri. Kontrol Data itu adalah sebuah kontrol yang digunakan untuk mengambil sebuah data tabel. Properti yang perlu diubah hanya DatabaseName dan RecordSource saja.
Untuk lebih memahami penggunaan kontrol Data, ikuti langkah berikut ini:
1. Pertama-tama, kita harus memiliki sebuah database beserta tabel untuk ditampilkan pada form. Caranya:
a. Pilih menu Add-Ins → Visual Data Manager, sehingga akan muncul jendela VisData.

b. Kemudian pilih menu File → New → Microsoft Access Version 7.0 MDB. Lihat gambar berikut.

c. Tentukan lokasi penyimpanan database menggunakan kotak Save in. Ketik nama database pada kotak File name, misal DB_Mahasiswa dan tekan tombol Save.
d. Untuk membuat tabel, klik kanan pada item Properties, pilih New Table.

e. Selanjutnya akan muncul kotak dialog Table Structure, ketik nama tabel pada bagian Table Name, yaitu Tabel_Mahasiswa..
f. Tekan tombol Add Field untuk menambah field. Ketik nama field pada bagian Name. Tentukan tipe field pada bagian Type dan panjang karakter pada bagian Size.
Misalnya tambahkan field sebagai berikut:
-
Filed Name | Type | Size |
NIM | Text | 10 |
Nama | Text | 35 |
Nilai | Single | 4 |

g. Setelah selesai menambahkan 3 field pada kotak dialog Add Field di atas, tekan tombol Close.
h. Pada kotak dialog table Structure, tekan tombol Build the Table.
i. Maka telah jadi sebuah database kita. Tekan close pada jendela VisData.
2. Buatlah form yang terdiri dari 3 label, 3 TextBox, 3 CommandButton, Data, DBGrid.

3. Ketikkan code berikut untuk tombol
Simpan Private Sub Command1_Click()
Data1.Recordset.AddNew
Baca_Data
Data1.Recordset.Update
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Baca_Data()
Data1.Recordset!NIM = Text1.Text
Data1.Recordset!Nama = Text2.Text
Data1.Recordset!Nilai = Text3.Text
End Sub
Ketikkan code berikut untuk tombol Delete
Private Sub Command2_Click()
Data1.Recordset.Delete
End Sub
Ketikkan code berikut untuk tombol Exit
Private Sub Command3_Click()
End
End Sub
4. Jadi deh….
Silahkan jalankan programnya dan isi data-datanya. Hasilnya seperti berikut ini.
