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