UAS Basis Data II

Nama : Ady Nugraha

Kelas : 04TPLP001

NIM  : 161021450264

Deskripsi :

Disini saya membuat program tetang PENDATAAN DOSEN untuk mendata identitas masing-masing dosen disebuah universitas, Dosen akan diminta untuk memasukkan nama, jenis kelamin, usia, jabatan, serta alamat. Maka selanjutnya akan diarahkan pada pilihan Save untuk menyimpan data, Delete untuk menghapus data, Clear untuk menyelesaikan, dan yang terakhir View untuk melihat seluruh data yang telah diinput.

ScreenShot Design :

Shource Codding :

Imports System.Data.OleDb

Public Class web_pendataan_dosen

    Inherits System.Web.UI.Page

    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Ady Nugraha\Desktop\db.datadosen.mdb"

    Dim con As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDb.OleDbDataReader

    Dim gender As String

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

        CheckBox1.Text = "Laki-laki"

        CheckBox2.Text = "Perempuan"

    End Sub

    Sub simpan()

        If CheckBox1.Checked = True Then

            gender = "Laki-laki"

        ElseIf CheckBox2.Checked = True Then

            gender = "Perempuan"

        End If

        con.Open()

        Dim tambah As String = "INSERT INTO tabledosen values ('" + TxtNama.Text + "', '" + TxtUsia.Text + "', '" + gender + "','" + TxtJabatan.Text + "','" + TxtAlamat.Text + "')"

        Dim oCmd = New OleDbCommand(tambah, con)

        oCmd.ExecuteNonQuery()

        con.Close()

        MsgBox("Berhasil!")

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        simpan()

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        con.Open()

        Dim apus As String = "DELETE * From Tabledosen WHERE Nama = '" + TxtNama.Text + "'"

        Dim oCmd = New OleDbCommand(apus, con)

        oCmd.ExecuteNonQuery()

        con.Close()

        MsgBox("Berhasil menghapus!")

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TxtNama.Text = ""

        TxtUsia.Text = ""

        TxtJabatan.Text = ""

        TxtAlamat.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Response.Redirect("webview.aspx")

    End Sub

End Class