latihan_21_46110023

Deskripsi Form Latihan 21

Pada form latihan 21 hanya terdapat 1 object yaitu object datagridview yang digunakan untuk menampilkan data berupa tabel. Pada form ini ada 2 object datagridview yang digunakan.

Langkah-langkah membuat dan menjalankan form 21

1.      Buat form baru dengan cara pilih project pada menu bar dihalaman form yang telah ada,  kemudian pilih add windows form:

 

2.      Ubah nama form sesuai dengan urutan latihan, dengan cara:

 

3.      Setelah itu buatlah design form seperti gambar:

 

4.      Ubahlah nama object pada form kecuali object label.

5.      Klik kanan pada form kemuadian pilih view code, lalu muncul halaman baru dan masukkan script seperti dibawah ini:

Public Class LATIHAN_21_46110023

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

    Dim dian1 As New DataTable

    Dim dian2 As New DataTable

    Dim ass As New DataSet

    Dim mega1 As New BindingSource

    Dim mega2 As New BindingSource

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

        Dim risky1 As New OleDb.OleDbDataAdapter

        Dim risky2 As New OleDb.OleDbDataAdapter

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

        risky1.Fill(dian1)

        risky1.Dispose()

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

        risky1.Fill(dian2)

        risky1.Dispose()

        ass.Tables.Add(dian1)

        ass.Tables.Add(dian2)

        dian1.TableName = "01"

        dian2.TableName = "02"

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

        mega1.DataSource = ass

        mega1.DataMember = "01"

        mega2.DataSource = mega1

        mega2.DataMember = "03"

        dgv1_46110023.DataSource = mega1

        dgv2_46110023.DataSource = mega2

    End Sub

End Class

6.      Setelah selesai membuat script, save file.

7.      Untuk menjalankan, klik star debugging

8.      Selesai

Script unique

Mengganti nama tabel

dian1.TableName = "01"

membuat data relationship

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

membuat source dan member bindingsource

mega1.DataSource = ass

mega1.DataMember = "01"

mega2.DataSource = mega1

mega2.DataMember = "03"

Even

Load