TUGAS 15-19

RIDHAYANTI SALEH
36109015
3A-D3

TUGAS 15-19

- TUGAS 15

Public Class Form15_36109015

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

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 16

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

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_36109015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 17

Public Class Form17_36109015

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

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_36109015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 18

Public Class Form18_36109015

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

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 19

Public Class Form19_36109015

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

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from query2", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class