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. :)