WebApplicationPertama(SIMPegawai)

Imports System.Data
Imports System.Data.OleDb
Public Class WebFormBiodata
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ASUS X550Z\Documents\KUMPULAN TUGAS\semester 5\SIMPegawai.accdb"
    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 Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Response.Redirect("WebFromView.aspx")
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO TablePegawai values('" & TxtID.Text & "','" & TxtNama.Text & "','" & TxtGol.Text & "','" & TxtJabatan.Text & "','" & TxtLokasi.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("SelamatAndaSuksesGan")
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        objekKoneksi.Open()
        Dim Rubah As String = "Update TablePegawai set Jabatan='" + TxtJabatan.Text + "' where IDPegawai='" + (TxtID.Text) + "'"
        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("SuksesGan")

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Not Len(TxtID.Text) = 0 Then
            objekKoneksi.Close()
            objekKoneksi.Open()
            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TablePegawai where IDPegawai='" + TxtID.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                TxtID.Text = Xreader("IdPegawai")
                TxtNama.Text = Xreader("NamaPegawai")
                TxtGol.Text = Xreader("Golongan")
                TxtJabatan.Text = Xreader("Jabatan")
                TxtLokasi.Text = Xreader("LokasiFolder")
                Button4.Enabled = True
                Button5.Enabled = True
            Else
                TxtID.Text = "Nama Pegawai Tidak ada"
                Exit Sub
            End If
            Xreader.Close()

        End If

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TxtID.Text = ""
        TxtNama.Text = ""
        TxtGol.Text = ""
        TxtJabatan.Text = ""
        TxtLokasi.Text = ""
        TxtID.Focus()
    End Sub
End Class