Script Visual Basic Apkomp 4 PNUP - FORM29--

Public Class Form29_36109006
    Dim HARUN_36109006 As New OleDb.OleDbCommand
    Dim HARUN As New ByIskandar.CariKeDataBaseByIskandar
    Dim MUHHARUN As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
    Private Sub SIMPAN_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109006.Click
        If KODEBARANG2_36109006.Text.Length = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If NAMABARANG_36109006.Text.Length = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If Val(HARGAJUAL_36109006.Text) = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If Val(JUMLAHBARANG_36109006.Text) = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If KODEBARANG1_36109006.Text <> KODEBARANG2_36109006.Text Then

            HARUN.AturPencarianDataBase("Barang", "KodeBarang", KODEBARANG2_36109006.Text, 1, MUHHARUN)
            If HARUN.JumlanBaris > 0 Then
                MsgBox("Kode Barang Sudah Ada")
                Exit Sub
            End If
        End If

        HARUN_36109006 = New OleDb.OleDbCommand("update barang set kodebarang = '" & KODEBARANG2_36109006.Text & "', namabarang = '" & NAMABARANG_36109006.Text & "', hargajual = " & Val(HARGAJUAL_36109006.Text) & ", jumlahbarang = " & Val(JUMLAHBARANG_36109006.Text) & " where kodebarang = '" & KODEBARANG1_36109006.Text & "'", MUHHARUN)
        MUHHARUN.Open()
        HARUN_36109006.ExecuteNonQuery()
        MUHHARUN.Close()
        HARUN_36109006.Dispose()

        KODEBARANG1_36109006.Text = ""
        KODEBARANG2_36109006.Text = ""
        NAMABARANG_36109006.Text = ""
        HARGAJUAL_36109006.Text = ""
        JUMLAHBARANG_36109006.Text = ""
    End Sub

End Class