Latihan_21_46110055

Deskripsi Latihan21

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

Script Unique

Membuat koneksi :
Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter :
Dim fby1 As New OleDb.OleDbDataAdapter
Dim fby2 As New OleDb.OleDbDataAdapter
        
Mengisi database ke datatable :
fby1.Fill(feby1)

Menghancurkan adapter yg telah dipakai :
fby1.Dispose()

Membuat nama lain pada datatabel :
feby1.TableName = "01"
        feby2.TableName = "02"

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

Dataset menjadi datasoure :
fft1.DataSource = fb
        fft1.DataMember = "01"
 

Even 
Load

Cara  membuat Latihan 21:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 21”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :


Public Class Latihan_21_46110055
    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =E:\APKOM4\VB\Debug vs\Debug 2005\DataTransaksiJualBeli.accdb")

    Dim feby1 As New DataTable
    Dim feby2 As New DataTable

    Dim fb As New DataSet

    Dim fft1 As New BindingSource
    Dim fft2 As New BindingSource
    Private Sub Latihan_21_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fby1 As New OleDb.OleDbDataAdapter
        Dim fby2 As New OleDb.OleDbDataAdapter

        fby1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
        fby1.Fill(feby1)
        fby1.Dispose()

        fby1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
        fby1.Fill(feby2)
        fby2.Dispose()

        fb.Tables.Add(feby1)
        fb.Tables.Add(feby2)

        feby1.TableName = "01"
        feby2.TableName = "02"

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

        fft1.DataSource = fb
        fft1.DataMember = "01"
        fft2.DataSource = fft1
        fft2.DataMember = "03"

        dgv146110055.DataSource = fft1
        dgv246110055.DataSource = fft2
    End Sub
End Class


9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini