Senin, 19 November 2018

UAS REKAYASA PERANGKAT LUNAK (RPL)





Data Source


Imports System.Data
Imports System.Data.OleDb


Public Class databarang
    Inherits System.Web.UI.Page

    Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\muhammad muslim\Documents\UAS RPL\anaotomotif.mdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO otomotifana values('" & namabarang.Text & "','" & jenisbarang.Text & "','" & jumlahbarang.Text & "','" & hargabarang.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Protected Sub View_Click(sender As Object, e As EventArgs) Handles View.Click
        Response.Redirect("TampilData.aspx")
    End Sub

    Protected Sub Entry_Click(sender As Object, e As EventArgs) Handles Entry.Click
        namabarang.Text = ""
        jenisbarang.Text = ""
        jumlahbarang.Text = ""
        hargabarang.Text = ""
        namabarang.Focus()

    End Sub
End Class

0 komentar:

Posting Komentar