Latihan_19_36110044 Aplikasi Komputer 4

Form Latihan 19

Terdapat object  DataGridView satu buah

Script Unique

Script Unique dapat dilihat pada Prosedur Penyelesaian Latihan ini.

Even

Latihan_19_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_19

Public Class Latihan_19_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_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)

        DS.Rows.Clear()

        TIYA.Fill(DS)

        DGV_36110044.DataSource = DS

        TIYA.Dispose()

    End Sub

    Private Sub DGV_36110044_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_36110044.CellContentClick

    End Sub

End Class

7.       Jalankan program dengan menggunakan  “start debugging”