Pada postingan sekarang ini saya membuat aplikasi berbasis web menggunakan visual studio
yang di maksud nomalisasi data adalah untuk menghilangkan dan mengurangi redudansi data kedua.
Berikut adalah komponen pendukung dari aplikasi ini :
-text box
-label
-button
Hal yang awal itu membuat data base nya terlebih dahul di micooft access nyaa.
1. klik blank database
2. memberi nama file nya
3. jika ingin merubah penyimpanannya klik gambar folder
4. lalu klik create
1. klik view dan beri nama table name
2. klk ok
1. memberi nama field name sesuai yang di kerjaka
2. memberi data type sesuai yang di kerjakan
3. disini yang saya kejaa data type nya menggunakan short text semua
dan simpan database nya.
Setelah membuat database di microsoft access lanjut membuat project di visual basic.
di bawah ini tampilan aplikasi berbasis web yang saya kerjakan.
langkah awal klik new project dan pilih web lalu ok
setelah ok muncul tampilan seperti dibawah ini dan klik ok.
seperti ini tampilan setelah di klik.
untuk membuat project nya klik kanan pada WebApplication2
lalu muncul tampilan seperti dibawah ini
dan klik add pilih web from
lalu klik design di paling bawah lalu buat table sesuai yang di butuhkan.
disini saya membuat dua table.
klik table- klik insert table-klik ok
pada tampilan insert table bisa diatur sesuai project yang dibutuhkan
selesai membuat table selanjutnya membuat webformview nya.
lakukan yang sama seperti membuat table.
edit menjadi webfromview
dibawah ini tampilan webfromview yang saya buat.
cara nya : klik server explorer - klik kanan data connections
- pilih database yang sudah di buat di ms access tadi - klik database nya
-klik tables - drag database nya ke webfromview
dibawah ini tampilan add connection untuk memilih database yang sudah dibuat di ms access.
tampilannya seperti ini.
dan beri source code di webfromapplication
Imports System.Data
Imports System.Data.OleDb
Public Class WebFormdatapasien
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\dbsimpeg.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 Btnsave_Click(sender As Object, e As EventArgs) Handles Btnsave.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO datapasien values('" & TextID.Text & "','" & Textnama.Text & "','" & Textjenis.Text & "','" & Textalmt.Text & "','" & Texttlp.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
Protected Sub Btncari_Click(sender As Object, e As EventArgs) Handles Btncari.Click
If Not Len(TextID.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM datapasien where IDPasien='" + TextID.Text + "'", objekKoneksi)
Xreader = ocmd.ExecuteReader()
If Xreader.HasRows Then
Xreader.Read()
TextID.Text = Xreader("IDPasien")
Textnama.Text = Xreader("namapasien")
Textjenis.Text = Xreader("jeniskelamin")
Textalmt.Text = Xreader("alamat")
Texttlp.Text = Xreader("telepon")
Else
TextID.Text = "Nama Pegawai Tidak ada"
Exit Sub
End If
Xreader.Close()
MsgBox("Sukses")
End If
End Sub
Protected Sub Btnupdate_Click(sender As Object, e As EventArgs) Handles Btnupdate.Click
objekKoneksi.Open()
Dim Rubah As String = "UPDATE datapasien set alamat='" + Textalmt.Text + "' where IDPasien='" + Trim(TextID.Text) + "'"
Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
Protected Sub Btndelete_Click(sender As Object, e As EventArgs) Handles Btndelete.Click
TextID.Text = ""
Textnama.Text = ""
Textjenis.Text = ""
Textalmt.Text = ""
Texttlp.Text = ""
TextID.Focus()
End Sub
Protected Sub Btnview_Click(sender As Object, e As EventArgs) Handles Btnview.Click
Response.Redirect("WebFormview.aspx")
End Sub
End Class
lalu jalankan project nya dan tampilannya seperti ini
dan di bawah ini untuk mengetes button cari, button update, dan button view
dan selesai untuk project yang dibuat
