Tugas 1: Tutorial Membuat Program Database Menggunakan MS. Access dan MS. Visual Basic 6.0

Program yang kita buat adalah program yang bisa memunculkan atau menyambungkan program database yang sudah dibuat sebelumnya pada MS Access dengan project pada VB. Pertama buat dahulu sebuah database di MS Access.

Klik MS Access, klik New Blank Database, klik Create. Lalu masukkan data yang ingin dibuat, misalnya data alamat mahasiswa.

Jika sudah selesai buka MS Visual Basic 6.0, pilih Standard EXE.

Klik menu Project lalu klik Add MDI Form untuk membuat menu show dan hide.

Klik Menu Editor untuk membuat menu FILE, kemudian buat pilihan FORM2 dan EXIT didalam menu FILE.

Setelah itu klik add form dan buat project pada form seperti ini. Klik tool Add Form, klik Label kemudian ketikkan DATA MAHASISWA, NPM, NAMA, dan ALAMAT. Klik TextBox lalu kosongkan TextBox tersebut. Buat tombol TAMBAH, HAPUS, CARI, dan SIMPAN dengan cara klik CommandButton yang ada di menu toolbox samping kiri.

Untuk menambahkan editor pada toolbox, klik Project à klik Components à tandai bagian Microsoft ADO Data Control dan Microsoft DataGrid Control à klik OK.

 Jangan lupa masukkan/klik DataGrid dan Adodc sebagai connector yang akan dipakai dengan MS Access database.

Setelah itu masukkan kodingan di bawah ini pada masing-masing Form dan MDI Form.

MDI Form

Private Sub DATA_Click()

Form2.Show

End Sub

Private Sub EXIT_Click()

Form2.Hide

End Sub

Form

Public conn As New ADODB.Connection

Public Sub Koneksi()

On Error GoTo KonekErr

If conn.State = 1 Then conn.Close , jika koneksi = 1 maka koneksi akan tertutup.

conn.Open “provider=Microsoft.jet.OLEDB.4.0;Data Source=” + App.Path + “\mahasiswa2.mdb;persist Security info=False” , berfungsi untuk membuka koneksi dan akan tersambung menggunakan Microsoft.jet.OLEDB.4.0 untuk bisa tersambung dengan data mahasiswa2.mdb dan data mahasiswa.mdb akan muncul di datagrid pada formyang sudah dibuat.

Exit Sub

KonekErr:

  MsgBox “gagal menghubungkan ke database!kesalahan pada:” & Err.Description, vbCritical, “peringatan” , jika sambungan dengan database gagal akan muncul pesan seperti di samping.

End Sub

Private Sub Command1_Click()

Adodc1.Recordset.AddNew , berfungsi agar bisa menambahkan data pada database saat program sudah dijalankan ketika kita mengklik button TAMBAH.

Me.Text1.Text = “”

Me.Text2.Text = “”

Me.Text3.Text = “”

Me.Text1.Text sampai Me.Text3.Text dikosongkan supaya bisa menambahkan data pada database.

End Sub

Private Sub Command2_Click()

If MsgBox(“yakin ingin menghapus data??”, vbQuestion + vbOKCancel, “konfirmasi”) = vbOK Then , jika kita klik button2 atau HAPUS maka akan muncul pesan “yakin ingin menghapus data?” seperti yang tertulis serta pilihan “OK” dan “Cancel”

Adodc1.Recordset.Delete , kemudian jika kita sudah mengkonfirmasi dan mengklik “Cancel” maka akan batal melakukan penghapusan. Jika diklik konfirmasi “OK” maka satu data pada program database yang ditampilkan pada Form akan terhapus.

Me.DataGrid1.Refresh

End If

End Sub

Private Sub Command3_Click()

Dim snpm As String , mendeklarasikan npm sebagai variabel string.

snpm = InputBox(“nama:”)

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “NAMA=’” & snpm & “‘”

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Fields(“NPM”) = Me.Text1.Text

Adodc1.Recordset.Fields(“NAMA”) = Me.Text2.Text

Adodc1.Recordset.Fields(“ALAMAT”) = Me.Text3.Text

Tiga perintah diatas adalah untuk menyimpan semua data NPM, NAMA, dan, ALAMAT pada databse ketika kita klik button SIMPAN atau button4.

MsgBox “Data Berhasil Disimpan..!!”, vbOKOnly + vbInformation, “Konfirmas”

Me.DataGrid1.Refresh , selanjutnya jika sudah menekan button simpan maka pada program akan muncul pesan “Data Berhasil Disimpan..!!” lalu tekan konfirmasi “OK”

End Sub

Private Sub form_load()

Koneksi

Adodc1.ConnectionString = conn.ConnectionString

Adodc1.RecordSource = “select*from mahasiswa”

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Setelah program dijalankan, maka outputnya adalah seperti ini