Latihan 29

Public Class Latihan29
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
If kb1070.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If

If kb2070.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If

If nb070.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
Exit Sub
End If

If Val(hj070.Text) = 0 Then
MsgBox("Harga jual sudah ada")
Exit Sub
End If

If Val(jb070.Text) = 0 Then
MsgBox("Jumlah barang sudah ada")
Exit Sub
End If

If kb1070.Text <> kb2070.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("Barang", "Kodebarang", kb2070.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
End If

Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG= '" & kb2070.Text & "', NAMABARANG= '" & nb070.Text & "', HARGAJUAL= " & Val(hj070.Text) & ", JUMLAHBARANG= " & Val(jb070.Text) & " WHERE KODEBARANG= '" & kb1070.Text & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()

kb1070.Text = ""
kb2070.Text = ""
nb070.Text = ""
hj070.Text = ""
jb070.Text = ""
End Sub
End Class