BELAJAR MEMBUAT DATABASE MICROSOFT VISUAL BASIC 6.0

BELAJAR MEMBUAT DATABASE MICROSOFT VISUAL BASIC 6.0

A. PENGERTIAN DATABASE
     Database adalah kumpulan beberapa data yang saling berhubungan berdasarkan kode-kode tertentu sehingga membentuk sebuah sistem. Secara hirarki database bisa digambarkan sebagai berikut :
Character sebagai satuan data terkecil dikumpulkan menjadi field (kolom), kumpulan field membentuk sebuah record (baris), beberapa record disimpan dalam file (tabel), dan kumpulan file akan membentuk sebuah database.

Ada beberapa tipe field yang digunakan dalam pembuatan tabel pada database
Visual Basic 6.0 :
Tipe Field Fungsi
1.  Long Digunakan untuk menampung data numerik untuk bilangan bulat
2.  Currency Digunakan untuk menampung data numerik. Kelebihannya adalah currency tidak akan

     melakukan pembulatan bilangan pada operasi matematik
3.  Single Digunakan untuk menampung data numerik untuk bilangan pecahan
4.  Double Fungsinya sama dengan single
5.  Date/Time Digunakan untuk menampung data tanggal atau jam
6.  Text Digunakan untuk menyimpan data karakter dengan daya tampung sebesar 255 karakter
7.  Memo Sama dengan text tetapi dapat menampung sampai dengan 64.000 karakter

B. Membuat Database dan Tabel
Untuk membuat Database dengan Visual Data Manager, Langkah-langkahnya :
1. Pilih Menu Add-Ins pada menu utama Visual Basic, lalu pilih Visual Data
Manager
2. Pilih : File/New/Microsoft Access/Version 7.0 MDB

3. Berikanlah nama pada database yang akan dibuat. Dengan nama Buku sebelumnya tentukan dahulu 

    tempat penyimpanan, simpan pada folder masing masing.
4. Buatlah table DataBuku. Klik Kanan pada Properties, pilih New Table

C. Membuat Index
Index Data adalah urutan data pada tabel Database. Index data diperlukan
terutama untuk pencarian data dengan cepat dan pengelompokan data.
Cara membuat Index :
o Pada Tampilan Table Structure, pilih Add Index

o Ketik nama index, misalnya kobuk pada kolom Name, lalu pilih Available Fields yang bernama kobuk 

   sehingga ada nama field kobuk di Indexed Fields

o Klik kunci index pada Available Fields, otomatis Indexed Fields akan muncul.
o Tentukan pilihan index (Primary, Unique, IgnoreNulls). Primary digunakan sebagai pengenal suatu record, 

  jika tabel yang bersangkutan dihubungkan dengan tabel lain (dalam satu tabel hanya boleh ada satu primary 

  key). Unique dipilh jka ingin index bersifat unik. IgnoreNulls digunakan untuk mengabaikan field yang 

  kosong.
o Setelah Tabel selesai dibuat. Pilih Build the Table maka akan kembali ke database

D. Mengisi Data Pada Tabel
Untuk mengisikan data pada tabel,
Double klik pada nama tabel tersebut atau klik kanan-Open

Pada pengisian Klik Add, isi setiap fieldnya lalu klik Update.
Fungsi menu yang ada pada tabel barang :
o Add : menambah record baru.
o Update : mengoreksi record.
o Delete : menghapus record aktif.
o Find : mencari record.
o Refresh : menampilkan ulang setelah record mengalami perubahan.
o Close : menutup tabel.

                                                                  LISTING PROGRAM                                                             : 
Sub bersih()
TXTKOBUK = ""
txtnobuk = ""
TXTHARGA = ""
End Sub
Private Sub CmdBottom_Click()
DTBUKU.Recordset.MoveLast
MsgBox "Sudah Di Akhir Record", , "Info"
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdNext_Click()
With DTBUKU.Recordset
.MoveNext
If .EOF Then
MsgBox "Sudah Akhir Record", , "Info"
.MoveLast
End If
End With
End Sub
Private Sub CmdPrevious_Click()
DTBUKU.Recordset.MovePrevious
If DTBUKU.Recordset.BOF Then
MsgBox "Sudah Awal Record", , "Info"
DTBUKU.Recordset.MoveFirst
End If
End Sub
Private Sub CmdSimpan_Click()
DTBUKU.Recordset.Update
bersih
End Sub
Private Sub CmdTambah_Click()
DTBUKU.Recordset.AddNew
bersih
TXTKOBUK.SetFocus
End Sub
Private Sub CmdTop_Click()

DTBUKU.Recordset.MoveFirst
MsgBox "Sudah Di Awal Record", , "Info"
End Sub