Latihan 38B_46110045

Pada form latihan 38b hanya ada satu object yaitu Data Grid View.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

Even

Load

 Script Unique

Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini

Langkah-Langkah membuat Form Latihan_383940

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_3383940  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut:

Public Class Latihan_38B_46110045
    Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim dyna As New DataTable
    Public Sub BATU()
        'mendeklarasikan kendaraan
        Dim fadli As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        fadli = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", dina)
        dyna.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        fadli.Fill(dyna)
        fadli.Dispose()

    End Sub

    Private Sub Latihan_38B_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BATU()
        DGV_46110045.DataSource = dyna
    End Sub
End Class