UAS Pemprograman 1

1. Deskripsi
        Aplikasi ini merupakan sebuah aplikasi sederhana dengan menggunakan Visual Studio Ultimate 2012. aplikasi ini juga berfungsi untuk menampung data calon Penerimaan Mahasiwa baru, data yang terdapat di Aplikasi ini berupa ID Pendaftar, Nama, Tempat Lahir, Tanggal Lahir, dan Alamat Pendaftar.

2. Screenshot

3. Source Code.
Imports System.Data
Imports System.Data.OleDb
Public Class SuhesUAS
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\New folder (2)\Database\SuhesUAS.accdb"
    Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)

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

    End Sub

    Sub Simpan()
        ObjKoneksi.Open()
        Dim Tambah As String = "INSERT INTO UAS values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &
        "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        Dim oCmd = New OleDbCommand(Tambah, ObjKoneksi)
        oCmd.ExecuteNonQuery()
        ObjKoneksi.Close()
        MsgBox("Succes")
    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
        Response.Redirect("View.aspx")
    End Sub
End Class