Latihan_21_46110006

Deskripsi Form Latihan 21 :

Form latihan 21 terdapat Satu  object yaitu  DataGriedView.

Object DataGridView :

Dalam form ini terdapat Dua objek DataGridView yang berfungsi untuk menampilkan semua data dari SQL.

Script unik :

Untuk membuat Connection  :      

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

Untuk membuat datatable :

 Dim fitri1 As New DataTable

 Dim fitri2 As New DataTable

Untuk membuat dataset :

Dim dss As New DataSet

Untuk membuat BindingSource :

 Dim data1 As New BindingSource

 Dim data2 As New BindingSource

Untuk membuat DataAdapter :

Dim ff1 As New OleDb.OleDbDataAdapter

Dim ff2 As New OleDb.OleDbDataAdapter

Untuk membuat DataRelasi :

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

        data1.DataSource = dss

        data1.DataMember = "01"

        data2.DataSource = data1

        data2.DataMember = "03"

        dtg1_46110006.DataSource = data1

        dtg2_46110006.DataSource = data2

Untuk mengisi data base kedalam datatable :

 ff1.Fill(fitri2)

 ff2.Dispose()

Even

   Load

Cara Untuk Membuat Form Latihan 21:

1.       Pertama Bukalah Project yang telah anda buat sebelumnya.

2.       Pilih dan  Buka Project dalam visual basic.

3.       Kemudian pilih Add Windows form

4.       Lalu add new item dan rename file “form.vb menjadi Latihan_21_46110006”

5.       Buatlah design form seperti pada gambar berikut ini :

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

 

Public Class Latihan_21_46110006

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

    Dim fitri1 As New DataTable

    Dim fitri2 As New DataTable

    Dim dss As New DataSet

    Dim data1 As New BindingSource

    Dim data2 As New BindingSource

   

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

        Dim ff1 As New OleDb.OleDbDataAdapter

        Dim ff2 As New OleDb.OleDbDataAdapter

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

        ff1.Fill(fitri1)

        ff1.Dispose()

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

        ff1.Fill(fitri2)

        ff2.Dispose()

        dss.Tables.Add(fitri1)

        dss.Tables.Add(fitri2)

        fitri1.TableName = "01"

        fitri2.TableName = "02"

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

        data1.DataSource = dss

        data1.DataMember = "01"

        data2.DataSource = data1

        data2.DataMember = "03"

        dtg1_46110006.DataSource = data1

        dtg2_46110006.DataSource = data2

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 21:

1.      Klik start debugging, Maka Secara otomatis akan muncul seperti di bawah ini :

2. Selamat mencoba