Latihan_21_46110027

Deskripsi Form Latihan21

  Pada form latihan 21 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(r1)

Menghancurkan adapter yg telah dipakai
 rsty.Dispose()

Membuat nama lain pada datatabel
 r1.TableName = "01"
        r2.TableName = "02"

Membuat relationship
 ysn.Relations.Add(New DataRelation("03", ysn.Tables("01").Columns("notrans"), ysn.Tables("02").Columns("notrans")))
 
Dataset menjadi datasoure
K1.DataSource = ysn
        K1.DataMember = "01"

  
Even 
Load 

• Langkah-langkah Membuat Form 21

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

2.  Ketik nama Latihan_21  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_21_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 r1 As New DataTable
    Dim r2 As New DataTable

    Dim ysn As New DataSet

    Dim K1 As New BindingSource
    Dim K2 As New BindingSource


    Private Sub Latihan_21_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim chiko1 As New OleDb.OleDbDataAdapter
        Dim chiko2 As New OleDb.OleDbDataAdapter

        chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
        chiko1.Fill(r1)
        chiko1.Dispose()

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

        ysn.Tables.Add(r1)
        ysn.Tables.Add(r2)

        r1.TableName = "01"
        r2.TableName = "02"

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

        K1.DataSource = ysn
        K1.DataMember = "01"
        K2.DataSource = K1
        K2.DataMember = "03"

        r1_46110027.DataSource = K1
        r2_46110027.DataSource = K2

    End Sub

End Class
6.    Klik start debugging

7. Maka akan tampil hasil sbb: