LatihanForm_27

Form_27
Public Class LATIHAN27_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Maaf kode barang yang anda input sudah ada")
            KD_36109009.Text = ""
            Exit Sub
        ElseIf KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)
        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""
    End Sub
End Class