Latihan_21_36110044 Aplikasi Komputer 4

Form Latihan 21

Terdapat object  DataGridView dua buah

Script Unique

Script Unique dapat dilihat pada Prosedur Penyelesaian Latihan ini.

Even

Latihan_21_36110044_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.      Buat design form dengan menggunakan DataGridView yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_21

Public Class Latihan_21_36110044

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

    Dim TIYA1 As New DataTable

    Dim TIYA2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource

    Dim ikha2 As New BindingSource

    Private Sub Latihan_21_36110044_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(TIYA1)

        chiko1.Dispose()

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

        chiko1.Fill(TIYA2)

        chiko2.Dispose()

        dss.Tables.Add(TIYA1)

        dss.Tables.Add(TIYA2)

        TIYA1.TableName = "01"

        TIYA2.TableName = "02"

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

        ikha1.DataSource = dss

        ikha1.DataMember = "01"

        ikha2.DataSource = ikha1

        ikha2.DataMember = "03"

        DGV1_36110044.DataSource = ikha1

        DGV2_36110044.DataSource = ikha2

    End Sub

   

End Class

7.       Jalankan program dengan menggunakan  “start debugging”