Membuat Program dengan Visual Basic dan Database Ms.Access
Penulisan ini dalam rangka pemenuhan nilai UAS RPL pada hari sabtu 17 November 2018, sesuai dengan analisa kebutuhan dan perancangan yang sudah digambarkan, berikut perancangan sistem + dan program yang saya buat.
1. Membuat database di Ms.Access
langkah - langkahnya adalah :
- buka Ms.Access
- buatlah sebuah database ( create new database), saya membuat database dengan judul DbBarang.accdb
- setelah database dibuat, buatlah sebuah tabel di dalam database tersebut. saya membuat tabel barang yang berisikan :
b. namabarang(text,50)
c. harga(number,long integer)
d. jenis(text,25)
tampilan designnya seperti dibawah ini :
hasilnya akan seperti ini :
table kedua saya membuat tabeluser yang berisikan :
a.ID(text,10)
b.password(text,20)
desainnya seperti ini :
dan hasil tabelnya seperti ini (saya sudah mengisi database dangan id devy dan password devy)
Database sudah siap dikoneksikan ke Visual basic.
Selanjutnya, kita akan membuat design form terlebih dahulu, langkah - langkahnya seperti berikut :
1. bukalah program visual basic
2. buatlah sebuah project, (saya tidak mengubah nama project tetap WebApplication1)
3. add web form pada project tesebut
4. webForm1 akan tampil untuk digunakan.
5. buatlah design form yang di inginkan.
pertama saya membuat desain form login dengan menggunakan 2 label, 2 textbox,1 button, 2 textbox saya beri nama idtxt dan passwordtxt sedangkan button saya beri nama btnlogin.
desain formnya seperti ini :
adapun hasil interface di web seperti ini :
ketika login sukses akan tampil msgbox login sukses seperti dibawah ini :
dan ketika kita klik ok maka akan tampil menu Utama, tetapi jika id dan password salah akan tampil pesan "login gagal"
source code login :
Public Class formlogin
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\UAS NEW\DbBarang.accdb"
Public Function akses() As OleDbConnection
Dim connect As New OleDbConnection(Koneksi)
connect.Open()
Return connect
End Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnlogin_Click(sender As Object, e As EventArgs) Handles btnlogin.Click
Dim login As String
login = "SELECT * from tabeluser where ID='" + IDtxt.Text + "' and password='" + passwordtxt.Text + "' "
Dim perintah As New OleDbCommand(login, akses)
Dim baca As OleDbDataReader = perintah.ExecuteReader
If baca.Read Then
MsgBox("login sukses")
Response.Redirect("WebForm1.aspx")
Else
MsgBox("login gagal")
IDtxt.Text = ""
passwordtxt.Text = ""
End If
End Sub
End Class
dan untuk menu Utama saya menggunakan 4 label, 5 textbox, 4 button pada webform1. 5 textbox nantinya akan saya beri nama kodebarangtxt, namabarangtxt, hargatxt, jenistxt, searchtxt. untuk 4 button yang digunakan saya beri nama btnreset, btnview, btnsave, btnsearch.
tampilan design formnya seperti dibawah ini :
hasil interface form di web seperti ini :
webform1 ini harus kita koneksikan ke database terlebih dahulu, caranya :
pada sebelah kiri form ada server Explorer > data connection > add connection > pilih database yang telah dibuat. tampilannya seperti dibawah ini :
koneksi selesai, kita buat 1 webform lagi untuk menampilkan database.
saya membuat dengan nama formtabelbarang.aspx. jika koneksi berhasil, kita pilihh tabel mana yang akan di tampilkan kita drag ke dalam webform tersebut, saya menampilkan tabelbarang.
webform1 dan formtabelbarang berhasil terkoneksi.
adapun source code nya sebagai berikut :
1. code untuk koneksi :
Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\UAS NEW\DbBarang.accdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim XReader As OleDb.OleDbDataReader
2. code untuk reset
fungsi reset adalah mengosongkan kembali seluruh textbox yang ada.
Protected Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
kodebarangtxt.Text = ""
namabarangtxt.Text = ""
hargatxt.Text = ""
jenistxt.Text = ""
searchtxt.Text = ""
kodebarangtxt.Focus()
End Sub
3. code untuk simpan :
Protected Sub Btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO TabelBarang values('" & kodebarangtxt.Text & "','" & namabarangtxt.Text & "','" & hargatxt.Text & "','" & jenistxt.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
End Class
Contoh : saya akan menyimpan data baju, kodebarang = BJ001, namabarang = DRESS BATIK, harga = 100ribu, jenis = Pakaian
ketika sudah di save akan tampil pesan sepeti dibawah ini :
4. code untuk view
fungsinya adalah untuk menampilkan database barang yang ada. ketika kita klik view pada webform1 ini, maka akan tampil formtabelbarang yang sudah kita buat, menapilkan database yang ada.
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("formtabelbarang.aspx")
End Sub
contoh : setelah kita menyimpan data baju seperti dijelaskan pada poin no 4 diatas kita bisa lihat apakah data tersebut masuk atau tidak ke dalam database dengan button view ini.
contoh : setelah kita menyimpan data baju seperti dijelaskan pada poin no 4 diatas kita bisa lihat apakah data tersebut masuk atau tidak ke dalam database dengan button view ini.
5. code untuk search
fungsinya adalah mencari dan menampilkan data yang diinginkan.
Protected Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
If Not Len(searchtxt.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM tabelbarang where kodebarang='" + searchtxt.Text + "'", objekKoneksi)
XReader = ocmd.ExecuteReader()
If XReader.HasRows Then
XReader.Read()
kodebarangtxt.Text = XReader("kodebarang")
namabarangtxt.Text = XReader("namabarang")
hargatxt.Text = XReader("harga")
jenistxt.Text = XReader("jenis")
Else
searchtxt.Text = "baju Tidak ada"
Exit Sub
End If
XReader.Close()
End If
End Sub
contoh : kita ingin mencari data baju didalam database, ketika kita ketik BJ001 maka akan ditampilkan data baju dengan kode BJ001
selain itu kita coba masukkan kode baju yang tidak ada di database, maka akan tampil msgbox seperti di
bawah ini :
