diskripsi dan prosedur latihan 20

19.20 |

DISKRIPSI LATIHAN 20

Latihan_20_36110030

A. Object dalam Latihan_20_36110030 :

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

B. Script Unique

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

C. Even

Latihan_20_36110030_Load

PROSEDUR PENYELESAIAN LATIHAN 20

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class Latihan_20_36110030

Dim Koneksi As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = E:\semester 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

Dim DtTable As New DataTable

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

Dim Adapter As New OleDb.OleDbDataAdapter

Adapter = New OleDb.OleDbDataAdapter("Select Barang.Kodebarang, Barang.Namabarang, Mastertransaksi.Notrans, Mastertransaksi.Tanggaltransaksi, Mastertransaksi.Jenistransaksi, Detailtransaksi.Unit, Detailtransaksi.Harga " & _

"From Barang Inner Join (Mastertransaksi Inner Join Detailtransaksi On Mastertransaksi.Notrans = Detailtransaksi.Notrans) On Barang.Kodebarang = Detailtransaksi.Kodebarang", Koneksi)

DtTable.Rows.Clear()

Adapter.Fill(DtTable)

DataGridView1.DataSource = DtTable

Adapter.Dispose()

End Sub

End Class

6. KEMUDIAN UJI PROGRAM

7. JIKA SUDAH BERHASIL Save program anda

8.SELESAI