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 Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select * from barang", CONECT) DT.Rows.Clear() wiwi.Fill(DT) data46109001.DataSource = DT wiwi.Dispose()
End Sub End Class
Public Class latihan_16_001 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 latihan_16_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) DT.Rows.Clear() wiwi.Fill(DT) data46109001.DataSource = DT wiwi.Dispose() End Sub End Class
Public Class latihan_17_001 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 latihan_17_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) DT.Rows.Clear() wiwi.Fill(DT) data46109001.DataSource = DT wiwi.Dispose() End Sub End Class
Public Class latihan_18_001
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 latihan_18_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT) DT.Rows.Clear() wiwi.Fill(DT) data46109001.DataSource = DT wiwi.Dispose()
End Sub End Class
Public Class latihan_19_001 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 latihan_19_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wiwi As New OleDb.OleDbDataAdapter wiwi = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) DT.Rows.Clear() wiwi.Fill(DT) data46109001.DataSource = DT wiwi.Dispose() End Sub End Class
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select * from barang", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub End Class
Public Class LATIHAN016045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub End Class
Public Class LATIHAN017045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub End Class
Public Class LATIHAN018045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub End Class
Public Class LATIHAN019045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub
Private Sub hachiko_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles hachiko.CellContentClick
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DEDE As New OleDb.OleDbDataAdapter DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT) DS.Rows.Clear() DEDE.Fill(DS) hachiko.DataSource = DS DEDE.Dispose()
End Sub End Class
Public Class latihan_21_045 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dede1 As New DataTable Dim dede2 As New DataTable
Dim dss As New DataSet
Dim ikha1 As New BindingSource Dim ikha2 As New BindingSource
Private Sub latihan_21_045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim chiko1 As New OleDb.OleDbDataAdapter Dim chiko2 As New OleDb.OleDbDataAdapter
chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) chiko1.Fill(dede1) chiko1.Dispose()
chiko1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) chiko1.Fill(dede2) chiko2.Dispose()
dd1.DataSource = ikha1 dd1.DataSource = ikha2 End Sub End Class
Public Class latihan_22_045 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dede1 As New DataTable Dim dede2 As New DataTable
Dim dss As New DataSet
Dim ikha1 As New BindingSource Dim ikha2 As New BindingSource
Private Sub latihan_22_045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim chiko1 As New OleDb.OleDbDataAdapter Dim chiko2 As New OleDb.OleDbDataAdapter
chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) chiko1.Fill(dede1) chiko1.Dispose()
chiko2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) chiko2.Fill(dede2) chiko2.Dispose()
Public Class latihan_15_008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim Bakpenampung As New DataTable
Private Sub latihan_15_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan) X.Fill(Bakpenampung) DGV46109008.DataSource = Bakpenampung X.Dispose() End Sub
Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub End Class
Public Class latihan_16_008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim detailtransaksi As New DataTable
Private Sub latihan_16_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan) adapter.Fill(detailtransaksi) DGV46109008.DataSource = detailtransaksi adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub End Class
Public Class latihan_17_008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim mastertransaksi As New DataTable
Private Sub latihan_17_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan) adapter.Fill(mastertransaksi) DGV46109008.DataSource = mastertransaksi adapter.Dispose() End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
Public Class latihan_18_008 '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb' Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim Bakpenampung As New DataTable
Private Sub latihan_18_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", Jembatan) adapter.Fill(Bakpenampung) DGV46109008.DataSource = Bakpenampung adapter.Dispose()
End Sub End Class
Public Class latihan_19_008 '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb' Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim Bakpenampung As New DataTable Private Sub latihan_19_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", Jembatan) adapter.Fill(Bakpenampung) DGV46109008.DataSource = Bakpenampung adapter.Dispose()
End Sub End Class
Public Class latihan_20_008 '.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb' Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim Bakpenampung As New DataTable
Private Sub latihan_20_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", Jembatan) adapter.Fill(Bakpenampung) DGV46109008.DataSource = Bakpenampung adapter.Dispose()
Public Class latihan_21_008 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim shoell As New DataTable Dim shoell_2 As New DataTable
Dim DS As New DataSet
Dim izhar As New BindingSource Dim izhar_2 As New BindingSource
Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim odba As New OleDb.OleDbDataAdapter Dim odba2 As New OleDb.OleDbDataAdapter
odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) odba.Fill(shoell) odba.Dispose()
odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) odba2.Fill(shoell_2) odba2.Dispose()
DGV1_46109008.DataSource = izhar DGV2_46109008.DataSource = izhar_2 End Sub
End Class
Public Class latihan_22_008 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim shoell As New DataTable Dim shoell_2 As New DataTable
Dim DS As New DataSet
Dim izhar As New BindingSource Dim izhar_2 As New BindingSource
Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim odba As New OleDb.OleDbDataAdapter Dim odba2 As New OleDb.OleDbDataAdapter
odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) odba.Fill(shoell) odba.Dispose()
odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) odba2.Fill(shoell_2) odba2.Dispose()
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select * from barang", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_51.DataSource = wahda nia.Dispose() End Sub End Class
Public Class LATIHAN16_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_051.DataSource = wahda nia.Dispose() End Sub End Class
Public Class LATIHAN17_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub LATIHAN17_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select * FROM DETAILTRANSAKSI", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_051.DataSource = wahda nia.Dispose() End Sub
End Class
Public Class LATIHAN18_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_051.DataSource = wahda nia.Dispose() End Sub End Class
Public Class LATIHAN19_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_051.DataSource = wahda nia.Dispose() End Sub End Class
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim wahda As New DataTable
Private Sub LATIHAN20_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nia As New OleDb.OleDbDataAdapter nia = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT) wahda.Rows.Clear() nia.Fill(wahda) dg_051.DataSource = wahda wahda.Dispose() End Sub End Class
Public Class LATIHAN21_46109051 Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter1 As New OleDb.OleDbDataAdapter Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) adapter1.Fill(tabel1) adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) adapter2.Fill(tabel2) adapter2.Dispose()
dg1_051.DataSource = bs1 dg2_051.DataSource = bs2 End Sub End Class
Public Class LATIHAN21_46109051 Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter1 As New OleDb.OleDbDataAdapter Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) adapter1.Fill(tabel1) adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) adapter2.Fill(tabel2) adapter2.Dispose()
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim tabel1 As New DataTable Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter1 As New OleDb.OleDbDataAdapter Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) adapter1.Fill(tabel1) adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) adapter2.Fill(tabel2) adapter2.Dispose()
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select * from barang", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub
Private Sub data46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles data46109017.CellContentClick
End Sub End Class
Public Class Latihan16_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub End Class
Public Class Latihan17_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub End Class
Public Class Latihan18_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub End Class
Public Class Latihan19_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub End Class
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim AYU As New DataTable
Private Sub Latihan20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim WANDIKA As New OleDb.OleDbDataAdapter WANDIKA = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT) AYU.Rows.Clear() WANDIKA.Fill(AYU) data46109017.DataSource = AYU WANDIKA.Dispose() End Sub End Class
Public Class Latihan21_46109017
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource Dim bs2 As New BindingSource
Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter1 As New OleDb.OleDbDataAdapter Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) adapter1.Fill(tabel1) adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) adapter2.Fill(tabel2) adapter2.Dispose()
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource Dim bs2 As New BindingSource
Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter1 As New OleDb.OleDbDataAdapter Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) adapter1.Fill(tabel1) adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) adapter2.Fill(tabel2) adapter2.Dispose()
INDAH YANI SAENONG 46109053 3AD4 Public Class Form15 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select * from barang", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub End Class
Public Class Form16 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub End Class
Public Class Form17 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
Public Class Form18 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub End ClassPublic Class Form18 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub End Class
Public Class latihan019053 Dim tabel As New DataTable Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", koneksi) tabel.Rows.Clear() adapter.Fill(tabel)
dgv.DataSource = tabel adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
Public Class LATIHAN020053 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 latihan020053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim indah As New OleDb.OleDbDataAdapter indah = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT) DT.Rows.Clear() indah.Fill(DT) DGV_053.DataSource = DT indah.Dispose() End Sub
Private Sub DGV_053_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_053.CellContentClick
Public Class Latihan15 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 Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select * from barang", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_16_009 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 latihan_16_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_17_009 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 latihan_17_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_18_009 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 latihan_18_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_19_009 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 latihan_19_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_20_009 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 latihan_20_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ichal As New OleDb.OleDbDataAdapter ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT) DT.Rows.Clear() ichal.Fill(DT) dgv_46109009.DataSource = DT ichal.Dispose() End Sub End Class
Public Class latihan_21_009 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim faisal1 As New DataTable Dim faisal2 As New DataTable Dim dss As New DataSet Dim ichal1 As New BindingSource Dim ichal2 As New BindingSource Private Sub latihan_21_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cacad1 As New OleDb.OleDbDataAdapter Dim cacad2 As New OleDb.OleDbDataAdapter cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) cacad1.Fill(faisal1) cacad1.Dispose() cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) cacad2.Fill(faisal2) cacad2.Dispose() dss.Tables.Add(faisal1) dss.Tables.Add(faisal2) faisal1.TableName = "cupu" faisal2.TableName = "celup" dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans"))) ichal1.DataSource = dss ichal1.DataMember = "cupu" ichal2.DataSource = ichal1 ichal2.DataMember = "tegelas" data146109009.DataSource = ichal1 data246109009.DataSource = ichal2 End Sub End Class
Public Class latihan_22_009 Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim faisal1 As New DataTable Dim faisal2 As New DataTable Dim dss As New DataSet Dim ichal1 As New BindingSource Dim ichal2 As New BindingSource Private Sub latihan_22_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cacad1 As New OleDb.OleDbDataAdapter Dim cacad2 As New OleDb.OleDbDataAdapter cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung) cacad1.Fill(faisal1) cacad1.Dispose() cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung) cacad2.Fill(faisal2) cacad2.Dispose() dss.Tables.Add(faisal1) dss.Tables.Add(faisal2) faisal1.TableName = "cupu" faisal2.TableName = "celup" dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans"))) ichal1.DataSource = dss ichal1.DataMember = "cupu" ichal2.DataSource = ichal1 ichal2.DataMember = "tegelas" data146109009.DataSource = ichal1 data246109009.DataSource = ichal2 End Sub End Class
Public Class latihan_15_46109008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim Bakpenampung As New DataTable
Private Sub latihan_15_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan) X.Fill(Bakpenampung) DGV46109008.DataSource = Bakpenampung X.Dispose() End Sub
Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub End Class
Public Class latihan_16_46109008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim detailtransaksi As New DataTable
Private Sub latihan_16_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan) adapter.Fill(detailtransaksi) DGV46109008.DataSource = detailtransaksi adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub End Class
Public Class latihan_17_46109008 Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb") Dim mastertransaksi As New DataTable
Private Sub latihan_17_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapter As New OleDb.OleDbDataAdapter adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan) adapter.Fill(mastertransaksi) DGV46109008.DataSource = mastertransaksi adapter.Dispose() End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
Public Class LATIHAN017_46109054 Dim dt As New DataTable Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_17_46109054_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 detailtransaksi", KONEKSI) a.Fill(dt) a.Dispose() DGV_054.DataSource = dt End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
End Sub End Class
Public Class LATIHAN018_46109054
Dim dt As New DataTable Dim DWI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_18_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", DWI) a.Fill(dt) a.Dispose() DGV_054.DataSource = dt End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
Public Class LATIHAN019_46109054 Dim dt As New DataTable Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan019_46109054_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 MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", KONEKSI) a.Fill(dt) a.Dispose() dgv_054.DataSource = dt End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_054.CellContentClick
End Sub End Class
Public Class Latihan_20_46109054 Dim dt As New DataTable Dim DWI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_20_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM (BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", DWI) a.Fill(dt) a.Dispose() DGV_054.DataSource = dt End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
Public Class Tugas15_46109003 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable
Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tahkrim As New OleDb.OleDbDataAdapter tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi) tabel.Rows.Clear() tahkrim.Fill(tabel) Data_46109003.DataSource = tabel
tahkrim.Dispose()
End Sub
End Class
Tugas17_46109003 Muhammad Attahkrim
Public Class Tugas17_46109003
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable
Private Sub Tugas17_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tahkrim As New OleDb.OleDbDataAdapter tahkrim = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) tabel.Rows.Clear() tahkrim.Fill(tabel) Data_46109003.DataSource = tabel
tahkrim.Dispose() End Sub End Class
Tugas18_46109003 Muhammad Attahkrim
Public Class Tugas18_46109003 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable
Private Sub Tugas18_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tahkrim As New OleDb.OleDbDataAdapter tahkrim = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi) tabel.Rows.Clear() tahkrim.Fill(tabel) data_46109003.DataSource = tabel
Public Class Tugas15_46109003 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable
Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tahkrim As New OleDb.OleDbDataAdapter tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi) tabel.Rows.Clear() tahkrim.Fill(tabel) Data_46109003.DataSource = tabel
Public Class Tugas15_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas15_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select * from barang", koneksi) tabel.Rows.Clear() tio.Fill(tabel) Data_46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Tugas16_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas16_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi) tabel.Rows.Clear() tio.Fill(tabel) Data_46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Tugas17_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas17_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi) tabel.Rows.Clear() tio.Fill(tabel) Data_46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Tugas18_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas18_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi) tabel.Rows.Clear() tio.Fill(tabel) data_46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Tugas19_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas19_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", koneksi) tabel.Rows.Clear() tio.Fill(tabel) Data46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Tugas20_46109037 Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb") Dim tabel As New DataTable Private Sub Tugas20_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tio As New OleDb.OleDbDataAdapter tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", koneksi) tabel.Rows.Clear() tio.Fill(tabel) data_46109037.DataSource = tabel tio.Dispose() End Sub End Class
Public Class Latihan15
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DT As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
data46109001.DataSource = DT
wiwi.Dispose()
End Sub
End Class
Public Class latihan_16_001
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 latihan_16_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
data46109001.DataSource = DT
wiwi.Dispose()
End Sub
End Class
Public Class latihan_17_001
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 latihan_17_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
data46109001.DataSource = DT
wiwi.Dispose()
End Sub
End Class
Public Class latihan_18_001
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 latihan_18_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
data46109001.DataSource = DT
wiwi.Dispose()
End Sub
End Class
Public Class latihan_19_001
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 latihan_19_001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wiwi As New OleDb.OleDbDataAdapter
wiwi = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
DT.Rows.Clear()
wiwi.Fill(DT)
data46109001.DataSource = DT
wiwi.Dispose()
End Sub
End Class
Public Class LATIHAN015045
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class LATIHAN016045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class LATIHAN017045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class LATIHAN018045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class LATIHAN019045
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
Private Sub hachiko_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles hachiko.CellContentClick
End Sub
End Class
Public Class LATIHAN020045
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
hachiko.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class latihan_21_045
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dede1 As New DataTable
Dim dede2 As New DataTable
Dim dss As New DataSet
Dim ikha1 As New BindingSource
Dim ikha2 As New BindingSource
Private Sub latihan_21_045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim chiko1 As New OleDb.OleDbDataAdapter
Dim chiko2 As New OleDb.OleDbDataAdapter
chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
chiko1.Fill(dede1)
chiko1.Dispose()
chiko1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
chiko1.Fill(dede2)
chiko2.Dispose()
dss.Tables.Add(dede1)
dss.Tables.Add(dede2)
dede1.TableName = "01"
dede2.TableName = "02"
dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
ikha1.DataSource = dss
ikha1.DataMember = "01"
ikha2.DataSource = ikha1
ikha2.DataMember = "03"
dd1.DataSource = ikha1
dd1.DataSource = ikha2
End Sub
End Class
Public Class latihan_22_045
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dede1 As New DataTable
Dim dede2 As New DataTable
Dim dss As New DataSet
Dim ikha1 As New BindingSource
Dim ikha2 As New BindingSource
Private Sub latihan_22_045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim chiko1 As New OleDb.OleDbDataAdapter
Dim chiko2 As New OleDb.OleDbDataAdapter
chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
chiko1.Fill(dede1)
chiko1.Dispose()
chiko2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
chiko2.Fill(dede2)
chiko2.Dispose()
dss.Tables.Add(dede1)
dss.Tables.Add(dede2)
dede1.TableName = "01"
dede2.TableName = "02"
dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
ikha1.DataSource = dss
ikha1.DataMember = "01"
ikha2.DataSource = ikha1
ikha2.DataMember = "03"
dd1.DataSource = ikha1
dd2.DataSource = ikha2
End Sub
End Class
sulkifli herman
BalasHapus46109008
Public Class latihan_15_008
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim Bakpenampung As New DataTable
Private Sub latihan_15_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan)
X.Fill(Bakpenampung)
DGV46109008.DataSource = Bakpenampung
X.Dispose()
End Sub
Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
Public Class latihan_16_008
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim detailtransaksi As New DataTable
Private Sub latihan_16_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan)
adapter.Fill(detailtransaksi)
DGV46109008.DataSource = detailtransaksi
adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
Public Class latihan_17_008
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim mastertransaksi As New DataTable
Private Sub latihan_17_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan)
adapter.Fill(mastertransaksi)
DGV46109008.DataSource = mastertransaksi
adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
sulkifli herman
BalasHapus46109008
Public Class latihan_18_008
'.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim Bakpenampung As New DataTable
Private Sub latihan_18_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", Jembatan)
adapter.Fill(Bakpenampung)
DGV46109008.DataSource = Bakpenampung
adapter.Dispose()
End Sub
End Class
Public Class latihan_19_008
'.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim Bakpenampung As New DataTable
Private Sub latihan_19_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", Jembatan)
adapter.Fill(Bakpenampung)
DGV46109008.DataSource = Bakpenampung
adapter.Dispose()
End Sub
End Class
Public Class latihan_20_008
'.OLEDB.12.0;Data Source="D:\Materi\Poltekx\VB8\Materi Apkom4\2010\DataTransaksiJualBeli.accdb'
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim Bakpenampung As New DataTable
Private Sub latihan_20_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", Jembatan)
adapter.Fill(Bakpenampung)
DGV46109008.DataSource = Bakpenampung
adapter.Dispose()
End Sub
End Class
sulkifli herman
BalasHapus46109008
Public Class latihan_21_008
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim shoell As New DataTable
Dim shoell_2 As New DataTable
Dim DS As New DataSet
Dim izhar As New BindingSource
Dim izhar_2 As New BindingSource
Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim odba As New OleDb.OleDbDataAdapter
Dim odba2 As New OleDb.OleDbDataAdapter
odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
odba.Fill(shoell)
odba.Dispose()
odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
odba2.Fill(shoell_2)
odba2.Dispose()
DS.Tables.Add(shoell)
DS.Tables.Add(shoell_2)
shoell.TableName = "induk"
shoell_2.TableName = "anak"
DS.Relations.Add(New DataRelation("cucu", DS.Tables("induk").Columns("notrans"), DS.Tables("anak").Columns("notrans")))
izhar.DataSource = DS
izhar.DataMember = "induk"
izhar_2.DataSource = izhar
izhar_2.DataMember = "cucu"
DGV1_46109008.DataSource = izhar
DGV2_46109008.DataSource = izhar_2
End Sub
End Class
Public Class latihan_22_008
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim shoell As New DataTable
Dim shoell_2 As New DataTable
Dim DS As New DataSet
Dim izhar As New BindingSource
Dim izhar_2 As New BindingSource
Private Sub latihan_22_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim odba As New OleDb.OleDbDataAdapter
Dim odba2 As New OleDb.OleDbDataAdapter
odba = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
odba.Fill(shoell)
odba.Dispose()
odba2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
odba2.Fill(shoell_2)
odba2.Dispose()
DS.Tables.Add(shoell)
DS.Tables.Add(shoell_2)
shoell.TableName = "induk"
shoell_2.TableName = "anak"
DS.Relations.Add(New DataRelation("cucu", DS.Tables("induk").Columns("notrans"), DS.Tables("anak").Columns("notrans")))
izhar.DataSource = DS
izhar.DataMember = "induk"
izhar_2.DataSource = izhar
izhar_2.DataMember = "cucu"
DGV1_46109008.DataSource = izhar
DGV2_46109008.DataSource = izhar_2
End Sub
End Class
WAHDANIAH
BalasHapus46109051
Public Class LATIHAN15_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_51.DataSource = wahda
nia.Dispose()
End Sub
End Class
Public Class LATIHAN16_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_051.DataSource = wahda
nia.Dispose()
End Sub
End Class
Public Class LATIHAN17_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub LATIHAN17_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select * FROM DETAILTRANSAKSI", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_051.DataSource = wahda
nia.Dispose()
End Sub
End Class
Public Class LATIHAN18_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_051.DataSource = wahda
nia.Dispose()
End Sub
End Class
Public Class LATIHAN19_46109051
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_051.DataSource = wahda
nia.Dispose()
End Sub
End Class
Public Class LATIHAN20_46109051
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim wahda As New DataTable
Private Sub LATIHAN20_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nia As New OleDb.OleDbDataAdapter
nia = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
wahda.Rows.Clear()
nia.Fill(wahda)
dg_051.DataSource = wahda
wahda.Dispose()
End Sub
End Class
Public Class LATIHAN21_46109051
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter1 As New OleDb.OleDbDataAdapter
Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
adapter1.Fill(tabel1)
adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
adapter2.Fill(tabel2)
adapter2.Dispose()
ds.Tables.Add(tabel1)
ds.Tables.Add(tabel2)
tabel1.TableName = "wahda"
tabel2.TableName = "niah"
ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "wahda"
bs2.DataSource = bs1
bs2.DataMember = "niah"
dg1_051.DataSource = bs1
dg2_051.DataSource = bs2
End Sub
End Class
Public Class LATIHAN21_46109051
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter1 As New OleDb.OleDbDataAdapter
Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
adapter1.Fill(tabel1)
adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
adapter2.Fill(tabel2)
adapter2.Dispose()
ds.Tables.Add(tabel1)
ds.Tables.Add(tabel2)
tabel1.TableName = "wahda"
tabel2.TableName = "niah"
ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "wahda"
bs2.DataSource = bs1
bs2.DataMember = "niah"
dg1_051.DataSource = bs1
dg2_051.DataSource = bs2
End Sub
End Class
Public Class LATIHAN22_46109051
BalasHapusDim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter1 As New OleDb.OleDbDataAdapter
Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
adapter1.Fill(tabel1)
adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
adapter2.Fill(tabel2)
adapter2.Dispose()
ds.Tables.Add(tabel1)
ds.Tables.Add(tabel2)
tabel1.TableName = "wahda"
tabel2.TableName = "niah"
ds.Relations.Add(New DataRelation("niah", ds.Tables("wahda").Columns("notrans"), ds.Tables("niah").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "wahda"
bs2.DataSource = bs1
bs2.DataMember = "niah"
dg1_051.DataSource = bs1
dg2_051.DataSource = bs2
End Sub
End Class
Public Class Latihan15_46109017
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
Private Sub data46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles data46109017.CellContentClick
End Sub
End Class
Public Class Latihan16_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
End Class
Public Class Latihan17_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
End Class
Public Class Latihan18_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
End Class
Public Class Latihan19_46109017
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
End Class
Public Class Latihan20_46109017
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim AYU As New DataTable
Private Sub Latihan20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WANDIKA As New OleDb.OleDbDataAdapter
WANDIKA = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
AYU.Rows.Clear()
WANDIKA.Fill(AYU)
data46109017.DataSource = AYU
WANDIKA.Dispose()
End Sub
End Class
Public Class Latihan21_46109017
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter1 As New OleDb.OleDbDataAdapter
Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
adapter1.Fill(tabel1)
adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
adapter2.Fill(tabel2)
adapter2.Dispose()
ds.Tables.Add(tabel1)
ds.Tables.Add(tabel2)
tabel1.TableName = "AYU"
tabel2.TableName = "WANDIKA"
ds.Relations.Add(New DataRelation("PUTRI", ds.Tables("AYU").Columns("notrans"), ds.Tables("WANDIKA").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "AYU"
bs2.DataSource = bs1
bs2.DataMember = "PUTRI"
DATA1_46109017.DataSource = bs1
DATA2_46109017.DataSource = bs2
End Sub
End Class
Public Class Latihan22_46109017
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub Latihan21_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter1 As New OleDb.OleDbDataAdapter
Dim adapter2 As New OleDb.OleDbDataAdapter
adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
adapter1.Fill(tabel1)
adapter1.Dispose()
adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
adapter2.Fill(tabel2)
adapter2.Dispose()
ds.Tables.Add(tabel1)
ds.Tables.Add(tabel2)
tabel1.TableName = "AYU"
tabel2.TableName = "WANDIKA"
ds.Relations.Add(New DataRelation("PUTRI", ds.Tables("AYU").Columns("notrans"), ds.Tables("WANDIKA").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "AYU"
bs2.DataSource = bs1
bs2.DataMember = "PUTRI"
DATA1_46109017.DataSource = bs1
DATA2_46109017.DataSource = bs2
End Sub
End Class
INDAH YANI SAENONG
BalasHapus46109053
3AD4
Public Class Form15
Dim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End Class
Public Class Form16
Dim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End Class
Public Class Form17
Dim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End Class
Public Class Form18
BalasHapusDim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End ClassPublic Class Form18
Dim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End Class
Public Class latihan019053
Dim tabel As New DataTable
Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
dgv.DataSource = tabel
adapter.Dispose()
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
End Class
Public Class LATIHAN020053
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DT As New DataTable
Private Sub latihan020053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim indah As New OleDb.OleDbDataAdapter
indah = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
DT.Rows.Clear()
indah.Fill(DT)
DGV_053.DataSource = DT
indah.Dispose()
End Sub
Private Sub DGV_053_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_053.CellContentClick
End Sub
End Class
Public Class Latihan15
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DT As New DataTable
Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_16_009
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 latihan_16_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_17_009
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 latihan_17_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_18_009
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 latihan_18_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_19_009
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim DT As New DataTable
Private Sub latihan_19_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_20_009
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 latihan_20_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ichal As New OleDb.OleDbDataAdapter
ichal = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)
DT.Rows.Clear()
ichal.Fill(DT)
dgv_46109009.DataSource = DT
ichal.Dispose()
End Sub
End Class
Public Class latihan_21_009
BalasHapusDim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim faisal1 As New DataTable
Dim faisal2 As New DataTable
Dim dss As New DataSet
Dim ichal1 As New BindingSource
Dim ichal2 As New BindingSource
Private Sub latihan_21_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cacad1 As New OleDb.OleDbDataAdapter
Dim cacad2 As New OleDb.OleDbDataAdapter
cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
cacad1.Fill(faisal1)
cacad1.Dispose()
cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
cacad2.Fill(faisal2)
cacad2.Dispose()
dss.Tables.Add(faisal1)
dss.Tables.Add(faisal2)
faisal1.TableName = "cupu"
faisal2.TableName = "celup"
dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans")))
ichal1.DataSource = dss
ichal1.DataMember = "cupu"
ichal2.DataSource = ichal1
ichal2.DataMember = "tegelas"
data146109009.DataSource = ichal1
data246109009.DataSource = ichal2
End Sub
End Class
Public Class latihan_22_009
Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim faisal1 As New DataTable
Dim faisal2 As New DataTable
Dim dss As New DataSet
Dim ichal1 As New BindingSource
Dim ichal2 As New BindingSource
Private Sub latihan_22_009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cacad1 As New OleDb.OleDbDataAdapter
Dim cacad2 As New OleDb.OleDbDataAdapter
cacad1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
cacad1.Fill(faisal1)
cacad1.Dispose()
cacad2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
cacad2.Fill(faisal2)
cacad2.Dispose()
dss.Tables.Add(faisal1)
dss.Tables.Add(faisal2)
faisal1.TableName = "cupu"
faisal2.TableName = "celup"
dss.Relations.Add(New DataRelation("tegelas", dss.Tables("cupu").Columns("notrans"), dss.Tables("celup").Columns("notrans")))
ichal1.DataSource = dss
ichal1.DataMember = "cupu"
ichal2.DataSource = ichal1
ichal2.DataMember = "tegelas"
data146109009.DataSource = ichal1
data246109009.DataSource = ichal2
End Sub
End Class
Public Class latihan_15_46109008
BalasHapusDim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim Bakpenampung As New DataTable
Private Sub latihan_15_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("select* from barang", Jembatan)
X.Fill(Bakpenampung)
DGV46109008.DataSource = Bakpenampung
X.Dispose()
End Sub
Private Sub DGV008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
Public Class latihan_16_46109008
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim detailtransaksi As New DataTable
Private Sub latihan_16_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Jembatan)
adapter.Fill(detailtransaksi)
DGV46109008.DataSource = detailtransaksi
adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
Public Class latihan_17_46109008
Dim Jembatan As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim mastertransaksi As New DataTable
Private Sub latihan_17_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Jembatan)
adapter.Fill(mastertransaksi)
DGV46109008.DataSource = mastertransaksi
adapter.Dispose()
End Sub
Private Sub DGV46109008_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109008.CellContentClick
End Sub
End Class
Dwi Mustika Chaerunnisa Mulyadi
BalasHapus46109054
Public Class LATIHAN017_46109054
Dim dt As New DataTable
Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_17_46109054_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 detailtransaksi", KONEKSI)
a.Fill(dt)
a.Dispose()
DGV_054.DataSource = dt
End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
End Sub
End Class
Public Class LATIHAN018_46109054
Dim dt As New DataTable
Dim DWI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_18_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", DWI)
a.Fill(dt)
a.Dispose()
DGV_054.DataSource = dt
End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
End Sub
End Class
Dwi Mustika Chaerunnisa Mulyadi
BalasHapus46109054
Public Class LATIHAN019_46109054
Dim dt As New DataTable
Dim KONEKSI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan019_46109054_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 MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", KONEKSI)
a.Fill(dt)
a.Dispose()
dgv_054.DataSource = dt
End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_054.CellContentClick
End Sub
End Class
Public Class Latihan_20_46109054
Dim dt As New DataTable
Dim DWI As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub Latihan_20_46109054_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 BARANG.KODEBARANG, BARANG.NAMABARANG, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM (BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", DWI)
a.Fill(dt)
a.Dispose()
DGV_054.DataSource = dt
End Sub
Private Sub dgv_054_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_054.CellContentClick
End Sub
End Class
Tugas16_46109003
BalasHapusMuhammad Attahkrim
Public Class Tugas15_46109003
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tahkrim As New OleDb.OleDbDataAdapter
tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
tabel.Rows.Clear()
tahkrim.Fill(tabel)
Data_46109003.DataSource = tabel
tahkrim.Dispose()
End Sub
End Class
Tugas17_46109003
Muhammad Attahkrim
Public Class Tugas17_46109003
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas17_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tahkrim As New OleDb.OleDbDataAdapter
tahkrim = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
tabel.Rows.Clear()
tahkrim.Fill(tabel)
Data_46109003.DataSource = tabel
tahkrim.Dispose()
End Sub
End Class
Tugas18_46109003
Muhammad Attahkrim
Public Class Tugas18_46109003
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas18_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tahkrim As New OleDb.OleDbDataAdapter
tahkrim = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi)
tabel.Rows.Clear()
tahkrim.Fill(tabel)
data_46109003.DataSource = tabel
tahkrim.Dispose()
End Sub
End Class
Tugas15_46109003
BalasHapusMuhammad Attahkrim
Public Class Tugas15_46109003
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas15_46109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tahkrim As New OleDb.OleDbDataAdapter
tahkrim = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
tabel.Rows.Clear()
tahkrim.Fill(tabel)
Data_46109003.DataSource = tabel
tahkrim.Dispose()
End Sub
End Class
Public Class Tugas15_46109037
BalasHapusDim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas15_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select * from barang", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
Data_46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class
Public Class Tugas16_46109037
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas16_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
Data_46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class
Public Class Tugas17_46109037
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas17_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
Data_46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class
Public Class Tugas18_46109037
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas18_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
data_46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class
Public Class Tugas19_46109037
BalasHapusDim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas19_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
Data46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class
Public Class Tugas20_46109037
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Tugas20_46109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tio As New OleDb.OleDbDataAdapter
tio = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", koneksi)
tabel.Rows.Clear()
tio.Fill(tabel)
data_46109037.DataSource = tabel
tio.Dispose()
End Sub
End Class