26 Des 2012

Tutorial Membuat Data Base 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


20.  Lebih Jelasnya tentang tutorial ini alangkah baiknya anda berperdoman ke pada file aslinya. Saya menyadarinya karena ini kalimatnya masih kurang bagus dan gambarnyapun kurang memuaskan.

File aslinya dapat anda download di sini !

Jangan Lupa meninggalkan komentar di bawah ini, Terima kasih


6 komentar:

terimakasih atas tutorialnya

thanks. gan.... aq coba dulu ya

program pmb y donk
pke vb 6.0 sxan database ms access 2007 y

terima kasih gan ... artikelnya bermanfaat ... :)

ADODC itu yang mana yah ,soalnya sy tdk temukan ?

Mohon Saranya,,,,
saya beberapa kali nyoba pasti ada peringatan ERROR,,,
padahal codingnya udah q tulis,,,
masih saja ERROR,,,,
Matur Suwun,,,,,

Poskan Komentar

ANDA KEPINGIN BELI BUKU ? LANGSUNG KLIK GAMBAR DI BAWAH INI

Toko Buku Online Terlengkap