Latihan 16-18

Public Class Form16

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

    Dim DT As New DataTable

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

        Dim veny As New OleDb.OleDbDataAdapter

        veny = New OleDb.OleDbDataAdapter("select*from mastertransaksi", CONECT)

        veny.Fill(DT)

        dgv2.DataSource = DT

        veny.Dispose()

    End Sub

End Class

Public Class Form17

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

    Dim DT As New DataTable

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

        Dim veny As New OleDb.OleDbDataAdapter

        veny = New OleDb.OleDbDataAdapter("select*from detailtransaksi", CONECT)

        veny.Fill(DT)

        dgv3.DataSource = DT

        veny.Dispose()

    End Sub

End Class

Public Class Form18

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

    Dim DT As New DataTable

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

        Dim veny As New OleDb.OleDbDataAdapter

        veny = New OleDb.OleDbDataAdapter("select*from query1", CONECT)

        veny.Fill(DT)

        dgv4.DataSource = DT

        veny.Dispose()

    End Sub

End Class