Contoh Koneksi Database Menggunakan DAO

Berikut adalah contoh program olah data Mahasiswa dengan menggunakan teknologi DAO (Data Acces Object).

  1. Buat database dengan nama “Akademik” menggunakan visual data manager atau melalui microsoft acces yang terdiri dari empat field yaitu “nim”, “nama”, “alamat” dan “prodi”
  2. Buat projek dengan nama akademik dan Atur Form seperti pada gambar.

Grid menggunakan DBGrid. Untuk menambahkan DBGrid di toolbox adalah dari menu Project, Components, pilih tab Controls, kemudian pilih Microsoft Data Bound Grid Control 5.0. kemudian atur properti Datasource dari DBGrid, dengan memilih datAkademik.

  1. Ketik kode program berikut :

Pada Bagian General

Dim tombol As String

Koneksi Database

Private Sub Form_Load()

Data1.DatabaseName = App.Path & “\Akademik.mdb”

Data1.RecordSource = “Mahasiswa”

End Sub

Form Activate

Private Sub Form_Activate()

kosong

tdksiap

batal.Enabled = False

simpan.Enabled = False

tambah.SetFocus

End Sub

 

Tombol Edit

Private Sub cmdEdit_Click()

If cmdEdit.Caption = “Edit” Then

txtNIM.Enabled = True

txtNIM.SetFocus

cmdEdit.Caption = “Update”

cmdNew.Enabled = False

cmdDel.Enabled = False

Else

With datAkademik.Recordset

.Edit ‘Perintah untuk edit data

!Nama = txtNama.Text

!Alamat = txtAlamat.Text

!TglLahir = dtpLahir.Value

.Update

End With

cmdCancel_Click ‘ memanggil cmdCancel_Click

End If

End Sub

Sub Rutin

Sub kosong()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Combo1.Text = “”

End Sub

Sub siap()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Combo1.Enabled = True

End Sub

Sub tdksiap()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Combo1.Enabled = False

End Sub

 

Tombol Tambah

Private Sub tambah_Click()

tombol = “TAMBAH”

siap

kosong

Text1.SetFocus

batal.Enabled = True

simpan.Enabled = True

tambah.Enabled = False

keluar.Enabled = False

ubah.Enabled = False

hapus.Enabled = False

End Sub

 

Tombol Simpan

Private Sub simpan_Click()

If tombol = “UBAH” Then

Data1.Recordset.Edit

Data1.Recordset!NIM = Text1.Text

Data1.Recordset!nama = Text2.Text

Data1.Recordset!alamat = Text3.Text

Data1.Recordset!prodi = Combo1.Text

Data1.Recordset.Update

Data1.Refresh

End If

If tombol = “TAMBAH” Then

Data1.Recordset.AddNew

Data1.Recordset!NIM = Text1.Text

Data1.Recordset!nama = Text2.Text

Data1.Recordset!alamat = Text3.Text

Data1.Recordset!prodi = Combo1.Text

Data1.Recordset.Update

Data1.Refresh

End If

kosong

tdksiap

simpan.Enabled = False

batal.Enabled = False

tambah.Enabled = True

keluar.Enabled = True

ubah.Enabled = True

hapus.Enabled = True

End Sub

 

Tombol Batal

Private Sub batal_Click()

kosong

tdksiap

batal.Enabled = False

simpan.Enabled = False

keluar.Enabled = True

tambah.Enabled = True

ubah.Enabled = True

hapus.Enabled = True

tambah.SetFocus

End Sub

Tombol Ubah

Private Sub ubah_Click()

tombol = “UBAH”

siap

Text1.SetFocus

batal.Enabled = True

simpan.Enabled = True

tambah.Enabled = False

keluar.Enabled = False

ubah.Enabled = False

hapus.Enabled = False

End Sub

 

Tombol Hapus

Private Sub hapus_Click()

jawab = MsgBox(“Yakin Data tersebut akan dihapus …?”, vbYesNo + vbQuestion, “Konfirmasi”)

If jawab = 6 Then

Data1.Recordset.Delete

Data1.Refresh

End If

End Sub

Tombol Keluar

Private Sub keluar_Click()

Unload Me

End Sub

 

DbGrid1  RowColChange

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

Text1.Text = Data1.Recordset!nim

Text2.Text = Data1.Recordset!nama

Text3.Text = Data1.Recordset!alamat

Combo1.Text = Data1.Recordset!prodi

End Sub

 

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.