Latihan_22_46110024

DESKRIPSI FORM LATIHAN 22

Form Latihan  ini Terdapat satu object yaitu datagridview

Object Data Gridview

Terdapat  dua object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan. Dalam latihan ini datanya diambil data table dari file access

Script  Unique

Semua sript yang digunakan hampir sama pada latihan  13 dan 15

Even

Load

Langkah- Langkah Membuat Form Latihan  22

1.      Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

 

2.      Ganti nama sesuai dengan nama latihan anda ingingkan

  

3.      Lalu pilih object yang ada di latihan 22

 

4.      Buat form sampai menghasilkan form seperti dibawah

 5.  Pilih menu view, klik code

 

 6.  Masukkan script seperti berikut

Public Class Latihan_22_46110024

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim dede1 As New DataTable

    Dim dede2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource

    Dim ikha2 As New BindingSource

    Private Sub Latihan_22_46110024_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim chiko1 As New OleDb.OleDbDataAdapter

        Dim chiko2 As New OleDb.OleDbDataAdapter

        chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        chiko1.Fill(dede1)

        chiko1.Dispose()

        chiko2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)

        chiko2.Fill(dede2)

        chiko2.Dispose()

        dss.Tables.Add(dede1)

        dss.Tables.Add(dede2)

        dede1.TableName = "01"

        dede2.TableName = "02"

        dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

        ikha1.DataSource = dss

        ikha1.DataMember = "01"

        ikha2.DataSource = ikha1

        ikha2.DataMember = "03"

        DGV1_46110024.DataSource = ikha1

        DGV2_46110024.DataSource = ikha2

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  22

1. Klick Star Debugging 
2. Data akan secara otomatis muncul pada object datagridview