TUTORIAL MEMBUAT DATABASE ACCESS 2007 DENGAN VISUAL BASIC 6.0

TUTORIAL MEMBUAT  DATABASE ACCESS 2007 DENGAN VISUAL BASIC 6.0

                                                       Dalam membuat program database cukuplah mudah hanya saja dalam pembuatan programnya prosedural. Yang namanya database, sekarang sudah sangat diperlukan, hampir di semua instansi baik pemerintah maupun swasta. Database merupakan Kumpulan dari item data yang saling berhubungan satu dengan yang lainnya yang diorganisasikan berdasarkan sebuah skema atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melakukan manipulasi untuk kegunaan tertentu. 

Mengapa Diperlukan Database alasannya antara lain :

1. Salah satu komponen penting dalam sistem informasi, karena merupakan dasar dalam menyediakan informasi
2. Menentukan kualitas informasi : akurat, tepat pada waktunya dan relevan

·     Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya.

• Mengurangi duplikasi data (data redudancy)
• Hubungan data dapat ditingkatkan (data relatability)
• Mengurangi pemborosan tempat simpanan luar

Berikut langkah-langkah dalam membuat program database:

1.      Buka program VB 6.0 anda

2.      Pada New Project pilihlah VB Enterprise Edition Controls ini tujuannya adalah supaya komponen-komponen pada visual basic dimunculkan

3.      Klik OK

4.    Anggaplah sekarang ini kita akan membuat Program data Base untuk Perpustakaan.

5.    Disainlah Form anda seperti gambar berikut :

Gambar di atas bisa di artikena dengan 5 buah label, 4 buah teks box, 8 Command Button, 1 buah data grid dan 1 adodc seperti komponen-komponen berikut :

Komponen	Properties	Value
Label1	Caption Alignment	DATA BUK centre
Label2	Caption	ISBN
Label3	Caption	Judul
Label4	Caption	Pengarang
Label5	Caption	Penerbit
Text1	Name Text	ISBN “Kosongkan”
Text2	Name Text	Judul “Kosongkan”
Text3	Name Text	Pengarang “Kosongkan”
Text4	Name Text	Penerbit “Kosongkan”
Command1	Name Caption	Cmd_Simpan Simpan
Command2	Name Caption	Cmd_Koreksi Koreksi
Command3	Name Caption	Cmd_Hapus Hapus
Command4	Name Caption	Cmd_Keluar Keluar
Command5	Name Caption	Cmd_Firts First
Command6	Name Caption	Cmd_Previeous Previeous
Command7	Name Caption	Cmd_Next Next
Command8	Name Caption	Cmd_Last Last
Adodc	Caption	Data Buku Perpustakaan
Data Grid	Data Source	Adodc1

3.    Bukalah Microsoft Office Access 2007 dikomputer Anda

4.    Klik Blank Data Base

5.    Klik Folder Lokasi Penyimpanan Data base disebelah kanan

6.    Pada Kotak Dialog File New Data Base Ketiklah Nama File Namenya dengan “DBPerpustaka” dan pada Save As Type pilih “Microsoft Office Access Data Base (2002-2003)(*.mdb)”

7.    Klik OK Kemuan Klik Create

8.    Klik Table1:Table à View à Design View Ketik nama Tabel untuk Data Basenya dengan “TBuku” Kemudian Buatlah seperti gambar berikut :

File Name	Data Type	Field Size
ISBN	Text	13
Judul	Text	50
Pengarang	Text	30
Penerbit	Text	30

Hasilnya kurang lebih akan menjadi seperti :

 9.      Simpan kemudian kemudian Data base perpustakaan harus di tutup atau di close

10.      Selanjutnya kita kembali ke project dan form di Visual basic. Klik Kanan pada Adodc1 Pilih Adodc Properties

11.      Klik Tab General pada Property Pagesà Klik Buil pada Use Conection String.

12.      Klik Microsoft Jet 4.0 OLE DB Provider à Klik Next

13.   Pada Data Link Properties pilih nomor 1 klik kota di sebelah kanan tanda lingkaran

14.   Kemudian Pilih dimana letak file Data Base “DBPerpustaka.mdb” Kemudian Klik Open.

15.   Klik Test Connection sampai keluar kata “Test Connection Succeeded”

16.   Klik OK

17.   Klik Apply

18.   OK

19.   Selanjutnya kita akan menuliskan Code Program

Dobel klik cmd_Simpan, ketik code berikut
Private Sub cmd_Simpan_Click()
    With Adodc1
    Adodc1.Recordset.AddNew
    .Recordset.Fields(0) = isbn.Text
    .Recordset.Fields(1) = Judul.Text
    .Recordset.Fields(2) = Pengarang.Text
    .Recordset.Fields(3) = Penerbit.Text
    Adodc1.Recordset.Update
    End With
        isbn.Text = ""
        Judul.Text = ""
        Pengarang.Text = ""
        Penerbit.Text = ""
    isbn.SetFocus
End Sub
 
Dobel klik cmd_Koreksi, ketik code berikut !
Private Sub cmd_Koreksi_Click()
     With Adodc1
    Adodc1.Recordset.Update
    .Recordset.Fields(0) = isbn.Text
    .Recordset.Fields(1) = Judul.Text
    .Recordset.Fields(2) = Pengarang.Text
    .Recordset.Fields(3) = Penerbit.Text
    Adodc1.Recordset.Update
    End With
        isbn.Text = ""
        Judul.Text = ""
        Pengarang.Text = ""
        Penerbit.Text = ""
    isbn.SetFocus   
End Sub
 
Dobel klik cmd_Hapus, masukkan code berikut ini :
Private Sub cmd_Hapus_Click()
    Adodc1.Recordset.Delete
        isbn.Text = ""
        Judul.Text = ""
        Pengarang.Text = ""
        Penerbit.Text = ""
    isbn.SetFocus
  End Sub
Dobel klik cmd_Keluar masukkan Code berikut
      Private Sub cmd_Hapus_Click()
          Unload Me
   End Sub
Dobel klik cmd_First, Ketik code berikut !
Private Sub Cmd_Firts_Click()
    With Adodc1.Recordset
    .MoveLast
        isbn.Text = .Fields(0)
        Judul.Text = .Fields(1)
        Pengarang.Text = .Fields(2)
        Penerbit.Text = .Fields(3)
    End With
End Sub

Dobel klik cmd_Previeous, Ketik code berikut !
Private Sub Cmd_Previeous_Click()
    With Adodc1.Recordset
    .MovePrevious
    If .BOF Then
       .MoveFirst
    End If
        isbn.Text = .Fields(0)
        Judul.Text = .Fields(1)
        Pengarang.Text = .Fields(2)
        Penerbit.Text = .Fields(3)
    End With
End Sub

Dobel klik cmd_Next, Ketik code berikut !
Private Sub Cmd_Next_Click()
    With Adodc1.Recordset
    .MoveNext
    If .EOF Then
       .MoveLast
    End If
        isbn.Text = .Fields(0)
        Judul.Text = .Fields(1)
        Pengarang.Text = .Fields(2)
        Penerbit.Text = .Fields(3)
    End With
End Sub

Dobel klik cmd_Last Ketik code berikut !
 Private Sub Cmd_Last_Click()
    With Adodc1.Recordset
    .MoveLast
        isbn.Text = .Fields(0)
        Judul.Text = .Fields(1)
        Pengarang.Text = .Fields(2)
        Penerbit.Text = .Fields(3)
End With
End Sub