VB 6.0 Database

Contoh project Microsoft Visual Basic 6.0 menggunakan database Microsoft Access step by step:

Langkah-langkah

1. Buat project baru

File - New Project

Pilih STANDAR EXE kemudian klik OK

2. Tambahkan komponen pada toolbox. Klik kanan pada toolbox - component - Microsoft Datagrid Control 6.0 (OLEDB) - OK
3. Aturlah property formnya sebagai berikut :

• Name       : Frm_Utama
• Caption    :  ..::|| Data Teman ||::..

4. Pada Frm_Utama aturlah objek-objek seperti tampilan berikut :

Obyek	Property	Setting
Label1	Caption	Nama
Label2	Caption	Alamat
Label3	Caption	TTL
Label4	Caption	Telp
Text1	Name Text	TNama
Text2	Name Text	TAlamat
Text3	Name Text	TLahir
Text4	Name Text	TTelp
Command1	Name Caption	CmdBaru Baru
Command2	Name Caption	CmdSimpan Simpan
Command3	Name Caption	CmdEdit Edit
Command4	Name Caption	CmdUpdate Update
Command5	Name Caption	CmdBatal Batal
Command6	Name Caption	CmdHapus Hapus
DataGrid1	Name AllowUpdate	DB False

5. Buat database data teman.Mdb

a.   Dari jendela Visual Basic Klik menu Add-Ins dan pilih Visual Data Manager dan akan muncul tampilan sbb:

b.   Klik menu File - New - Microsoft Acces kemudian pilihlah Version 7.0 seperti gambar berikut :

 c.   Selanjutnya ditampilkan kotak dialog Select Microsoft Acces Database to Create. Tentukan tempat untuk menyimpan database yang dibuat dengan nama DataTeman. Seperti pada gambar berikut :

d.   Klik Save

6. Buat table Data Teman

a.    Klik kanan pada jendela Database window, kemudian pilihlah New Table dari popup menu yang ditampilkan.

Sehingga ditampilkan jendela berikutnya dengan nama Table Structure, ketikkan nama tabelnya = TTeman pada kotak Table Name

b.    Klik tombol Add field untuk membuat field baru dan buatlah field sbb :

Nama_Field	Type	Size
Nama	Text	50
Alamat	Memo
Lahir	Text	30
Telp	Text	20

c.    Deklarasikan variable untuk membuka database

Option Explicit

'Koneksi merupakan variabel untuk dihubungkan dengan file databasenya

Public Koneksi As New ADODB.Connection

'rsteman merupakan variabel untuk memanggil data record

Public Rsteman As New ADODB.Recordset

d.    Buat prosedur (Sub) untuk membuka database

Private Sub BukaDatabase()

'Perintah untuk memanggil database

    Koneksi.CursorLocation = adUseClient

    Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False"

‘(Jika tidak tau provider maka tambahkan adodc dan konekkan terus copyconection stringnya)
'Untuk alamat file databasenya bisa dibuat dinamis mengikuti alamat aplikasi dengan mengganti:
 Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False" 
menjadi
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DataTeman.mdb;Persist Security Info=False" 

'perintah untuk memanggil record dari masing2 tabel

    Rsteman.Open "tteman", Koneksi, adOpenStatic, adLockOptimistic

End Sub

e.    Dan  ketik Script dibawah ini

·         Script pada Tombol Baru

Private Sub CmdBaru_Click()

‘Untuk membersihkan field ketika tombol baru diklik

    TNama.Text = ""

    TAlamat.Text = ""

    TLahir.Text = ""

    TTelp.Text = ""

‘untuk meletakkan kursor pada TNama Saat Tombol baru diklik

    TNama.SetFocus

    buka

    CmdBaru.Enabled = False

    CmdSimpan.Enabled = True

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = True

    CmdHapus.Enabled = False

End Sub

·         Script pada Tombol Batal

Private Sub CmdBatal_Click()

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada Tombol Edit

Private Sub CmdEdit_Click()

‘untuk memanggil procedure buka

    buka

    CmdBaru.Enabled = False

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = True

    CmdBatal.Enabled = True

    CmdHapus.Enabled = False

End Sub

·         Script pada Tombol Hapus

Private Sub CmdHapus_Click()

‘ketika tidak ada data yang dihapus maka tidak eror

    If Rsteman.RecordCount = 0 Then Exit Sub

‘ketika kursor tidak pada grid maka tdk eror

    If Rsteman.AbsolutePosition < 0 Then

            MsgBox "Pilih yang akan dihapus", vbOKOnly + vbInformation, "Info"

        End If

‘perintah utnuk menghapus data

    Rsteman.Delete

End Sub

·         Script pada Tombol Simpan

Private Sub CmdSimpan_Click()

    'Rsteman nama variabel u/ memanggil data record

    'jika menggunakan komponen adodc maka scriptx adodc1.recordset.addnew

    Rsteman.AddNew

    Rsteman.Fields(0).Value = Trim(TNama.Text)

    Rsteman.Fields(1).Value = Trim(TAlamat.Text)

    Rsteman.Fields(2).Value = Trim(TLahir.Text)

    Rsteman.Fields(3).Value = Trim(TTelp.Text)

    Rsteman.Update

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada Tombol Update

Private Sub CmdUpdate_Click()

    Rsteman.Fields(0).Value = Trim(TNama.Text)

    Rsteman.Fields(1).Value = Trim(TAlamat.Text)

    Rsteman.Fields(2).Value = Trim(TLahir.Text)

    Rsteman.Fields(3).Value = Trim(TTelp.Text)

    Rsteman.Update

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Script pada DataGrid

Private Sub DB_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    TNama.Text = Rsteman.Fields(0).Value

    TAlamat.Text = Rsteman.Fields(1).Value

    TLahir.Text = Rsteman.Fields(2).Value

    TTelp.Text = Rsteman.Fields(3).Value

End Sub

·         Script pada Form load

Private Sub Form_Load()

    'untuk membuka/mengkonekkan databasenya

    BukaDatabase

    'untuk menghubungkan datagrid ke datasource

    Set DB.DataSource = Rsteman

    kunci

    CmdBaru.Enabled = True

    CmdSimpan.Enabled = False

    CmdEdit.Enabled = True

    CmdUpdate.Enabled = False

    CmdBatal.Enabled = False

    CmdHapus.Enabled = True

End Sub

·         Procedure Buka

Private Sub buka()

    TNama.Locked = False

    TAlamat.Locked = False

    TLahir.Locked = False

    TTelp.Locked = False

End Sub

·         Procedure Kunci

Private Sub kunci()

    TNama.Locked = True

    TAlamat.Locked = True

    TLahir.Locked = True

    TTelp.Locked = True

End Sub