Deskripsi_Latihan_22_36110054

Cara Membuat Progam/Apliaksi Latihan 22

Dengan Software Microsoft Visual Basic 2008

Form Latihan 22 terdapat dua object yaitu Data Grid View

Object  Data Grid View

Terdapat dua object DataGridView yang diberi nama Datagridview1_36110054 dan Datagridview2_36110054 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 22

Even

Latihan_22_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 From Seperti Gambar Berikut Berikut :

Langkah 4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_22_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 tabelRuslan1 As New DataTable

    Dim tabelRuslan2 As New DataTable

    Dim setRuslan As New DataSet

    Dim ruslan1 As New BindingSource

    Dim ruslan2 As New BindingSource

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

        Dim iruslan1 As New OleDb.OleDbDataAdapter

        Dim iruslan2 As New OleDb.OleDbDataAdapter

        iruslan1 = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", ruslan)

        iruslan1.Fill(tabelRuslan1)

        iruslan1.Dispose()

        iruslan2 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT * BARANG.HARGAJUAL AS JUMLAHSTANDAR, DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA AS JUMLAHREALISASI FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", ruslan)

        iruslan2.Fill(tabelRuslan2)

        iruslan2.Dispose()

        setRuslan.Tables.Add(tabelRuslan1)

        setRuslan.Tables.Add(tabelRuslan2)

        tabelRuslan1.TableName = "R1"

        tabelRuslan2.TableName = "R2"

        setRuslan.Relations.Add(New DataRelation("R3", setRuslan.Tables("R1").Columns("NOTRANS"), setRuslan.Tables("R2").Columns("NOTRANS")))

        ruslan1.DataSource = setRuslan

        ruslan1.DataMember = "R1"

        ruslan2.DataSource = ruslan1

        ruslan2.DataMember = "R3"

        DataGridView1_36110054.DataSource = ruslan1

        DataGridView2_36110054.DataSource = ruslan2

    End Sub

End Class