Latihan_15_46110037

Deskripsi Form Latihan 15

Pada latihan 15 Hanya terdapat DataGridView.

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

Script Unique

*Mendeklarasikan (memperkenalkan) koneksi

Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

Hijau menandakan lokasi dari data acces yang menjadi sumber dari data yang akan dipindahkan ke dalam Datagridview

*Mendeklarasikan pengangkut alias dataadapter yang digunakan untuk membawa data tabel 

Dim inna As New OleDb.OleDbDataAdapter

inna = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

Hijau menandakan data yang dipilih untuk dipindahkan

*Mengisi database ke dalam data table 

 inna.Fill(DS)

*Membersihkan data table

 DS.Rows.Clear()

*Mengisi database ke dalam data table

DGV46110037.DataSource = DS
 

*Menghancurkan pengangkut (adapter) yang sudah dipakai

inna.Dispose()

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_15_46110037

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

 ----------------------------------------------------------------------------

    Private Sub Latihan_15_46110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim inna As New OleDb.OleDbDataAdapter

        inna = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        DS.Rows.Clear()

        inna.Fill(DS)

        DGV46110037.DataSource = DS

        inna.Dispose()

    End Sub

End Class

• Clilk Start Debugging untuk menjalankan form