YOLA FITRIANA
1506761173

UAS Lab Pengantar Pemrograman Bisnis 2

Assalamu 'alaikum...
Saat ini saya ingin berbagi mengenai sebuah aplikasi yang dapat dikoneksikan dengan Ms. Access.
Aplikasi ini bertujuan untuk mempermudah input data bagi petugas asrama untuk para penghuni di Asrama Mahasiswa UI dan  mempermudah dalam menemukan data kamar yang sudah dihuni.

Berikut Tampilannya :

Berikut adalah source code dari aplikasi :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Lab P. Pembis2_YOLA FITRIANA 1506761173\DBasrama.accdb"
    Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDbDataReader
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        Dim Tambahdata As String = "INSERT INTO TableAsrama values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
        Dim Ocmd = New OleDbCommand(Tambahdata, ObjekKoneksi)
        Ocmd.ExecuteNonQuery()

        ObjekKoneksi.Close()
        MsgBox("Sukses !")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ID_Asrama = InputBox("Masukkan ID Asrama")

        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        Dim Ocmd As New OleDbCommand("SELECT * FROM TableAsrama Where ID_Asrama='" + ID_Asrama + "'", ObjekKoneksi)
        xReader = Ocmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TextBox1.Text = xReader("ID_Asrama")
            TextBox2.Text = xReader("Nama")
            TextBox3.Text = xReader("NPM")
            TextBox4.Text = xReader("Bulan_CheckIn")
            TextBox5.Text = xReader("Gedung")
            TextBox6.Text = xReader("No_Kamar")
        Else
            MsgBox("ID Asrama tidak ditemukan")

        End If
        xReader.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sql As String = "Update TableAsrama set Nama='" + TextBox2.Text + "' where ID_Asrama='" + TextBox1.Text + "'"

        Dim oCmd As New OleDbCommand
        ObjekKoneksi.Close()
        ObjekKoneksi.Open()
        oCmd.Connection = ObjekKoneksi
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()

        MsgBox("Sukses !")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Form3.Show()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim delete = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Delete")
        If delete = vbYes Then
            ObjekKoneksi.Close()
            ObjekKoneksi.Open()
            Dim hapus As String = "Delete from TableAsrama where ID_Asrama='" + TextBox1.Text + "'"
            Dim oCmd As New OleDbCommand
            ObjekKoneksi.Close()
            ObjekKoneksi.Open()
            oCmd.Connection = ObjekKoneksi
            oCmd.CommandText = hapus

            oCmd.ExecuteNonQuery()
            MsgBox("Data sudah terhapus", vbArchive)
        End If
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Me.Close()
    End Sub
End Class