apapun yg bkal lo lakuin,yang lo mau itu hakhak lo..sukasuka lo....gue bkn siapasiapa lo,,gue cmn orang yng berharap.. #kampret
sekarang gue mulAi sadar,,kalo nunggu and berharap yg gak penting itu cmn ngebuang waktu,,memeras otak,..dan yg paling parah...mikirin lo tuh ngebuat jerawat gue tumbuh banyak... #anjeeeng
oke skrg gue nyerah...lo mau kenal ato gak lagi ama gue TERSERAh..WHATEVER..
DO WHAT YOU WANNA DO!
#DADDAAAHHHHH ANJENNGGG :p
Public Class latihan_15_084
BalasHapusDim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Private Sub latihan_15_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim datatabel1 As New DataTable
Dim B As New OleDb.OleDbDataAdapter
B = New OleDb.OleDbDataAdapter("select * from Barang", A)
B.Fill(datatabel1)
dgv_084.DataSource = datatabel1
End Sub
End Class
Deriieeeellll Kerennn :P
BalasHapus