Membuat Data Pasien Berbasis Web Di Visual Studio Dengan Microsoft Access

Pada postingan sekarang ini saya membuat aplikasi berbasis web menggunakan visual studio agar menjadi sebuah program yang dapat digunakan untuk menyimpan data yang diinput dan membuat data base di microsoft access  untuk data yang disimpan.

tampilam atau display dari aplikasi ini terdiri dari tampilan Id Pasien, Nama Pasien, Jenis Kelamin, Alamat, Telepon.

kemudian ada tombol Save, View, Find, Delete, Update

Tujuan nya aplikasi yang saya buat agar aplikasi yang di buat untuk normalisasi data - data untuk pasien.

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