Latihan_20_46110055

Deskripsi Latihan 20

Pada form latihan 20 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneks i:
 Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter :
Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", connect)
             

Mengisi datatable ke database :
feby.Fill(fb)
        dgv46110055.DataSource = fb
     
Menghancurkan adapter yg telah dipakai :
feby.Dispose()


Even
Load

Cara  membuat Latihan 20:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 20”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.
7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_20_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim fb As New DataTable
    Private Sub Latihan_20_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", connect)
        fb.Rows.Clear()
        feby.Fill(fb)
        dgv46110055.DataSource = fb
        feby.Dispose()

    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :