database

TUTORIAL MEMBUAT DATA BASE ACCESS 2007 DENGAN VISUAL BASIC 6.0

06.12  ANTONI  1 COMMENT

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 !

Microsoft Visual Basic adalah merupakan sebuah bahasa pemrograman komputer yang menjadi sarana ( Tools ) untuk menghasilkan program – program aplikasi yang berbasis windows.

1. Sarana akses data yang lebih cepat dan handal untuk membuat aplikasi basis data yang berkemampuan tinggi.
2. Tambahan contol – control baru lebih canggih serta peningkatan kaidah struktur bahasa visual basic.
3. Visual Basic memiliki beberapa versi atau edisi yang disesuaikan dengan kebutuhan pemakainya.

Berikut ini perjalanan Visual Basic ( VB 1.0 sampai VB 10 ) yaitu :

1. Proyek “ Thunder” dirintis.
2. Visual Basic 1.0 ( May 1991 ) di rilis untuk windows pada Comdex / Windows Wordltrade yang dipertunjukkan di Atlanta, Georgia.
3. Visual Basic 1.0 untuk DOS di rilis pada bulan September 1992. Bahasa ini kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataannya merupakan versi kelanjutan dari compiler BASIC, Quick Basic dan BASIC Professional Development System
4. Visual Basic 2.0 di rilis pada November 1992, cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di nodifikasi. Khususnya pada Form yang menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yang berikutnya di implementasikan pada VB 4.
5. Visual Basic 3.0 di rilis pada musim panas 1993 dan dibagi menjadi versi standard an professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Data base Engine yang dapat membaca serta menulis database Jet ( atau Access ) 1.x
6. Visual Basic 4.0 ( Agustus 1995 ) merupakan versi pertama yang dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic.
7. Visual Basic 5.0 ( Februari 1997 ), Microsoft merilis secara ekslusif Visual Basic untuk versi windows 32 bit. Programmer yang menulis programnya pada versi 16 bit dapat dengan mudah melakukan import programnya dari VB 4, VB 5 memperkenalkan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 ( pertengahan 1999), memperbaiki beberapa cakupan, termasuk kemampuannya untuk membuat Aplikasi Web-based. Visual Basic 6 di jadwalkan akan memasuki Microsoft “ fasa non Supported “ dimulai pada Maret 2008.
9. Visual Basic NET ( VB 7 ), di rilis pada tahun 2002, beberapa yang mencoba pada versi pertama. NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yang digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtimenya yang 10 kali lebih besar dari paket runtime VB 6 serta peningkatan pengguna memory.
10. Visual Basic NET 2003 ( VB 7.1 ¬), di rilis dengan menggunakan NET framework versi 1.1
11. Visual Basic 2005 ( VB 8.0 ), merupakan iterasi selanjutnya dari Visual Basic NET dan Microsoft memutuskan untuk menghilangkan kata – kata NET pada judulnya. Pada rilis ini Microsoft memasukan beberapa fitur baru diantaranya :
    • Edit and Continue, mungkin inilah kekurangan fitur terbesar dari VB NET pada VB 2005 ini kita diperbolehkan melakuakan perubahan kode pada saat program sedang dijalankan.
    • Perbaikan pada Konversi dari VB ke VB NET 12 Visual Basic NET 2003 ( VB 7.1 ), di rilis dengan menggunakan NET framework versi 1.1
12. Is Not Patent, merupakan salah satu fitur dari Visual Basic 20005 merupakan konversi If Not X Is Not Y.
13. Visual Basic 2005 Express, merupakan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yang gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yang merupakan produk gratis dari Microsoft.
14. Visual Basic “ Orcas “ ( VB 9.0 ), dijadwalkan akan di rilis pada tahun 2007 dan dibangun diatas NET 3.5. Pada rilis ini, Microsoft menambahkan beberapa fitur diantaranya :
    • True Tenary operator, yaitu fungsi If ( boolean, value, value ) yang digunakan untuk mengganti fungsi IF.
    • LINQ Support.
    • Ekspresi Lambada.
    • XML Literals.
    • Nullable Type.
    • Type Inference.
15. Visual Basic “VB X” ( VB 10.0 ), Visual Basic 10 yang juga dikenal dengan nama VB X akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari Silver Light 11