Latihan_22_46110027

Deskripsi Form Latihan22

  Pada form latihan 22 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique
Membuat koneksi
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
 

Membuat Adapter
Dim chiko1 As New OleDb.OleDbDataAdapter
        Dim chiko2 As New OleDb.OleDbDataAdapter
       
       
Mengisi database ke datatable
chiko1.Fill(p1)

Menghancurkan adapter yg telah dipakai
 rsty.Dispose()

Membuat nama lain pada datatabel
 p1.TableName = "01"
        p2.TableName = "02"

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

Dataset menjadi datasoure
rsty1.DataSource = dss
        rsty1.DataMember = "01"
 
Even 
Load 

• Langkah-langkah Membuat Form 22

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_22  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

   
         Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 
Public Class Latihan_22_46110027
    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim p1 As New DataTable
    Dim p2 As New DataTable

    Dim dss As New DataSet

    Dim rsty1 As New BindingSource
    Dim rsty2 As New BindingSource

    Private Sub latihan_22_045_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(p1)
        chiko1.Dispose()

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

        dss.Tables.Add(p1)
        dss.Tables.Add(p2)

        p1.TableName = "01"
        p2.TableName = "02"

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

        rsty1.DataSource = dss
        rsty1.DataMember = "01"
        rsty2.DataSource = rsty1
        rsty2.DataMember = "03"

        p1_46110027.DataSource = rsty1
        p2_46110027.DataSource = rsty2
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: