Latihan 31A_36110055

PROSEDUR LATIHAN 31A:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu label (yang bertuliskan daftar barang).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan daftar barang.

Ø  Buat satu object button (Edit). Button edit digunakan untuk mengedit daftar barang pada form BARANG di Ms Access yang muncul pada datagridview. Jika button edit diklik, maka akan muncul form Latihan_31B_36001155. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public NotInheritable Class Latihan_31A_36001155

    Dim Masnur As New DataTable

    Dim Manarai As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

   

    Private Sub Edit_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36001155.Click

        If Latihan_31B_36001155.Visible = False Then

            Latihan_31B_36001155.Show()

        Else

            Latihan_31B_36001155.Activate()

        End If

        Latihan_31B_36001155.KBL_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("KODEBARANG").Value

        Latihan_31B_36001155.KB2_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("KODEBARANG").Value

        Latihan_31B_36001155.NB_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("NAMABARANG").Value

        Latihan_31B_36001155.JB_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("JUMLAHBARANG").Value

        Latihan_31B_36001155.HJ_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("HARGAJUAL").Value

    End Sub

    Private Sub Latihan_31A_36001155_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", Manarai)

        Masnur.Rows.Clear()

        adapter.Fill(Masnur)

        adapter.Dispose()

        Phangarhu_36001155.DataSource = Masnur

    End Sub

End Class