LATIHAN 15 APKOM 4 D3B Akuntansi PNUP

Object dalam Latihan_15_36110051 :

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

B.     Script Unique

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

C.     Even

Latihan_15_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_15_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_15_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 BARANG", MELISSA)
        ISA.Fill(aci)
        ISA.Dispose()
        DGV36110051.DataSource = aci
    End Sub
End Class

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