Latihan_21_46110001

  Latihan_21_46110001

A.    Object dalam Latihan_21_46110001:

1                      1.    Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel.

                       2.      Script Unique

Ø  Membuat koneksi

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

Ø  Membuat data tabel

Dim BAHRI1 As New DataTable

Dim BAHRI2 As New DataTable

Ø  Membuat data set

Dim dss As New DataSet

Ø  Membuat data binding source

Dim BAHRI3 As New BindingSource

   Dim BAHRI4 As New BindingSource

Ø  Membuat adapter

Dim chiko1 As New OleDb.OleDbDataAdapter

Dim chiko2 As New OleDb.OleDbDataAdapter

Ø  Mengisi data base kedalam data tabel

chiko1.Fill(BAHRI1)

Ø  Menghancurkan adapter yang sudah dipakai

chiko1.Dispose()

Ø  Menambahkan data tabel kedalam data set

dss.Tables.Add(BAHRI1)

dss.Tables.Add(BAHRI2)

Ø  Membuat nama lain pada data tabel

BAHRI1.TableName = "01"

BAHRI2.TableName = "02"

Ø  Membuat relationship

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

Ø  Saat data set menjadi data source

BAHRI3.DataSource = dss

BAHRI3.DataMember = "01"       

BAHRI4.DataSource = BAHRI3

BAHRI4.DataMember = "03"

Ø  Binding source menjadi data source pda datagridview

DGF21A_46110001.DataSource = BAHRI3

DGF21B_46110001.DataSource = BAHRI4

                      3.     Even

Latihan_21_46110001Load

B.    Cara penyelesaian

• Langkah pertama dalam membuat form/ latihan 21 ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

• Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

 

• Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

• atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

• Buatlah form seperti gambar dibawah ini,

• Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_21_46110001

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

    Dim BAHRI1 As New DataTable
    Dim BAHRI2 As New DataTable

    Dim dss As New DataSet

    Dim BAHRI3 As New BindingSource
    Dim BAHRI4 As New BindingSource

    Private Sub latihan_21_46110001_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(BAHRI1)
        chiko1.Dispose()

        chiko1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
        chiko1.Fill(BAHRI2)
        chiko2.Dispose()

        dss.Tables.Add(BAHRI1)
        dss.Tables.Add(BAHRI2)

        BAHRI1.TableName = "01"
        BAHRI2.TableName = "02"

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

        BAHRI3.DataSource = dss
        BAHRI3.DataMember = "01"
        BAHRI4.DataSource = BAHRI3
        BAHRI4.DataMember = "03"

        DGF21A_46110001.DataSource = BAHRI3
        DGF21B_46110001.DataSource = BAHRI4
    End Sub

End Class

• langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah in