Deskripsi_Latihan_21_36110054

Cara Membuat Progam/Apliaksi Latihan 21

Dengan Software Microsoft Visual Basic 2008

Form Latihan 21 terdapat dua object  Data Grid View

Object  Data Grid View

Terdapat dua object DataGridView yang diberi nama datagridview1_36110054 dan datagridview2_36110054 yang 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 21

Even

Latihan_21_36110054_Load

Latihan 1 :

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Latihan 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 :

Latihan 4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_21_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_21_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 * from DETAILTRANSAKSI", 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