Script Visual Basic Apkomp 4 PNUP - FORM27-

Public Class Form27_36109006
    Dim harun As New ByIskandar.CariKeDataBaseByIskandar
    Dim hrn As New OleDb.OleDbCommand
    Dim muhharun As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109006.Click
        If kb_36109006.Text.Length = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If nb_36109006.Text.Length = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If Val(hj_36109006.Text) = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        If Val(jb_36109006.Text) = 0 Then
            MsgBox("Isi yang kosong")
            Exit Sub
        End If

        harun.AturPencarianDataBase("Barang", "KodeBarang", kb_36109006.Text, 1, muhharun)
        If harun.JumlanBaris > 0 Then
            MsgBox("kode barang sudah ada")
            Exit Sub
        End If

        hrn = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36109006.Text & "','" & nb_36109006.Text & "'," & Val(hj_36109006.Text) & "," & Val(jb_36109006.Text) & ")", muhharun)
        muhharun.Open()
        hrn.ExecuteNonQuery()
        muhharun.Close()
        hrn.Dispose()

        kb_36109006.Text = ""
        nb_36109006.Text = ""
        hj_36109006.Text = ""
        jb_36109006.Text = ""
    End Sub

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

    End Sub


End Class