Kamis, 05 Juli 2018

Contoh Program Visual Studio ASP.NET Terhubung Dengan Acces

Assalamualaikum warahmatullahi wabarakatuh

Dalam kesempatan kali ini saya akan mempresentasikan hasil dari tugas saya yg telah di buat sejak lama,program yang akan saya tampilkan adalah program visual studio menggunakan ASP.NET dan di sambungkan ke Acces.

Deskripsi program yang saya buat ini yaitu tentang data mahasiswa yg mana kita bisa menambahkan data mahasiswa,mengahapusnya,dan menampilkan data mahasiswa yang sudah tersimpan.

Langsung saja inilah hasil dari tugas saya dimana saya akan menjelaskan proses dari program saya

1.Pertama tama masukkan dahulu data yg akan kita simpan,nama,nim,jurusan,dan semester



2.Selanjutnya buat data yg ingin disimpan lalu klik tambah nanti akan tersimpan seperti gambar di bawah ini,data yg saya buat adalah seperti gambar dibawah ini


3.jika sudah tersimpan maka kita akan mencoba mencari data yg telah kita buat,dengan cara memasukkan nim dari mahasiswa tersebut,contohnya seperti gambar di bawah ini


4.Maka akan keluar data yg kita cari sebelumnya seperti gambar di bawah ini


Adapun source code dari program yang telah kita bahas tadi ada di bawah ini

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class dayat_161011400175
    Inherits System.Web.UI.Page
    Dim constring As String = ConfigurationManager.ConnectionStrings("SqlDataSource1").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim oTbl As New DataTable
    Dim xReader As OleDbDataReader

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sql As String = "INSERT INTO Data_Tersimpan VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox1.Focus()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Response.Redirect("Default.aspx")
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(TextBox2.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Data_Tersimpan where NIM=" + TextBox2.Text + "", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TextBox1.Text = xReader("Nama")
                TextBox4.Text = xReader("Semester")
                TextBox3.Text = xReader("Jurusan")

            Else
                TextBox1.Text = "Nama Mahasiswa Tidak ada"
                Exit Sub
            End If
            xReader.Close()

        End If
    End Sub
End Class

Alhamdulillah cukup sekian yang sudah saya sampaikan diatas jika ada dari kata saya yang salah atau yang tidak enak di hati pembaca saya mohon maaf,saya akhiri tulisan saya ini dengan mengucap hamdalah yg sebesar besarnya kepada allah swt dan rekan teman saya yang sudah membantu

Wassalamualaikum warahmatullahi wabarakatuh. :)