Cara Membuat Database Access 2016 untuk Input Data Mahasiswa Yang terkoneksi Dengan Visual Studio 2015 Berbasis Web
Assalamu'alaikum Wr.Wb
Dalam postingan kali ini saya akan memberi sedikit tutorial kepada teman-teman semua tentang bagaimana caranya membuat database access 2016 untuk input data mahasiswa yang terkoneksi dengan visual studio 2015.
saya akan menjelaskan contoh cara membuat database access 2016 untuk Input Data Mahasiswa yang terkoneksi dengan Visual Studio 2015 berbasis web. Aplikasi ini dapat melakukan penambahan data mahasiswa, menghapus data mahasiswa, dan menampilkan data mahasiswa yang sudah ada di database. Langsung saja kita mulai tutorialnya.
saya akan menjelaskan contoh cara membuat database access 2016 untuk Input Data Mahasiswa yang terkoneksi dengan Visual Studio 2015 berbasis web. Aplikasi ini dapat melakukan penambahan data mahasiswa, menghapus data mahasiswa, dan menampilkan data mahasiswa yang sudah ada di database. Langsung saja kita mulai tutorialnya.
Seperti gambar dibawah ini tampilan pertama saat membuka microsoft office access :
3. Maka akan tampil jendela seperti dibawah ini :
8. Lalu isikan struktur tabel yang baru saja dibuat, contohnya seperti diatas.
11. Pilih empty > klik OK
12. Setelah itu kita buat web form dengan cara klik kanan di solution exploler dibagian atas > add > pilih web form, lebih jelasnya lihat gambar diatas.
4. Membuat table dengan cara klik kanan di table lalu pilih design view
5. Lalu buatlah struktur table seperti diatas.
6. Ketikan field name yang diperlukan dan juga type datanya, ingat field name dan type data ditentukan berdasarkan kebutuhan.
7. Setelah itu klik kanan di table lalu pilih open, maka tampilannya seperti dibawah ini :
8. Lalu isikan struktur tabel yang baru saja dibuat, contohnya seperti diatas.
9. Setelah selesai membuat database accsess, lalu buka visual studio 2015
10. Karena kali ini kita akan membuat database yang terkoneksi ke visual studio berasis web, maka buatlah project seperti dibawah sini :
12. Setelah itu kita buat web form dengan cara klik kanan di solution exploler dibagian atas > add > pilih web form, lebih jelasnya lihat gambar diatas.
13. Setelah berhasil membuat web form, kita pilih GridView di toolbox
14. Lalu untuk mengsetting agar database terkoneksi ke VB, pilih new data source
15. Pilih SQL database lalu klik ok
16. Selanjutnya klik new connection > klik browser dan cari database yang telah disimpan > klik ok > klik next > klik next lagi > klik next > lalu finish.
17. Dan tampilan untuk sementara seperti gambar diatas ini
18. Lalu kita coba run terlebih dahulu dan hasilnya akan seperti gambar diatas ini
19. Setelah itu kita membuat web form baru lagi untuk designnya
20. Dan ini hasil design web form sederhana saya seperti gambar diatas
21. Setelah selesai membuat design web form, tinggal kita masukan source code/scriptnya
22. Design web form diatas menggunakan 5 label, 5 textbox, dan 5 button.
23.
*membuat koneksi database
Imports System.Data
Imports System.Data.OleDb
Public Class FromTambahData
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Users\ASUS\Documents\Mahasiswa.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Private xReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End SubInherits System.Web.UI.Page
End Sub
* untuk tombol tampilkan
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Response.Redirect("WebForm1_Adji161011401382.aspx")
End Sub
* untuk tombol simpan
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Mahasiswa values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
* untuk tombol cari
Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
WebForm1_Adji161011401382.Show()
End Sub
* untuk tombol hapus
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
TextBox1.Focus()
End Sub
* untuk tombol keluar
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
24. Hasil Run
ketika diklik tombol tampilkan akan muncul seperti gambar diatas
setelah ditambah hasilnya seperti gambar diatas ini.
Dan ini flowchartnya :
sekian tutorial yang saya buat ini, mohon maaf bila masih ada kekurangan, semoga bermanfaat :) .
Wassalamu'alaikum Wr.Wb
16. Selanjutnya klik new connection > klik browser dan cari database yang telah disimpan > klik ok > klik next > klik next lagi > klik next > lalu finish.
17. Dan tampilan untuk sementara seperti gambar diatas ini
19. Setelah itu kita membuat web form baru lagi untuk designnya
20. Dan ini hasil design web form sederhana saya seperti gambar diatas
21. Setelah selesai membuat design web form, tinggal kita masukan source code/scriptnya
22. Design web form diatas menggunakan 5 label, 5 textbox, dan 5 button.
23.
*membuat koneksi database
Imports System.Data
Imports System.Data.OleDb
Public Class FromTambahData
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Users\ASUS\Documents\Mahasiswa.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Private xReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End SubInherits System.Web.UI.Page
End Sub
* untuk tombol tampilkan
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Response.Redirect("WebForm1_Adji161011401382.aspx")
End Sub
* untuk tombol simpan
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Mahasiswa values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
* untuk tombol cari
Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
WebForm1_Adji161011401382.Show()
End Sub
* untuk tombol hapus
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
TextBox1.Focus()
End Sub
* untuk tombol keluar
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.Close()
End Sub
24. Hasil Run
Kita coba untuk menambahkan datanya lalu klik tombol simpan
Dan ini flowchartnya :
sekian tutorial yang saya buat ini, mohon maaf bila masih ada kekurangan, semoga bermanfaat :) .
Wassalamu'alaikum Wr.Wb
Komentar
Posting Komentar