STMIK ERESHA UNIV

UAS REKAYASA PERANGKAT LUNAK

Membuat aplikasi sederhana di vb 2012 dengan menggunakan ms. acces

program ini saya buat untuk memenuhi syarat salah satu UAS mata kuliah (RPL),sesuai dengan analisa kebutuhan dan perancangan sistem yan sudah di gamabarkan, berikut perancangan yang saya buat:
1. Membuat data base di ms acces

buka ms acces
pili create new data base
buatlah data base s
esuai rancangan aplikasi (saya buat 2 table)(
able pertama ( saya kasih nama DB_tugas
table kedua (say kasih nama DB_tugas1

setelah database dibuat, table pertama berisikan:

kode barang
nama barang
harga barang
stock barang

table kedua berisikan ;

nama barang
harga barang

tampilan designya seperti ini:

dan table kedua design nya sepeeti ini :

kemudian jika sudah membuat database,buatlah program di vb

buka visual studio 2012
pilih new project
beri nama project (saya tidak merubah nama project)(webaplication2)
kemudian buat lah desain yang sesuai kita rancang
label (4), textboxt (5) dan button (4). dan datagrid untuk pilihan tampilan (saya buat webform2)

maka setela di run hasilnya seperti ini

sekaran kita input code di masing-masing button
buton save (button1) code seperti dibawah ini :

code button SAVE

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO DB_tugas values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

code button view saya (button 3)

Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Response.Redirect("WebForm2.aspx")
End Sub

code button SEARCH

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(TextBox5.Text) = 0 Then
            objekKoneksi.Close()
            objekKoneksi.Open()
            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM DB_tugas where Kodebarang='" + TextBox5.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                TextBox1.Text = Xreader("Kodebarang")
                TextBox2.Text = Xreader("Namabarang")
                TextBox3.Text = Xreader("Hargabarang")
                TextBox4.Text = Xreader("Stockbarang")

            Else
                TextBox5.Text = "kode barang Tidak ada"
                Exit Sub
            End If
            Xreader.Close()

        End If

code button CLEAR

rotected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox5.Text = ""

        TextBox1.Focus()
    End Sub

setelah diinput code nya hasil runningya seperti ini:
(hasil running save) data yang kita save jika berhasil akan otomatis masuk ke database di ms acces.