LATIHAN_18_36110042

Deskripsi Latihan_18_36110042

A.   Object dalam Latihan_18_36110042

Hanya ada satu object dalam Latihan_18_36110042, yaitu object DataGridView sebanyak satu.

B.   Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Langkah-Langkah  Latihan_18_36110042.

C.   Even

Latihan_18_36110042_Load

Langkah-Langkah Latihan_18_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_18_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_18_36110042

    Dim CONECT As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0;data source=D:\AKUNTANSI 2010\SEMESTER 5\APKOM_4\APKOM 4 LENGKAP\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim DT As New DataTable

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

        Dim RR As New OleDb.OleDbDataAdapter

        RR = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", CONECT)

        DT.Rows.Clear()

        RR.Fill(DT)

        DGV_36110042.DataSource = DT

        RR.Dispose()

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 18.