Latihan_21_46110020

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.

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_46110020”

5.      Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6.      Kemudian mulailah membuat form 21 dengan mengunakan DataGriedView.

7.       Lalu buatlah sesuai contoh latihan 21 dengan menggunkan 1 DataGrieView  maka akan menjadi seperti ini :

8.      Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_21_46110020

    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")

    Dim YUNI1 As New DataTable

    Dim YUNI2 As New DataTable

    Dim CCS As New DataSet

    Dim AYU1 As New BindingSource

    Dim AYU2 As New BindingSource

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

        Dim ASRIL1 As New OleDb.OleDbDataAdapter

        Dim ASRIL2 As New OleDb.OleDbDataAdapter

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

        ASRIL1.Fill(YUNI1)

        ASRIL1.Dispose()

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

        ASRIL1.Fill(YUNI2)

        ASRIL2.Dispose()

        CCS.Tables.Add(YUNI1)

        CCS.Tables.Add(YUNI2)

        YUNI1.TableName = "01"

        YUNI2.TableName = "02"

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

        AYU1.DataSource = CCS

        AYU1.DataMember = "01"

        AYU2.DataSource = AYU1

        AYU2.DataMember = "03"

        DGV1_46110020.DataSource = AYU1

        DGV2_46110020.DataSource = AYU2

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 21 :

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

2.      Form ini akan menampilkan 2 Data Barang dari SQL yaitu pada DataGriedView 1 menampilkan (Notrans, Tanggal transaksi, Jenis transaksi,dan Keterangan), sedangkan pada datagriedview ke dua menampilkan secara detail seperti tampilan yang di atas terhadap barang “TR001” yaitu ( ID, NoTrans, Kode Barang, Unit, dan Harga).

3.      Selamat Mencoba J

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 YUNI1 As New DataTable

 Dim YUNI2 As New DataTable

Untuk membuat dataset :

Dim CCS As New DataSet

Untuk membuat BindingSource :

Dim AYU1 As New BindingSource

Dim AYU2 As New BindingSource

Untuk membuat DataAdapter :

Dim ASRIL1 As New OleDb.OleDbDataAdapter

Dim ASRIL2 As New OleDb.OleDbDataAdapter

Untuk membuat DataRelasi :

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

        AYU1.DataSource = CCS

        AYU1.DataMember = "01"

        AYU2.DataSource = AYU1

        AYU2.DataMember = "03"

        DGV1_46110020.DataSource = AYU1

        DGV2_46110020.DataSource = AYU2

Untuk mengisi data base kedalam datatable :

ASRIL1.Fill(YUNI1)

ASRIL1.Dispose()

Even

  Load