Latihan_22_46110006

Deskripsi Form Latihan_22_46110006

Pada form latihan 22 hanya ada 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel.

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 d1 As New DataTable

Membuat data set

Dim dss As New DataSet

Membuat data binding source

Dim ik1 As New BindingSource

Membuat adapter

Dim ch1 As New OleDb.OleDbDataAdapter

Mengisi data base kedalam data tabel

ch1.Fill(d1)

Menghancurkan adapter yang sudah dipakai

ch1.Dispose()

Menambahkan data tabel kedalam data set

 dss.Tables.Add(d1)

Membuat nama lain pada data tabel

 d1.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

ik1.DataSource = dss

ik1.DataMember = "01"

Binding source menjadi data source pda datagridview

  DTG1_46110006.DataSource = ik1

Even

Load

Cara Membuat From Latihan 22 :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_22_46110006”

3. Buatlah desain seperti berikut :

 

                      4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_22_46110006vb

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

    Dim d1 As New DataTable

    Dim d2 As New DataTable

    Dim dss As New DataSet

    Dim ik1 As New BindingSource

    Dim ik2 As New BindingSource

    Private Sub Latihan_22_46110006vb_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim ch1 As New OleDb.OleDbDataAdapter

        Dim ch2 As New OleDb.OleDbDataAdapter

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

        ch1.Fill(d1)

        ch1.Dispose()

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

        ch2.Fill(d2)

        ch2.Dispose()

        dss.Tables.Add(d1)

        dss.Tables.Add(d2)

        d1.TableName = "01"

        d2.TableName = "02"

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

        ik1.DataSource = dss

        ik1.DataMember = "01"

        ik2.DataSource = ik1

        ik2.DataMember = "03"

        DTG1_46110006.DataSource = ik1

        DTG2_46110006.DataSource = ik2

    End Sub

End Class.

                      -    Klik STAR DEBUGING,lalu muncul form seperti berikut:

                      -    Selamat Mencoba.