Latihan 383940

Public Class Form383940_36109062

    Dim dt As New DataTable

    Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.ACCDB")

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

        Dim b As New OleDb.OleDbDataAdapter

        b = New OleDb.OleDbDataAdapter(" select * FROM BARANG", KJS)

        dt.Rows.Clear()

        b.Fill(dt)

        b.Dispose()

        dgv062.DataSource = dt

    End Sub

End Class