Latihan_24B_36110044 Aplikasi Komputer 4

Pada Form Latihan 24B terdapat tiga object  yaitu object Datagridview, Label,  dan TextBox

Object Datagridview

digunakan untuk menampilkan data yang telah disimpan.

Object label

sebanyak lima yang bertuliskan Detail transaksi, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang

Object textbox

sebanyak empat yang diberi nama Kode_36110044, Nama_36110044, Harga_36110044, Jumlah_36110044

Script Unique

Script unique dapat dilihat pada Prosedur Penyelesaian latihan ini

Even

Tiya()

Latihan_24B_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 object Datagridview, label, dan textbox 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_24B

Public Class Latihan_24B_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 Table As New DataTable

    Public Sub Tiya()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI where KODEBARANG = '" & KODE_36110044.Text & "'", CONECT)

        Table.Rows.Clear()

        adapter.Fill(Table)

        adapter.Dispose()

    End Sub

    Private Sub Latihan_24B_36110049_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DGV_36110044.DataSource = Table

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”