Latihan 29(APKOM)

Public Class LATIHAN029_46109040

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109040")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109040.Click

        If KB_46109040.Text.Length = 0 Then

            MsgBox("Tolong Masukkan Text Anda")

            Exit Sub

        End If

        If KODE_46109040.Text.Length = 0 Then

            MsgBox("Tolong Masukkan Text Anda")

            Exit Sub

        End If

        If NB_46109040.Text.Length = 0 Then

            MsgBox("Tolong Masukkan Text Anda")

            Exit Sub

        End If

        If Val(HJ_46109040.Text) = 0 Then

            MsgBox("Tolong Masukkan Text Anda")

            Exit Sub

        End If

        If Val(JB_46109040.Text) = 0 Then

            MsgBox("Tolong Masukkan Text Anda")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KODE_46109040.Text, 1, hubung)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("Data sudah ada tolong masukkan data baru")

            KB_46109040.Text = ""

            NB_46109040.Text = ""

            HJ_46109040.Text = ""

            JB_46109040.Text = ""

            Exit Sub

        End If

        Dim Perintah As New OleDb.OleDbCommand

        Perintah = New OleDb.OleDbCommand("update BARANG set KODEBARANG ='" & KODE_46109040.Text & "' , NAMABARANG = '" & NB_46109040.Text & "' , HARGAJUAL=" & Val(HJ_46109040.Text) & ", JUMLAHBARANG =" & Val(JB_46109040.Text) & " where KODEBARANG ='" & KB_46109040.Text & "'", hubung)

        hubung.Open()

        Perintah.ExecuteNonQuery()

        hubung.Close()

        Perintah.Dispose()

        KB_46109040.Text = ""

        KODE_46109040.Text = ""

        NB_46109040.Text = ""

        HJ_46109040.Text = ""

        JB_46109040.Text = ""

    End Sub

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

    End Sub

End Class