Program Pendataan Barang dengan Database Ms.Access - Visual Basic

      Program ini menangani peminjaman dan pengembalian mobil dengan menggunakan Ms. Access sebagai databasenya. Yang saya buat ini dengan database ms.access nya dengan nama DBJUAL.MDB (Dengan format penyimpanan 2002-2003 / .mdb) dan disimpan didalam folder Debug (Buka nama_folder_programnya > nama_folder_program > bin > debug). Contoh punya saya dengan nama program VBnya BARANG_DB, jadi menyinpan Database nya buka folder program BARANG_DB > BARANG_DB > bin > Debug.

Design programnya : 

Atur popertinya :

Kode kodingnya (Scripnya) :

Public Class Form1

    Public SQLSTR As String

    Public KONEKSI As New OleDb.OleDbConnection

    Public CMD As New OleDb.OleDbCommand

    Public DA As New OleDb.OleDbDataAdapter

    Public DT As New DataTable

    Public KONEKSISTRING As String

    Public LOKASI As String

    Public SQL As String

    Public XTOTAL As Double

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

        LOKASI = System.Environment.CurrentDirectory

        KONEKSISTRING = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & LOKASI & "\DBJUAL.MDB"

        KONEKSI = New OleDb.OleDbConnection(KONEKSISTRING)

        KONEKSI.Open()

    End Sub

    Private Sub DGV()

        SQL = "SELECT * FROM JUAL"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVJUAL.DataSource = DT

    End Sub

    Private Sub BLANKFORM()

        TXTNOMOR.Text = ""

        TXTNAMA.Text = ""

        TXTHARGA.Text = 0

        TXTJUMLAH.Text = 0

        TXTTOTAL.Text = 0

        TXTNOMOR.Focus()

    End Sub

    Private Sub TXTNOMOR_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTNOMOR.Leave

        SQL = "SELECT * FROM JUAL WHERE NOMOR='" & TXTNOMOR.Text & "'"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVJUAL.DataSource = DT

        If DT.Rows.Count > 0 Then

            TXTNOMOR.Text = DGVJUAL.Rows.Item(DGVJUAL.CurrentRow.Index).Cells(1).Value

            TXTHARGA.Text = DGVJUAL.Rows.Item(DGVJUAL.CurrentRow.Index).Cells(2).Value

            TXTJUMLAH.Text = DGVJUAL.Rows.Item(DGVJUAL.CurrentRow.Index).Cells(3).Value

            TXTTOTAL.Text = DGVJUAL.Rows.Item(DGVJUAL.CurrentRow.Index).Cells(4).Value

        End If

        DGV()

    End Sub

    Private Sub TXTHARGA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTHARGA.TextChanged

        XTOTAL = Val(TXTHARGA.Text) * Val(TXTJUMLAH.Text)

        TXTTOTAL.Text = Format(XTOTAL, "#,#")

    End Sub

    Private Sub TXTJUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTJUMLAH.TextChanged

        XTOTAL = Val(TXTHARGA.Text) * Val(TXTJUMLAH.Text)

        TXTTOTAL.Text = Format(XTOTAL, "#,#")

    End Sub

    Private Sub BTBLANKFORM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTBLANKFORM.Click

        BLANKFORM()

    End Sub

    Private Sub BTSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSIMPAN.Click

        SQL = "SELECT * FROM JUAL WHERE NOMOR='" & TXTNOMOR.Text & "'"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVJUAL.DataSource = DT

        If DT.Rows.Count > 0 Then

            SQL = "UPDATE JUAL SET NOMOR='" & TXTNOMOR.Text & "',NAMA='" & TXTNAMA.Text & "',HARGA='" & TXTHARGA.Text & "',JUMLAH='" & TXTJUMLAH.Text & "',TOTAL='" & XTOTAL & "' WHERE NOMOR='" & TXTNOMOR.Text & "'"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        Else

            SQL = "INSERT INTO JUAL VALUES ('" & TXTNOMOR.Text & "','" & TXTNAMA.Text & "','" & TXTHARGA.Text & "','" & TXTJUMLAH.Text & "','" & TXTTOTAL.Text & "')"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        End If

        BLANKFORM()

        DGV()

    End Sub

    Private Sub BTHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTHAPUS.Click

        Dim X As String

        Dim XNOMOR As String

        XNOMOR = TXTNOMOR.Text

        X = MsgBox("Data NOMOR NOTA" & XNOMOR & "JADI DIHAPUS !", MsgBoxStyle.YesNo)

        If X = vbYes Then

            SQL = "DELETE FROM JUAL WHERE NOMOR='" & XNOMOR & "'"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        End If

        BLANKFORM()

        DGV()

    End Sub

    Private Sub BTCLOSE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCLOSE.Click

        Close()

    End Sub

End Class

Berbagi :