LATIHAN_15_36110042

Deskripsi Latihan_15_36110042

A.   Object dalam Latihan_15_36110042:

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

B.   Script Unique

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

C.   Even

Latihan_15_36110042_Load

Langkah-Langkah Latihan_15_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_15_36110042”

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

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

Public Class Latihan_15_36110042

    'deklarasi connection

    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")

    'deklarasi data table

    Dim DT As New DataTable

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

        Dim RR As New OleDb.OleDbDataAdapter

        'deklarasi adapter

        RR = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        'membersihkan data table

        DT.Rows.Clear()

        'mengisi database ke dalam data table

        RR.Fill(DT)

        'mengisi database ke dalam data table

        DGV_36110042.DataSource = DT

        'menghancurkan kendaraan(adapter) yang sudah dipakai

        RR.Dispose()

    End Sub

End Class

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