Latihan_26B_46110045

Deskripsi :
Dalam form Latihan 26B hanya terdapat tiga object yaitu DataGriedView, Label dan Textbox.


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

Object label :
Dalam form ini terdapat  5 buah object label yang bertuliskan Detail Transaksi, Kode Barang, Nama Barang, Harga jual dan Jumlah Barang.

Object textbox :
Dalam form ini terdapat  4 buah object textbox yang berada masing-masing di sebelah kanan label bernama Kode Barang, Nama Barang, Harga jual dan Jumlah Barang . Textbox ini berfungsi untuk menampilkan detail transaksi dari data yang ada di latihan 26A.

Langkah-langkah penyelesaian form 26B :
Masukkan rumus seperti ini
Public Class Latihan_26B_46110045

    Dim koneksi 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 robot As New DataTable

    Public Sub din(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        Dim shoell As String
        shoell = "SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
        adapter = New OleDb.OleDbDataAdapter(shoell, koneksi)
        adapter.Fill(robot)

        Dim dina As Integer = 0
        Dim dyna As Integer = 0
        For Each row As DataRow In robot.Rows
            dina += row("Unit")
            dyna += row("Jumlah")
        Next
        TU46110045.Text = dina
        TJ46110045.Text = dyna

    End Sub

    Private Sub latihan_26B_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgv46110045.DataSource = robot
    End Sub
End Class

Even :
Load.