diskripsi dan prosedur latihan 18

19.18 |

DISKRIPSI LATIHAN 18

Latihan_18_36110030

A. Object dalam Latihan_18_36110030 :

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

B. Script Unique

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

C. Even

Latihan_18_36110030_Load

PROSEDUR PENYELESAIAN LATIHAN 18

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_18_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_18_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, Detailtransaksi.Notrans, Detailtransaksi.Unit, Detailtransaksi.Harga " & _

"From Barang Inner Join Detailtransaksi 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