Menyimpan Data- Data Anggota Perpustakaan Di Visual Studio 2010

 

Imports System.Data.OleDb

Module Module1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public dr As OleDbDataReader

    Public str As String

    Public Sub koneksi()

        str = "Provider=Microsoft.Ace.oledb.12.0;data source=tugas.accdb"

        conn = New OleDbConnection(str)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

End Module

Imports System.Data.OleDb

Public Class Form1

    Public Sub tampil()

        da = New OleDbDataAdapter("select*from anggota", conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "anggota")

        DataGridView1.DataSource = ds.Tables("anggota")

        DataGridView1.Refresh()

    End Sub

    Sub kosong()

        txtnoang.Text = ""

        txtnama.Text = ""

        txtalamat.Text = ""

        Cmbjenkel.Text = ""

        Cmbkelas.Text = ""

        datetgldaftar.Text = ""

        txtnoang.Focus()

        

    End Sub

    Sub aktif(ByVal kondisi As Boolean)

        txtnoang.Enabled = kondisi

        txtnama.Enabled = kondisi

        txtalamat.Enabled = kondisi

        Cmbjenkel.Enabled = kondisi

        Cmbkelas.Enabled = kondisi

        datetgldaftar.Enabled = kondisi

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Cmbjenkel.Items.Add("Laki-Laki")

        Cmbjenkel.Items.Add("Perempuan")

        Cmbkelas.Items.Add("X-1")

        Cmbkelas.Items.Add("X-2")

        Cmbkelas.Items.Add("X-3")

        Call koneksi()

        Call tampil()

        Call kosong()

        Call aktif(False)

        Simpan.Enabled = False

        Edit.Enabled = False

        Hapus.Enabled = False

        DataGridView1.Columns(0).Width = 70

        DataGridView1.Columns(1).Width = 100

        DataGridView1.Columns(2).Width = 100

        DataGridView1.Columns(3).Width = 100

        DataGridView1.Columns(4).Width = 100

        DataGridView1.Columns(5).Width = 100

    End Sub

    Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click

        Call aktif(True)

        Call kosong()

        txtnoang.Focus()

        Simpan.Enabled = True

        Hapus.Enabled = True

        Edit.Enabled = True

    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click

        Call kosong()

        Call aktif(False)

        Simpan.Enabled = False

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        Me.Close()

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        If txtnoang.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or Cmbjenkel.Text = "" Or Cmbkelas.Text = "" Or datetgldaftar.Text = "" Then

            MsgBox("Lengkapi Pengisian data ..!!")

            Exit Sub

        Else

            cmd = New OleDbCommand("select * from anggota where Noang='" & txtnoang.Text & "'", conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                MsgBox("Data dengan No Angka :" & txtnoang.Text & "Sudah ada,Input dengan No Angka yang Lain..!!")

                txtnoang.Clear()

                txtnoang.Focus()

                Exit Sub

            Else

                Dim simpan As String

                simpan = "Insert into Anggota(Noang, Nama, Alamat, Jenkel, Kelas, TglDaftar) values ('" & txtnoang.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" & Cmbjenkel.Text & "','" & Cmbkelas.Text & "','" & datetgldaftar.Text & "')"

                cmd = New OleDbCommand(simpan, conn)

                cmd.ExecuteNonQuery()

                MsgBox("Data Sudah Tersimpan..!!")

            End If

            Call tampil()

            Call kosong()

            Call aktif(False)

        End If

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        str = "Delete from anggota where Noang='" & txtnoang.Text & "'"

        cmd = New OleDbCommand(str, conn)

        cmd.ExecuteNonQuery()

        Call tampil()

        Call kosong()

        Call aktif(False)

    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click

        Call aktif(True)

        If txtnoang.Text = "" Then

            MsgBox("Data Wajib di isi")

            Exit Sub

        Else

            cmd = New OleDbCommand("update anggota set Nama='" & txtnama.Text & "', Alamat='" & txtalamat.Text & "', Jenkel='" & Cmbjenkel.Text & "', Kelas='" & Cmbkelas.Text & "', TglDaftar=' " & datetgldaftar.Text & "' where Noang='" & txtnoang.Text & "'", conn)

            cmd.ExecuteNonQuery()

            MsgBox("Data Sudah Di Ubah")

            Call tampil()

            Call kosong()

        End If

        Edit.Text = "Update"

    End Sub

    Private Sub Cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cari.Click

        Dim Noang As String

        Noang = InputBox("Masukkan No Angka yang akan dicari", "Pencarian Data")

        str = "select * from anggota where Noang ='" & Noang & "'"

        cmd = New OleDbCommand(str, conn)

        dr = cmd.ExecuteReader

        dr.Read()

        If dr.HasRows Then

            txtnoang.Text = dr.GetString(0)

            txtnama.Text = dr.GetString(1)

            txtalamat.Text = dr.GetString(2)

            Cmbjenkel.Text = dr.GetString(3)

            Cmbkelas.Text = dr.GetString(4)

            Edit.Enabled = True

            Hapus.Enabled = True

        Else

            MsgBox("Data tidak ditemukan")

            Exit Sub

        End If

    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim ubah As Integer = Nothing

        ubah = DataGridView1.CurrentRow.Index

        With DataGridView1

            txtnoang.Text = .Item(0, ubah).Value

            txtnama.Text = .Item(1, ubah).Value

            txtalamat.Text = .Item(2, ubah).Value

            Cmbjenkel.Text = .Item(3, ubah).Value

            Cmbkelas.Text = .Item(4, ubah).Value

            datetgldaftar.Text = .Item(5, ubah).Value

        End With

    End Sub

End Class