Membuat Database Sederhana di Visual Basic 6.0

...Welcome to my blog...

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.