Membuat Database Ms Access pada Ms Visual Basic 6.0

Membuat Database Ms Access pada Ms Visual Basic 6.0

 

Pada postingan terdahulu saya pernah menulis tentang koneksi ODBC untuk menghubungkan database ke Bahasa Pemrograman Visual Basic, dan disana sudah jelas disebutkan langkahnya satu persatu. Nah pada postingan kali ini saya akan mencoba untuk membuat sebuah Database Microsoft Access yang akan digunakan oleh Visual Basic. Karena hingga saat ini masih ada beberapa teman SMK yang belum mengerti tentang pembuatan Database Ms Access, dan mudah-mudahan tulisan ini bisa membantu, berikut langkah-langkahnya :
1. Buka Microsoft Visual Basic.
2. Pilih Add Ins pada menu bar.
3. Pilih Visual Data Manager.
4. Maka akan muncul Windows baru yaitu : VisData seperti pada gambar di bawah ini :













5. Kemudian Pilih File -> New -> Microsoft Access -> Version 2.0 MDB
6. Masukkan nama database yang akan kita buat.
7. Pilih Save.
8. Setelah itu maka akan muncul tampilan gambar seperti di bawah ini :

9. Klik Kanan pada halaman kosong Database Windows, kemudian pilih buat tabel / new table.
10. Kemudian isikan Field, Type dan Size. Sampai disini maka kita sudah membuat database kosong yang akan kita isi pada Microsoft Visual Basic
Dibawah ini adalah salah satu contoh script penggunaan database Ms Access pada Visual Basic :

Sub nonaktif()

txtkode.Enabled = False

txtnama.Enabled = False

txtspes.Enabled = False

txtalamat.Enabled = False

txttelp.Enabled = False

End Sub

Sub bersih()

txtkode.Text = ""

txtnama.Text = ""

txtspes.Text = ""

txtalamat.Text = ""

txttelp.Text = ""

End Sub

Sub aktif()

txtkode.Enabled = True

txtnama.Enabled = True

txtspes.Enabled = True

txtalamat.Enabled = True

txttelp.Enabled = True

End Sub

Private Sub cmdadd_Click()

Aktif

bersih

cmdadd.Enabled = False

cmdsave.Enabled = True

cmdbatal.Enabled = True

txtkode.SetFocus

End Sub

Private Sub cmdbatal_Click()

bersih

nonaktif

cmdadd.Enabled = True

cmdsave.Enabled = False

cmdbatal.Enabled = False

End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdfirst_Click()

With Data1.Recordset

.MoveFirst

MsgBox "Anda Diawal Record"

End With

End Sub

Private Sub cmdlast_Click()

With Data1.Recordset

.MoveLast

MsgBox "Anda Diakhir Record"

End With

End Sub

Private Sub cmdnext_Click()

With Data1.Recordset

.MoveNext

If .EOF Then

MsgBox "Anda Diakhir Record"

.MoveLast

End If

End With

End Sub

Private Sub cmdprev_Click()

With Data1.Recordset

.MovePrevious

If .BOF Then

MsgBox "Anda Diawal Record"

.MoveFirst

End If

End With

End Sub

Private Sub cmdsave_Click()

With Data1.Recordset

.AddNew

!kode = txtkode.Text

!nama = txtnama.Text

!spesialis = txtspes.Text

!alamat = txtalamat.Text

!telepon = txttelp.Text

.Update

End With

MsgBox "Data berhasil Disimpan"

bersih

End Sub

Private Sub Form_Load()

bersih

nonaktif

cmdsave.Enabled = False

cmdbatal.Enabled = False

End