diskripsi dan prosedur latihan 19

19.20 |

DISKRIPSI LATIHAN 19

Latihan_19_36110030

A. Object dalam Latihan_19_36110030 :

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

B. Script Unique

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

C. Even

Latihan_19_36110030_Load

PROSEDUR PENYELESAIAN LATIHAN 19

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_19_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 Latihan1_19_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 Mastertransaksi.Notrans, Mastertransaksi.Tanggaltransaksi, Mastertransaksi.Jenistransaksi, Detailtransaksi.Kodebarang, Detailtransaksi.Unit, Detailtransaksi.Harga " & _

"From Detailtransaksi Inner Join Mastertransaksi On Detailtransaksi.Notrans = Mastertransaksi.Notrans", 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