Pengolahan Basis Data Pada Microsoft Acces Dengan Visual Basic .Net

Pengolahan basis data Pada Microsoft Acces dengan Visual Basic.Net yaitu melayani data dengan tehubung kepada user sehingga lebih mudah dan sederhana. Desain form seperti gambar berikut :

Selanjutnya tambah program berikut :

Imports System.Data.OleDb Public Class frmMahasiswa Sub ButtonBaru() btnBaru.Enabled = True btnSimpan.Enabled = False btnEdit.Enabled = False btnHapus.Enabled = False btnBatal.Enabled = False btnKeluar.Enabled = True End Sub Sub ButtonEdit() btnBaru.Enabled = False btnSimpan.Enabled = False btnEdit.Enabled = True btnHapus.Enabled = True btnBatal.Enabled = True btnKeluar.Enabled = False End Sub Sub ButtonSimpan() btnBaru.Enabled = False btnSimpan.Enabled = True btnEdit.Enabled = False btnHapus.Enabled = False btnBatal.Enabled = True btnkeluar.Enabled = False End Sub Public DB As OleDbConnection Public CMD As OleDbCommand Public ADP As OleDbDataAdapter Public DR As OleDbDataReader Public DS As New DataSet Dim SQL As String Public Sub OpenDB() Dim LOKASI = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =dbstikom.accdb" DB = New OleDbConnection(LOKASI) If DB.State = ConnectionState.Closed Then DB.Open() End If End Sub Sub Tampil() ADP = New OleDbDataAdapter("select *from siswa", DB) DS = New DataSet ADP.Fill(DS, "siswa") Data.DataSource = DS.Tables("siswa") End Sub Private Sub frmMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OpenDB() Tampil() ' HapusText() End Sub Sub HapusText() txtNpm.Text = "" txtNama.Text = "" txtAlamat.Text = "" txtTelepon.Text = "" Call ButtonBaru() End Sub Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click ButtonBaru() txtNpm.Focus() End Sub Private Sub txtNpm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNpm.KeyPress Dim tombol As Integer = Asc(e.KeyChar) Dim xnmp As String If tombol = 13 Then SQL = "select *from siswa where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) DR = CMD.ExecuteReader DR.Read() If DR.HasRows = True Then txtNama.Text = DR.Item(1) txtAlamat.Text = DR.Item(2) txtTelepon.Text = DR.Item(3) Call ButtonEdit() MsgBox("Data ditemukan !") Else xnmp = txtNpm.Text Call HapusText() txtNpm.Text = xnmp Call ButtonSimpan() End If txtNama.Focus() End If End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click SQL = "insert into siswa values('" & txtNpm.Text & "','" & _ txtNama.Text & "','" & _ txtAlamat.Text & "','" & _ txtTelepon.Text & "')" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click MsgBox("Selamat TInggal", MsgBoxStyle.Information, "Stikom Medan-Tebing Tinggi") End End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click SQL = "update siswa set nama='" & txtNama.Text & "', alamat='" & txtAlamat.Text & "', telpon='" & txtTelepon.Text & "' where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click SQL = "delete *from siswa where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged ADP = New OleDbDataAdapter("select *from siswa where nama like '%" & txtCari.Text & "%'", DB) DS = New DataSet ADP.Fill(DS, "siswa") Data.DataSource = DS.Tables("siswa") End Sub End Class
karna data tersimpan pada basis data, maka diperlukan perancangan basis date seperti gambar dan disimpan didalm folder "namaprogram\bin\debug".

setelah semua benar, seperti diatas jalankan program. sehingga menampilkan  aplikasi  seperti gambar berikut

Mudah banget bukan. semoga bermanfaat insyaAllah, Jika ingin mendapatkan program silahkan krim pesan ke https://www.facebook.com/mahasiswakomputer,