aplikasi input pegawai, terkoneksi dengan ms access

Nama : Angga Agung Pratama
Nim : 161021450436
UAS Pemrograman Web 2

assalamualaikum disini saya akan menjelaskan sedikit tentang cara mengoneksikan ms access ke visual studio

melanjutkan dari tugas uas kemarin kita buat form baru untuk koneksi ke database.

ini form sebelumnya lalu kita buat lagi form seperti berikut

jangan lupa juga buat buat ms access nya terlebih dahulu, lalu simpan dan ingatkan dimana posisi kita menyimpan filenya karena akan sangat berpengaruh pada saat kita membuat koneksi nya
mari kita buat koneksinya.

kalian add new conection lalu pilih ms access, browse file ms accesnya, untuk user dan pass biarkan saja lalu kita tinggal test koneksi jika success itu berarti koneksi ke data base sudah ok.

kita sekarang masuk ke tahap coding teman teman tinggal mengikuti source code dibawah.

Imports System.Data

Imports System.Data.OleDb
Public Class Master
Inherits System.Web.UI.Page
Dim golongan As String
Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\File\Kuliah\Pemrograman Web II\DB.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim Xreader As OleDb.OleDbDataReader

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropDownList1.SelectedIndexChanged
golongan = DropDownList1.Text
If golongan = "1" Then
Jab.Text = "Staff"
ElseIf golongan = "2" Then
Jab.Text = "Manajer"
ElseIf golongan = "3" Then
Jab.Text = "Administrasi"
ElseIf golongan = "4" Then
Jab.Text = "Finance"
ElseIf golongan = "5" Then
Jab.Text = "IT Support"
End If
End Sub
Protected Sub save_Click(sender As Object, e As EventArgs) Handles Button1.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO DB values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & Jab.Text & "')"
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
MsgBox("Sukses")
End Sub

Protected Sub Val_Click(sender As Object, e As EventArgs) Handles Val.Click
If Not Len(TextBox1.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim oCmd As New OleDb.OleDbCommand("SELECT * FROM DB WHERE IDPegawai = '" + TextBox1.Text + "'", objekKoneksi)

Xreader = oCmd.ExecuteReader()
If Xreader.HasRows Then
TextBox1.Text = "ID Sudah Ada"
Else
TextBox2.Focus()
End If

End If
End Sub
End Class

setelah selesai kita coba run dan hasilnya sebagai berikut

sekian dari saya terimakasih