Latihan_21_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 21

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_21_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada Data Grid View sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_21_46110043

  

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

    Dim TRI1 As New DataTable

    Dim TRI2 As New DataTable

    Dim dss As New DataSet

    Dim BONI1 As New BindingSource

    Dim BONI2 As New BindingSource

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

        Dim ATAR1 As New OleDb.OleDbDataAdapter

        Dim ATAR2 As New OleDb.OleDbDataAdapter

        ATAR1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        ATAR1.Fill(TRI1)

        ATAR1.Dispose()

        ATAR1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        ATAR1.Fill(TRI2)

        ATAR2.Dispose()

        dss.Tables.Add(TRI1)

        dss.Tables.Add(TRI2)

        TRI1.TableName = "01"

        TRI2.TableName = "02"

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

        BONI1.DataSource = dss

        BONI1.DataMember = "01"

        BONI2.DataSource = BONI1

        BONI2.DataMember = "03"

        NITA1_46110043.DataSource = BONI1

        NITA2_46110043.DataSource = BONI2

    End Sub

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_21

Pada Form Latihan_21 pada gambar diatas hanya terdapat 1 Object DataGridView.

Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan datatabel yang dinginkan .

Script Unique

Membuat koneksi

Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

Membuat data tabel

Dim TRI1 As New DataTable

Membuat data set

 Dim dss As New DataSet

Membuat data binding source

Dim BONI1 As New BindingSource

Membuat adapter

Dim ATAR1 As New OleDb.OleDbDataAdapter

Mengisi data base kedalam data tabel

ATAR1.Fill(TRI2)

Menghancurkan adapter yang sudah dipakai

ATAR2.Dispose()

Menambahkan data tabel kedalam data set

dss.Tables.Add(TRI1)

Membuat nama lain pada data tabel

TRI1.TableName = "01"

Membuat relationship

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

Saat data set menjadi data source

BONI1.DataSource = dss

BONI1.DataMember = "01"         

Binding source menjadi data source pda datagridview

NITA1_46110043.DataSource = BONI1

Even

Load