web aplikasi vespa
Imports System.Data Imports System.Data.OleDb Public Class WebForm1 Inherits System.Web.UI.Page Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\LENOVO\Desktop\DBKORBAN.accdb" Dim objekKoneksi As New OleDb.OleDbConnection(koneksi) Dim Xreader As OleDb.OleDbDataReader Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles BTNLIHAT.Click Response.Redirect("WebFormView.aspx") End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles BTNSIMPAN.Click objekKoneksi.Open() Dim tambah As String = "INSERT INTO TableKorban values('" & TextNAMA.Text & "','" & TextALAMAT.Text & "','" & TextKELAMIN.Text & "','" & TextUSIA.Text & "','" ...