Latihan_25A_46110045

Deksripsi :
Dalam form Latihan 25A hanya terdapat tiga object yaitu DataGriedView, Label dan Button.

Object datagridview :
Dalam form ini terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object label :
Dalam form ini terdapat  sebuah object label yang bertuliskan daftar barang.

Object button :
Dalam form ini terdapat  sebuah object label yang bertuliskan detail transaksi.Button ini berfungsi untuk menampilkan detail transaksi dari data yang ada pada latihan 25A di latihan 25B.

Langkah-langkah penyelesaian form 25A :
Masukkan rumus seperti ini
Public Class Latihan_25A_46110045
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=C:\Users\Microsoft\Documents\VB\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim datatable As New DataTable
    Private Sub Latihan_25A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim shoell As New OleDb.OleDbDataAdapter
        shoell = New OleDb.OleDbDataAdapter("select*from barang", connect)
        datatable.Rows.Clear()
        shoell.Fill(datatable)
        shoell.Dispose()

        dgv46110045.DataSource = datatable

    End Sub

    Private Sub detail46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail46110045.Click
        If Latihan_25B_46110045.Visible = False Then
            Latihan_25B_46110045.Show()
        Else : Latihan_25B_46110045.Activate()
        End If

        Latihan_25B_46110045.KB46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_25B_46110045.NB46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_25B_46110045.HB46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_25B_46110045.JB46110045.Text = dgv46110045.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110045.din(Latihan_25B_46110045.KB46110045.Text)
    End Sub
End Class

Even :
Load
Buttonclick