UAS Lab PB2

Penjelasan Program

program ini berguna untuk

1. memanipulasi data (add, find, update, delete)

2. melihat report

screenshoot

form1

form2

report

output report

sourcecode

Form1

Imports System.Data

Imports System.Data.OleDb

PublicClassForm1

Dim Koneksi AsString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\ \kuliah (akun tsi)\sm3\lab pb2\UAS\DBSessi6.accdb"

Dim objekKoneksi AsNew OleDb.OleDbConnection(Koneksi)

Private xReader AsOleDbDataReader

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub

PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click

Dim x AsString = InputBox("Masukan Kode Barang")

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim ocmd AsNew OleDb.OleDbCommand("SELECT * FROM TableBarang where KodeBarang = '" + x + "'", objekKoneksi)

        xReader = ocmd.ExecuteReader

If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("KodeBarang")

            TextBox2.Text = xReader("NamaBarang")

            TextBox3.Text = xReader("Harga")

            TextBox4.Text = xReader("Satuan")

Else

            MsgBox("Kode Barang Tidak Ada")

Exit Sub

EndIf

        xReader.Close()

        objekKoneksi.Close()

EndSub

PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim tambah AsString = "INSERT INTO TableBarang values ('"& TextBox1.Text &"', '"& TextBox2.Text &"', '"& TextBox3.Text &"', '"& TextBox4.Text &"')"

Dim oCmd = NewOleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox1.Focus()

EndSub

PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim Upd1 AsString = "Update TableBarang set NamaBarang ='"& TextBox2.Text &"' where KodeBarang ='"& TextBox1.Text &"'"

 

Dim oCmd = NewOleDbCommand(Upd1, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

EndSub

PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim dell1 AsString = "delete from TableBarang where KodeBarang='"& TextBox1.Text &"'"

Dim oCmd = NewOleDbCommand(dell1, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

EndSub

PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click

Form2.Show()

EndSub

EndClass