BPN Project with VB.NET 2005 & Ms.Access 2007

Langkah pertama saya sudah siapkan data base dengan menggunakan Ms.Access 2007 yang kemudian akan dikoneksikan dengan VB.NET 2005 agar mempermudah penginputan data untuk Kantor Badan Pertanahan Nasional.

Project ini saya buat untuk BPNRI Kabupaten Bogor, dibuat pada tanggal 28 Desember 2011.

Codingnya bisa dilihat sebagai berikut :

Imports System.Data.OleDb
Public Class Form1
    Dim conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim cmd As System.Data.OleDb.OleDbCommand
    Dim rd As System.Data.OleDb.OleDbDataReader
    Dim sqledit As String

    Sub Koneksi()
        str = "provider=microsoft.ace.oledb.12.0;data source=db1.accdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
    Sub Kosongkan()
        TWarkah.Text = ""
        THak.Text = ""
        TDesa.Text = ""
        TKecamatan.Text = ""
        TTahun.Text = ""
        TUrut.Text = ""
        TRak.Text = ""
        TBlock.Text = ""
        TWarkah.Focus()
    End Sub
    Sub TampilJenis()
        TJhak.Items.Clear()
        cmd = New OleDbCommand("select distinct Jenis Hak from Data", conn)
        rd = cmd.ExecuteReader
        While rd.Read
            TJhak.Items.Add(rd.GetString(0))
        End While
    End Sub
    Sub TampilkanData()
        cmd = New OleDbCommand("Select * from Data", conn)
        rd = cmd.ExecuteReader
        da = New OleDbDataAdapter("Select * from Data", conn)
        ds = New DataSet
        da.Fill(ds, "Data")
        DGV.DataSource = ds.Tables("Data")
        DGV.ReadOnly = True
    End Sub
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapus.Click
        If TWarkah.Text = "" Then
            MsgBox("Isi nomor warkah terlebih dahulu")
            TWarkah.Focus()
            Exit Sub
        Else
        End If
        If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
        End If
        cmd = New OleDbCommand("Delete * from Data where Nomor Warkah='" & TWarkah.Text & "'", conn)
        cmd.ExecuteNonQuery()
        Call Kosongkan()
        Call TampilkanData()
        Exit Sub
    End Sub

    Private Sub DVG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilkanData()
        TJhak.Items.Add("Hak Milik")
        TJhak.Items.Add("Hak Pakai")
        TJhak.Items.Add("Hak Guna Bangunan")
        TJhak.Items.Add("Hak Guna Usaha")
    End Sub

    Private Sub cmdSimpan_(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSimpan.Click
        If TWarkah.Text = "" Or THak.Text = "" Or TJhak.Text = "" Or TDesa.Text = "" Or TKecamatan.Text = "" Or TTahun.Text = "" Or TUrut.Text = "" Or TRak.Text = "" Or TBlock.Text = "" Then
            MsgBox("Maaf Data Belum Lengkap")
            Exit Sub
        Else
            cmd = New OleDbCommand("Select * from Data where Nomor Warkah='" & TWarkah.Text & "", conn)
            rd = cmd.ExecuteReader()
            rd.Read()
            If Not rd.HasRows Then
                Dim sqltambah As String = "Insert into Data(Nomor Warkah,Nomor Hak,Jenis Hak,Desa,Kecamatan, Tahun, Nomor Urut Bundel, Nomor Lemari Rak, Blok) values " & _
                                      "('" & TWarkah.Text & "','" & THak.Text & "','" & TJhak.Text & "','" & TDesa.Text & "','" & TKecamatan.Text & "','" & TTahun.Text & "','" & TUrut.Text & "','" & TRak.Text & "','" & TBlock.Text & "')"
                cmd = New OleDbCommand(sqltambah, conn)
                cmd.ExecuteNonQuery()
                Call TampilkanData()
                TWarkah.Clear()
                THak.Clear()
                TDesa.Clear()
                TKecamatan.Clear()
                TTahun.Clear()
                TUrut.Clear()
                TRak.Clear()
                TBlock.Clear()
                TJhak.Focus()
                TWarkah.Focus()
                Call Kosongkan()
            Else
                Dim sqledit As String = "Update Data set " & _
                "Nomor Warkah='" & TWarkah.Text & "', " & _
                "Nomor Hak='" & THak.Text & "', " & _
                "Jenis Hak='" & TJhak.Text & "', " & _
                "Desa='" & TDesa.Text & "', " & _
                "Kecamatan='" & TKecamatan.Text & "', " & _
                "Tahun='" & TUrut.Text & "', " & _
                "Nomor Urut Bundel='" & TUrut.Text & "', " & _
                "Nomor Lemari Rak='" & TRak.Text & "', "
                cmd = New OleDbCommand(sqledit, conn)
                cmd.ExecuteNonQuery()
                Call TampilkanData()
                TWarkah.Clear()
                THak.Clear()
                TDesa.Clear()
                TKecamatan.Clear()
                TTahun.Clear()
                TUrut.Clear()
                TRak.Clear()
                TBlock.Clear()
                TWarkah.Focus()
            End If
        End If
    End Sub

    Private Sub BTNBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBatal.Click
        Call Kosongkan()
    End Sub

    Private Sub BTNTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTutup.Click
        Me.Close()
    End Sub

    Private Sub TWarkah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TWarkah.KeyPress
        If e.KeyChar = Chr(13) Then THak.Focus()
    End Sub

    Private Sub TWarkah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TWarkah.TextChanged

    End Sub

    Private Sub THak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles THak.KeyPress
        If e.KeyChar = Chr(13) Then TDesa.Focus()
    End Sub

    Private Sub THak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THak.TextChanged

    End Sub

    Private Sub TDesa_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TDesa.KeyPress
        If e.KeyChar = Chr(13) Then TKecamatan.Focus()
    End Sub

    Private Sub TDesa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TDesa.TextChanged

    End Sub

    Private Sub TKecamatan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TKecamatan.KeyPress
        If e.KeyChar = Chr(13) Then TTahun.Focus()
    End Sub

    Private Sub TKecamatan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKecamatan.TextChanged

    End Sub

    Private Sub TTahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TTahun.KeyPress
        If e.KeyChar = Chr(13) Then TUrut.Focus()
    End Sub

    Private Sub TTahun_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTahun.TextChanged

    End Sub

    Private Sub TUrut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TUrut.KeyPress
        If e.KeyChar = Chr(13) Then TRak.Focus()
    End Sub

    Private Sub TUrut_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUrut.TextChanged

    End Sub

    Private Sub TRak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TRak.KeyPress
        If e.KeyChar = Chr(13) Then TBlock.Focus()
    End Sub

    Private Sub TRak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TRak.TextChanged

    End Sub

    Private Sub TBlock_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBlock.KeyPress
        If e.KeyChar = Chr(13) Then BTNSimpan.Focus()
    End Sub

    Private Sub TBlock_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBlock.TextChanged

    End Sub

    Private Sub DGV_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellContentClick
        Koneksi()
        da = New OleDbDataAdapter("Select * from Data", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Data")
        DGV.DataSource = (ds.Tables("Data"))
    End Sub
End Class

Dengan hasil outputnya :

Selamat mencoba sobat blogger :)