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
