latihan-15_46110023

Deskripsi Form Latihan 15

Pada form latihan 15 hanya terdapat 1 object yaitu object datagridview yang digunakan untuk menampilkan data berupa tabel dari tabel ‘barang’ pada file access.

Langkah-langkah membuat dan menjalankan form 15

1.      Buat form baru dengan cara pilih project pada menu bar dihalaman form yang telah ada,  kemudian pilih add windows form:

2.      Ubah nama form sesuai dengan urutan latihan, dengan cara:

3.      Setelah itu buatlah design form seperti gambar:

4.      Ubahlah nama object pada form dengan memilih properties windows, nama object harus sama dengan nama yang ada pada script

5.      Klik kanan pada form kemuadian pilih view code, lalu muncul halaman baru dan masukkan script seperti dibawah ini:

Public Class LATIHAN_15_46110023

Dim ASAL As New OleDb.OleDbConnection("provider=microsoft.ace.ole db.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim OL As New DataTable

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

        Dim DIAN As New OleDb.OleDbDataAdapter

DIAN = New OleDb.OleDbDataAdapter("select * from barang", ASAL)

        OL.Rows.Clear()

        DIAN.Fill(OL)

        DGV_46110023.DataSource = OL

        DIAN.Dispose()

    End Sub

End Class

6.      Setelah selesai membuat script, save file.

7.      Untuk menjalankan, klik star debugging

8.      Selesai

Script unique

·         Dim ASAL As New OleDb.OleDbConnection("provider=microsoft .ace.ole db.12.0;data source= " & Application. StartupPath & "\datatransaksijualbeli.accdb") => script ini berfungsi untuk menjembatani data pada file access dengan form datagridview yang telah dibuat

·         Dim DIAN As New OleDb.OleDbDataAdapter => berfungsi untuk mendeklarasikan bahwa dian sebagai alat angkut data (data adapter)

·        DIAN = New OleDb.OleDbDataAdapter("select * from barang", ASAL)=>  berfungsi mentransfer data access dari tabel "barang" dan dimasukkan di datagridview.

·         DGV_46110023.DataSource = OL => untuk menampilkan isi datatable ke datagridview.

Even

Load