apkom4 latihan 33

latihan 33

Public Class latihan_33A_36109017

    Dim dt As New DataTable
    Dim uphy As New OleDb.OleDbCommand
    Dim kecoak As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub latihan_33A_36109017_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", kecoak)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click

        If latihan33B_36109017.Visible = False Then
            latihan33B_36109017.Show()
        Else
            latihan33B_36109017.Activate()
        End If
            End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        Dim apa As String = "delete * from barang where kodebarang = '" & dgv_36109017.CurrentRow.Cells("kodebarang").Value & "'"
        uphy = New OleDb.OleDbCommand(apa, kecoak)
        kecoak.Open()
        uphy.ExecuteNonQuery()
        kecoak.Close()
        uphy.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", kecoak)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        If latihan33B_36109017.Visible = False Then
            latihan33B_36109017.Show()
        Else
            latihan33B_36109017.Activate()
        End If
        latihan33B_36109017.b4_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan33B_36109017.bx1_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan33B_36109017.bx2_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan33B_36109017.bx4_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan33B_36109017.bx3_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
         End Sub
End Class