tugas uas aplikasi biodata siswa terkoneksi ke database access

Nama : Suhendar

Nim : 161021450501

Kelas : 06tple004/520

dalam membuat Apliaksi ini saya  menggunakan Visual Studio 2012. aplikasi ini di gunakan untuk mengisi biodata siswa agar mempermudah pekerjaan sekolah. karna jaman tekhnologi ini sekolahan harus sudah punya aplikasi ini.

dan aplikasi ini Nim, Nama, Jenis kelamin, Tanggal Lahir, Phone, email,

berikut saya lampirkan tulisan tangan saya di lembar kertas jawaban tentang aplikasi yang saya buat kemaren.

Imports System.Data.OleDb

Public Class tugas
Inherits System.Web.UI.Page

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

End Sub

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim koneksi As String = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\tugas\uas_Web2db.accdb”
Dim objKoneksi As New OleDb.OleDbConnection(koneksi)
Dim cmd As OleDbCommand = New OleDbCommand(“SELECT * FROM tbuser WHERE tbpassword = ‘” & Login.Username & “‘ AND Password = ‘” & Login.Password & “‘ “, objKoneksi)
Dim user As String = “”
Dim pass As String = “”
objKoneksi.Open()

Dim ehe As OleDbDataReader = cmd.ExecuteReader()
If (ehe.Read() = True) Then
MsgBox(“Login Berhasil !”)
Else
MsgBox(“Salah Memasukan Username atau Password !”)
End If
End Sub
End Class

setelah di ran akan muncul seperti ini

setelah masuk ke log in kita masuk ke page selanjut nya

Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If Not Len(tbnomor.Text) = 0 Then
objekkoneksi.Close()
objekkoneksi.Open()

Dim ocmd As New OleDb.OleDbCommand(“Select * from biodata_siswa Where NIM = ‘” & txtnim.Text & “‘”, objekkoneksi)

Xreader = ocmd.ExecuteReader()
If Xreader.HasRows Then
Xreader.Read()
txtnim.Text = Xreader(“NIM”)
txtnama.Text = Xreader(“Nama”)
txtkelamin.Text = Xreader(“Jenis Kelamin”)
txttanggallahir.Text = Xreader(“Tanggal Lahir”)
txtphone.Text = Xreader(“phone”)
txtemail.Text = Xreader(“Email”)
Else
txtnim.Text = ” NIM Tersebut Tidak Ada ”
Exit Sub
End If
End If

End Sub
End Class

sekian aplikasi yang saya buat ini. semoga bermanpaat bagi semuanya.