Deskripsi_Latihan_20_36110054

Cara Membuat Progam/Apliaksi Latihan 20

Dengan Software Microsoft Visual Basic 2008

Form Latihan 20 terdapat satu object yaitu Data Grid View

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom pada table BARANG yang terdapat data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli

Script Unique

 Dapat dilihat pada langkah -langkah penyelesaian latihan 20

Even

Latihan_20_36110054_Load

Langkah 1 :

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 :

   Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

        -          Lihat Gambar Berikut :

Langkah 3 :

 Rancanglah Form Seperti Gambar Berikut Berikut :

Langkah 4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

 Public Class Latihan_20_36110054

    Dim ruslan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabelruslan As New DataTable

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

        Dim iruslan As New OleDb.OleDbDataAdapter

        iruslan = 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", ruslan)

        tabelruslan.Rows.Clear()

        iruslan.Fill(tabelruslan)

        DataGridView1_36110054.DataSource = tabelruslan

        iruslan.Dispose()

    End Sub

End Class