Program Pembuka Access

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1

    Dim xReader As OleDbDataReader
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source =C:\Users\Farah\Documents\DatabaseVelyPerpus.mdb"
    Dim Objek As New OleDb.OleDbConnection(Koneksi)


    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        If BtnAdd.Text = "Add" Then
            TxtKode.Text = ""
            TxtNamaBuku.Text = ""
            TxtJumlah.Text = ""
            TxtNamaPeminjam.Text = ""
            TxtTglPinjam.Text = ""
            TxtTglPengembalian.Text = ""
            TxtTglPengembalian.Focus()
            BtnAdd.Text = "Save"
        Else
            Objek.Open()
            Dim Add As String = "INSERT INTO Data Peminjaman values ('" & TxtKode.Text & "', '" & TxtNamaBuku.Text & "', '" & TxtJumlah.Text & "', '" & TxtNamaPeminjam.Text & "', '" & TxtTglPinjam.Text & "', '" & TxtTglPengembalian.Text & "')"
            Dim oCMD = New OleDbCommand(Add, Objek)

            oCMD.ExecuteNonQuery()
            Objek.Close()
            MsgBox("Sukses")
            BtnAdd.Text = "Add"
        End If
    End Sub

    Private Sub BtnFind_Click(sender As Object, e As EventArgs) Handles BtnFind.Click
        Dim Kode As String = InputBox("Masukkan Nama")
        If Not Len(Kode) = 0 Then
            Objek.Close()
            Objek.Open()

            Dim Cari As String = "SELECT * FROM Data Koleksi Buku where nama = '" + Kode + "'"
            Dim oCMD = New OleDbCommand(Cari, Objek)
            xReader = oCMD.ExecuteReader

            If xReader.HasRows Then
                xReader.Read()
                TxtKode.Text = xReader("Kode")
                TxtNamaBuku.Text = xReader("Nama Buku")
                TxtJumlah.Text = xReader("Jumlah")
                TxtNamaPeminjam.Text = xReader("Nama Peminjam")
                TxtTglPinjam.Text = xReader("Tanggal Peminjaman")
                TxtTglPengembalian.Text = xReader("Tanggal Pengembalian")

            Else
                MsgBox("Data Koleksi Buku" + Kode + "tidak ada")
                TxtKode.Text = ""
                TxtNamaBuku.Text = ""
                TxtJumlah.Text = ""
                TxtNamaPeminjam.Text = ""
                TxtTglPinjam.Text = ""
                TxtTglPengembalian.Focus()
            End If
        End If
    End Sub

    Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Objek.Close()
        Objek.Open()
        Dim Ubah As String = "UPDATE Data Peminjaman set tipe = '" & TxtKode.Text & "', Kode Buku = '" & TxtNamaBuku.Text & "', Nama Buku = '" & TxtJumlah.Text & "', Jumlah Buku = '" & TxtNamaPeminjam.Text & "' , Nama Peminjam = '" & TxtTglPinjam.Text & "', where Tanggal Peminjaman = '" & TxtTglPengembalian.Text & "'"
        Dim oCMD = New OleDbCommand(Ubah, Objek)

        oCMD.ExecuteNonQuery()
        Objek.Close()
        MsgBox("Sukses")
    End Sub

    Private Sub btnView_Click(sender As Object, e As EventArgs) Handles BtnView.Click
        FormKoleksiData.Show()
    End Sub

    Private Sub BtnPrint_Click(sender As Object, e As EventArgs) Handles BtnPrint.Click
        Form2.Show()
    End Sub

    Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
        Me.Close()
    End Sub

    Private Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click
        Objek.Close()
        Objek.Open()

        Dim Hapus As String = "DELETE FROM Data Peminjaman where tipe = '" & TxtKode.Text & "'"
        Dim oCMD = New OleDbCommand(Hapus, Objek)
        oCMD.ExecuteNonQuery()

        TxtKode.Text = ""
        TxtNamaBuku.Text = ""
        TxtJumlah.Text = ""
        TxtNamaPeminjam.Text = ""
        TxtTglPinjam.Text = ""
        TxtTglPengembalian.Focus()

        MsgBox("Data berhasil dihapus")
    End Sub
End Class