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 & "','" & TextJENIS.Text & "','" & TextANGGOTA.Text & "')"
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Selamat Anda Sukses Gan")
End Sub
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles BTNPERUBAHAN.Click
objekKoneksi.Open()
Dim Rubah As String = "Update TableKorban set JENISKORBAN='" + TextJENIS.Text + "' where NAMAKORBAN='" + (TextNAMA.Text) + "'"
Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses Gan")
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles BTNCARI.Click
If Not Len(TextNAMA.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TableKorban where NAMAKORBAN='" + TextNAMA.Text + "'", objekKoneksi)
Xreader = ocmd.ExecuteReader()
If Xreader.HasRows Then
Xreader.Read()
TextNAMA.Text = Xreader("NAMAKORBAN")
TextALAMAT.Text = Xreader("ALAMAT")
TextKELAMIN.Text = Xreader("JENISKELAMIN")
TextUSIA.Text = Xreader("USIAKORBAN")
TextJENIS.Text = Xreader("JENISKORBAN")
TextANGGOTA.Text = Xreader("TOTALANGGOTAKELUARGA")
BTNPERUBAHAN.Enabled = True
Else
TextNAMA.Text = "Nama Korban Tidak ada"
Exit Sub
End If
Xreader.Close()
End If
End Sub
Protected Sub BTNHAPUS_Click(sender As Object, e As EventArgs) Handles BTNHAPUS.Click
TextNAMA.Text = ""
TextALAMAT.Text = ""
TextKELAMIN.Text = ""
TextUSIA.Text = ""
TextJENIS.Text = ""
TextANGGOTA.Text = ""
End Sub
End Class
Komentar
Posting Komentar