LATIHAN 38_39_40 APKOM 4

Public Class Form38_39_40_36109010
    Dim dt As New DataTable
    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form38_39_40_36109010_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", virgo)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

        dgv.DataSource = dt
    End Sub
End Class