Latihan_19_46110020

Deskripsi Form Latihan 19

Form latihan 19 terdapat Satu  object yaitu  DataGriedView.

Object DataGridView

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

Cara Untuk Membuat Form Latihan 19:

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

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

6.      Kemudian mulailah membuat form 19 dengan mengunakan DataGriedView.

7.       Lalu buatlah sesuai contoh latihan 20 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_19_46110020

    Dim CONECT 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 DS As New DataTable

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

        Dim CINTA As New OleDb.OleDbDataAdapter

        CINTA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)

        DS.Rows.Clear()

        CINTA.Fill(DS)

        DGV1_46110020.DataSource = DS

        CINTA.Dispose()

    End Sub

    Private Sub DGV1_46110020_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1_46110020.CellContentClick

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 19 :

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

2.      Form ini akan menampilkan Data Barang dri SQL.

3.      Selamat Mencoba J

Script unik

Untuk membuat Connection  :

Dim CONECT 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 DS As New DataTable

Untuk membuat DataAdapter :

Dim CINTA As New OleDb.OleDbDataAdapter

        CINTA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)

Untuk membersihkan datatable :

        DS.Rows.Clear()

Untuk mengisi data base kedalam datatable :

        CINTA.Fill(DS)

        DGV1_46110020.DataSource = DS

        CINTA.Dispose()

Even

  Load