LatihanForm_15
Public Class Form15_36109009
Dim alwi_DT_36109009 As New DataTable
Dim alwiyah_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from BARANG", alwiyah_36109009)
alwi_DT_36109009.Rows.Clear()
aL_36109009.Fill(alwi_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = alwi_DT_36109009
End Sub
End Class
Public Class Form15_36109009
Dim alwi_DT_36109009 As New DataTable
Dim alwiyah_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from BARANG", alwiyah_36109009)
alwi_DT_36109009.Rows.Clear()
aL_36109009.Fill(alwi_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = alwi_DT_36109009
End Sub
End Class
LatihanForm_16
Public Class Form16_36109009
Dim ALWI_DT_36109009 As New DataTable
Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ALWIYAH_36109009)
ALWI_DT_36109009.Rows.Clear()
aL_36109009.Fill(ALWI_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = ALWI_DT_36109009
End Sub
End Class
LatihanForm_17
Public Class Form17_36109009
Dim ALWI_DT_36109009 As New DataTable
Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ALWIYAH_36109009)
ALWI_DT_36109009.Rows.Clear()
aL_36109009.Fill(ALWI_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = ALWI_DT_36109009
End Sub
End Class
Dim ALWI_DT_36109009 As New DataTable
Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", ALWIYAH_36109009)
ALWI_DT_36109009.Rows.Clear()
aL_36109009.Fill(ALWI_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = ALWI_DT_36109009
End Sub
End Class
LatihanForm_17
Public Class Form17_36109009
Dim ALWI_DT_36109009 As New DataTable
Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
aL_36109009 = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", ALWIYAH_36109009)
ALWI_DT_36109009.Rows.Clear()
aL_36109009.Fill(ALWI_DT_36109009)
aL_36109009.Dispose()
DGV_36109009.DataSource = ALWI_DT_36109009
End Sub
End Class
Tidak ada komentar:
Posting Komentar