Deskripsi Form Latihan_19_36110039
Terdapat satu object yaitu :
Object DataGridView
Terdapat satu objeck datagridview
yang digunakan untuk menampilkan
semua field atau kolom NOTRANS, JENISTRANSAKSI, dan TANGGALTRANSAKSI dari tabel
MASTERTRANSAKSI serta KODEBARANG, UNIT, HARGA dari tabel DETAILTRANSAKSI yang
ada pada D:\Apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli

Scriptnya ada pada Prosedur
Latihan_19_36110039 dibawah ini.

Latihan_19_36110039_Load
Prosedur menjalankan
Latihan_19_36110039:
1.
Klik Start dan pilih Microsoft Visual Studio
2008.
2.
Klik menu file dan pilih New Project.
3.
Ketik nama dan pilih lokasi yang diinginkan pada
masing-masing tempat yang tersedia, klik Ok.
4.
Klik menu view dan pilih toolbox.
5. Kemudian
pilih object DataGridView dan buat sebanyak satu. Isi properti name menjadi
nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
6.
Setelah perintah diatas dilakukan maka
jadilah seperti kolom dibawah ini:
7. Berikut ini adalah rumus untuk
menjalankan form di atas:
Dim Koneksi As New
OleDb.OleDbConnection(" Provider =
microsoft.ace.oledb.12.0; data source = D:\Apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim DtTable
As New
DataTable
Private Sub Latihan_19_36110039_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)
DtTable.Rows.Clear()
Adapter.Fill(DtTable)
dgv_36110039.DataSource = DtTable
Adapter.Dispose()
End
Sub
8. Untuk
melihat apakah program yang anda telah buat sudah benar atau belum tepat maka
klik icon Start Debugging atau tekan F5.
Tidak ada komentar:
Posting Komentar