LATIHAN 17 APKOM 4 D3B Akuntansi PNUP

A.    Object dalam Latihan_17_36110051 :

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

B.     Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_17_36110048.

C.     Even

Latihan_17_36110051_Load

 

PROSEDUR

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

 

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

 

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

 

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

 

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

 Public NotInheritable Class Latihan_17_36110051
    Dim aci As New DataTable
    Dim MELISSA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Latihan_17_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ISA As New OleDb.OleDbDataAdapter
        ISA = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", MELISSA)
        ISA.Fill(aci)
        ISA.Dispose()
        DGV36110051.DataSource = aci
    End Sub
End Class

6.      Setelah itu, jalankan programnya dengan mengklik icon “Start Debbuging”.