Latihan_18_36110044 Aplikasi Komputer 4

Form Latihan 18

Terdapat object DataGridView satu buah

Script Unique

Script Unique dapat dilihat pada Prosedur Penyelesaian Latihan ini.

Even

Latihan_18_36110044_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.      Buat design form dengan menggunakan DataGridView yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_18

Public Class Latihan_18_36110044

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\materi kuliah\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim TIYA As New OleDb.OleDbDataAdapter

        TIYA = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)

        DS.Rows.Clear()

        TIYA.Fill(DS)

        DGV_36110044.DataSource = DS

        TIYA.Dispose()

    End Sub

End Class

7.       Jalankan program dengan menggunakan  “start debugging”