RPL Center 2011 SMK Negeri 10 Semarang
MODUL PRAKTEK VISUAL BASIC . NET APLIKASI DATABASE DENGAN MS. ACCESS A. MATERI
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. Membuat database dengan microsoft Access 2003 / 2007 Membuat 1 form aplikasi dengan [Link] Membuat koding koneksi [Link] dengan Database MS. Access. Membuat koding Tambah Data ( Simpan ). Membuat koding Ubah Data ( Edit ) Membuat koding Hapus Data ( Delete ) Membuat koding Batal ( Cancel ) Membuat koding Mencari Data ( Query ) Membuat Laporan ( Rekap ) Membuat Cetak Data ( Print ).
B. LANGKAH B.1. Membuat Database M. ACCESS 2007
1. 2. 3. 4. Buka Microsoft Access 2007 Buat database dengan nama [Link] Buat 1 tabel dengan nama tblsiswa Perhatikan struktur tblsiswa seperti gambar dibawah ini !
5. Isikan 2 data kedalam tblsiswa !
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 1
RPL Center 2011 SMK Negeri 10 Semarang
B.2. Membuat 1 form aplikasi dengan [Link]
1. Buka [Link] 2. Buat project baru dengan nama aplikasidatabasesmk10 3. Tampil form baru masukkan komponen-komponen seperti gambar dibawah ini !
Label 1 -7
Textbox 1-7
Datagridview1 Button 1-6 RadioButton 1-2 Texbox8 4. Ubah properties tiap komponen dan Hasil Akhir seperti gambar dibawah ini .
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 2
RPL Center 2011 SMK Negeri 10 Semarang
B.3. Membuat Koding Koneksi
Imports [Link] Imports [Link] Public Class Form1 Dim Database As OleDbConnection Dim Tabel As OleDbDataAdapter Dim Data As DataSet Dim Record As New BindingSource Sub Koneksi() Try 'pakai ms access 2003 'Database = New OleDbConnection("Provider=[Link].4.0;Data Source=[Link]") 'pakai ms access 2007 Database = New OleDbConnection("Provider=Microsoft Office 12.0 Access Database Engine OLE DB Provider;Data Source = [Link]") [Link]() Catch ex As Exception MsgBox([Link]()) End Try End Sub
Catatan: membuat sub data_record, sub bersih
Sub Data_Record() Try Tabel = New [Link]("select * from tblsiswa", Database) Data = New DataSet [Link](Data) [Link] = Data [Link] = [Link](0).ToString() [Link] = Record [Link](0).Width = 50 [Link](1).Width = 90 [Link](2).Width = 50 [Link](3).Width = 50 [Link](4).Width = 150 [Link](5).Width = 75 [Link](6).Width = 80 Catch ex As Exception MsgBox([Link]()) End Try End Sub Sub bersih() [Link] [Link] [Link] [Link]
= = = =
"" "" "" "" Page 3
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
RPL Center 2011 SMK Negeri 10 Semarang
[Link] = "" [Link] = "" [Link] = "" [Link] = False [Link] = False [Link]() [Link] = True [Link] = False [Link] = False Call Koneksi() Call Data_Record() End Sub
B.4. Membuat Koding Tambah Data
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Try Dim DML As New OleDbCommand [Link] = Database [Link] = [Link] [Link] = "insert into tblsiswa values ( " & _ [Link] & ",'" & [Link] & "','" & [Link] & _ "', '" & [Link] & "', '" & [Link] & "','" & _ [Link] & "', '" & [Link] & "' )" [Link]() MsgBox("Data Telah Disimpan") Call bersih() Catch ex As Exception MsgBox([Link]()) End Try
End sub
B.5. Membuat Koding Ubah Data
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Try Dim DML As New OleDbCommand [Link] = Database [Link] = [Link] [Link] = "Update tblsiswa set nama = '" & [Link] & "', kelas ='" & [Link] & "', jurusan = '" & [Link] & "', alamat = '" & [Link] & "', kelamin = '" & [Link] & "', tgl_lahir = '" & [Link] & "' where nis = " & [Link] & "" [Link]() MsgBox("Data Telah Diubah") Call bersih() Catch ex As Exception MsgBox([Link]()) End Try End Sub
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 4
RPL Center 2011 SMK Negeri 10 Semarang
B.6. Membuat Koding Hapus Data
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Try Dim DML As New OleDbCommand [Link] = Database [Link] = [Link] [Link] = "Delete from tblsiswa where nis = " & [Link] & "" [Link]() MsgBox("Data Telah Dihapus") Call bersih() Catch ex As Exception MsgBox([Link]()) End Try End Sub
B.7. Membuat Koding Batal Data
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Call bersih() End Sub
B.8. Membuat Koding Mencari Data
Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As [Link]) Handles [Link] [Link]() End Sub
Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As [Link]) Handles [Link] [Link]() End Sub Private Sub TextBox8_TextChanged(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Try If [Link] = True Then Tabel = New [Link]("select * from tblsiswa where nis like '%" & [Link] & "%'", Database) Data = New DataSet [Link](Data) [Link] = Data [Link] = [Link](0).ToString() [Link] = Record [Link](0).Width = 180 ElseIf [Link] = True Then Tabel = New [Link]("select * from tblsiswa where nama like '%" & [Link] & "%'", Database) Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link] Page 5
RPL Center 2011 SMK Negeri 10 Semarang
Data = New DataSet [Link](Data) [Link] = Data [Link] = [Link](0).ToString() [Link] = Record [Link](0).Width = 180 End If Catch ex As Exception MsgBox([Link]()) End Try End Sub
B.9. Membuat Laporan Data
1. Tambahkan [Link] dengan crystal report, caranya: Solutio explore Project Add New Items. Pilih Reporting, Crystal Report dan beri nama [Link] Klik kanan
Selanjutnya Klik OK
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 6
RPL Center 2011 SMK Negeri 10 Semarang
Pilih Create New Connection
Database Files
Arahkan database yang akan dipakai, biasanya ada di folder bin
debug
Klik tblsiswa
>>
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 7
RPL Center 2011 SMK Negeri 10 Semarang
Klik
Next
Desin Main Report
Desain seperti Gambar berikut
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 8
RPL Center 2011 SMK Negeri 10 Semarang
Hasil Laporan jika ditampilkan.
B.10. Membuat Cetak Data
Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub
%%% SELAMAT MENCOBA %%%
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 9
RPL Center 2011 SMK Negeri 10 Semarang
Modul [Link] Aplikasi Database M.S Access 2007 By: Hardo Sujatmiko, [Link]
Page 10