Membuat Aplikasi Berbasis Web Menggunakan Visual Studio 2012

Assalamualaikum Wr. Wb.

Saya disini akan membuat Aplikasi Web Menggunakan Visual Studio 2012 lalu menyimpannya di Excel.
Aplikasi ini saya buat untuk memenuhi tugas dari dosen yang mengajar mata kuliah Pemrograman Visual.

Komponen-komponen yang akan diigunakan untuk design :

1.       TextBox

2.       Button

3.       Table untuk membuat designnya

Kita langsung kelangkah-langkahnya saja ya...

1.       Langkah Pertama yaitu kita membuka Aplikasi Virtual Studio 2012

2.       Pada Tampilan klik File lalu pilih New, lalu pilih project

Seperti digambar

3. Beri nama Project yang akan dibuat seperti gambar dibawah ini
 

4. Jika muncul seperti gambar dibawah ini klik saja OK
 

 

 5. Selanjutnya di Solutions Explorer klk kanan pada nama project tadi lalu klik kanan pilih Add lalu pilih Web Form, lihat digambar

 6. Beri nama WebFormnya

 

 7. Selanjutnya akan tampil seperti gambar , klik saja Design dipojok kiri bawah

 8. Setelah itu akan tampil seperti gambar dibawah ini

 

9.       Buat judul design seperti gambar dibawah ini

 

10. Selanjutnya klik Table lalu pilih Insert Table, Sebelum di insert pastikan anda klik Tab pada keyboard untuk memulai barisan baru agar table nya dibawah judul

11.       Setelah itu buat design seperti pada gambar dibawah ini

Untuk membuat tulisan dibawahnya klik tab saja pada Keyboard. Lalu untuk membuat kotak dikanan tulisan itu memakai Toolbox, dibawahnya memkai Button
Pada ToolBox nama nya diganti dengan TextNama, TextAlamat, TextNo, dan TextHarga

12. Lalu pada Button diganti nama dengan Save, View, Find, Update, dan Delete

13.       Selanjutnya ID nya juga diganti dengan nama BtnSave, BtnView, BtnFind, BtnUpdate, BtnDelete

14.       Selanjutnya kita akan membuat Database nya dengan menggunakan Microsoft Acces
Buka Ms Acces lalu buat nama Database nya

15.       Pada kiri tampilan ada tulisan Table 1
lalu klik kanan dan pilih Design View

16.        Selanjutnya buat database nya seperti digambar

17. Lalu klik View , jika muncul perintah klik Yes.

18.       Tampilannya kan jadi seperti ini

19.   Selanjutnya kembali pada virtual studio
Sama seperti yang sebelumnya, pada Solution Explorer pada nama project klik kanan lalu pilih add lalu pilih Web Form

20.        Buat nama nya menjadi WebFormView

21. Akan tampil seperti ini lalu pilih design

22. Tampilannya akan seperti ini

   

23. Pada Server Explorer klik kanan lalu pilih Add Connection

24. Selanjutnya akan tampil seperti ini lalu klik browser untuk mencari file database nya

25. Pilih file database nya tadi lalu klik Open , setelah itu klik OK

 

26. Pada server Explorer akan muncul database yang tadi

       

27. Lalu pada TableLaundry klik lalu tarik pada design yang tadi , dan akan muncul seperti ini      

28.       Selanjutnya kembali pada design yang tadi

Lalu klik 2 kali pada Button Save

Lalu ketik codingannya seperti ini

Sebelum btnSave pada atasnya juga ada codingannya

Imports System.Data

Imports System.Data.OleDb

Public Class WebFormEvva

    Inherits System.Web.UI.Page

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ADMIN\Documents\DataLaundry.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 TableLaundry values('" & TextNama.Text & "','" & TextAlamat.Text & "','" & TextNo.Text & "','" & TextHarga.Text & "') "

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

30.        Lanjut ke Button View, klik 2 kali pada Button View lalu ketik codingannya

Protected Sub BtnView_Click(sender As Object, e As EventArgs) Handles BtnView.Click

        Response.Redirect("WebFormView.aspx")

    End Sub

31.       Masih sama klik 2 kali pada Button Find

    Protected Sub BtnFind_Click(sender As Object, e As EventArgs) Handles BtnFind.Click

        If Not Len(TextNama.Text) = 0 Then

            objekKoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TableLaundry where Nama='" + TextNama.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()

            If Xreader.HasRows Then

                Xreader.Read()

                TextNama.Text = Xreader("Nama")

                TextAlamat.Text = Xreader("Alamat")

                TextNo.Text = Xreader("No Tlp")

                TextHarga.Text = Xreader("Harga")

                BtnDelete.Enabled = True

                BtnUpdate.Enabled = True

            Else

                TextNama.Text = "Nama Laundry Tidak ada"

                Exit Sub

            End If

            Xreader.Close()

        End If

    End Sub

32.       Klik 2 kali pada Button Update

Protected Sub BtnUpdate_Click(sender As Object, e As EventArgs) Handles BtnUpdate.Click

        objekKoneksi.Open()

        Dim Rubah As String = "UPDATE TableLaundry set Nama='" + TextNama.Text + "' where Alamat='" + Trim(TextAlamat.Text) + "'"

        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

33.       Dan Terakhir Button Delete

    Protected Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click

        TextNama.Text = ""

        TextAlamat.Text = ""

        TextNo.Text = ""

        TextHarga.Text = ""

        TextNama.Focus()

    End Sub

End Class

34. Dan Ini hasil Run nya 

35. Selesai Dan Selamat Mencoba

Maaf jika masih ada kekurangan atau kesalahan karena disini saya juga masih belajar, dan dari sinilah saya belajar agar saya bisa.

Terimakasih