APLIKASI SEDERHANA WEB/ASP.NET MENGGUNAKAN MS.ACCES DAN VISUAL BASIC

 Sedikit Penjelasan,

Deskripsi Program

Program yang akan di bahas kali ini adalah program sederhana berbasis WebSite/ASP.NET menggunakan Database Ms.Acces dan Software Visual Basic, Sehingga database yang kita buat dapat tersambung ke Software Visual Basic dan hasil Run akan otomatis masuk ke dalam WEB.

Di dalam WEB kita dapat menambahkan atau menghapus data yang sudah ada di database yang kita buat sebelumnya.

Step 1 :

Kita Buat terlebih dahulu database di Ms.Acces

Cara :

a.       Buka Ms.Acces .

Klik New Folder => Format sesuai gambar di bawah => Lalu OK.

b.      Setelah itu buat Tabel atau Database sesuai kebutuhan

 Step 2 : 

Kita buka Visual Basic dan buat Project Baru

 

Lalu, pilih ASP.NET Web From Site => Masukan nama sesuai keinginan dan OK 

Step 3 : 

Untuk Connect database Acces yang kita buat tadi bisa ikuti gambar di bawah ini :

Setelah database terconnect dengan Visual Basic, Selanjutnya kita desain Web Form dengan bahan bahan yang digunakan :

1.      Label

2.      Text Box

3.      Button

            Contoh Form desain nya :

Step 4 :

Saatnya kita masukkan code atau script untuk menjalankan aplikasinya.

a.       Untuk Connect ke WEB

Source Code :

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Partial Class fajar_161011400161

    Inherits System.Web.UI.Page

    Dim transaksi As OleDbConnection

    Dim constring As String = ConfigurationManager.ConnectionStrings("fajarleovanConnectionString").ConnectionString

    Dim oConn As New OleDbConnection(constring)

    'Dim oTbl As New DataTable

    Dim xReader As OleDbDataReader

    Dim Sql As String

b.      Button Tambah

Source Code :

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim sql As String = "INSERT INTO CAKEHOME VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

c.       Button Cari

Source Code :

Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        If Not Len(TextBox1.Text) = 0 Then

            oConn.Close()

            oConn.Open()

            Dim ocmd As New OleDbCommand("SELECT * FROM CAKEHOME where namakue='" + TextBox1.Text + "'", oConn)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                TextBox2.Text = xReader("kodekue")

                TextBox3.Text = xReader("hargakue")

            Else

                TextBox2.Text = "Nama Paket Tidak Ada"

                Exit Sub

            End If

            xReader.Close()

        End If

    End Sub

d.      Button Tampilkan

Source Code :

Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Response.Redirect("table_ovan_161011400161")

    End Sub

e.       Button Hapus

Source Code :

Protected Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        Dim sql As String = "DELETE FROM CAKEHOME where namakue=('" & TextBox1.Text & "');"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

End Class

Step 5 :

Hasil Run yang otomatis masuk WEB

Ket :

1.  Untuk menambahkan , kita bisa isi semua yang di perlukan lalu klik Tambah. 
2.  Untuk mencari , kita bisa masukan satu nama kue yang ingin di cari , lalu klik Cari dan akan menampilkan kode dan harga kue yang di tuju.
3. Kegunaan Hapus adalah untuk menghapus data yang sudah pernah di input atau tambahkan.
4. Untuk melihat atau menampilkan data yang sudah pernah kita tambah adalah dengan klik tombol Tampilkan.