Latihan_21_46110024

DESKRIPSI FORM LATIHAN 21

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

Membuat Relationship

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

Mengganti nama table

WATI.TableName = "01"

Membuat datasource dan datamember

ikha1.DataSource = dss

ikha1.DataMember = "01"

Even

Load

Langkah- Langkah Membuat Form Latihan 21

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 21

 

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_21_46110024

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

    Dim WATI As New DataTable

    Dim waty As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource

    Dim ikha2 As New BindingSource

    Private Sub Latihan_21_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(WATI)

        chiko1.Dispose()

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

        chiko1.Fill(waty)

        chiko2.Dispose()

        dss.Tables.Add(WATI)

        dss.Tables.Add(waty)

        WATI.TableName = "01"

        waty.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"

        DGV46110024.DataSource = ikha1

        DGV2_46110024.DataSource = ikha2

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 21

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