Private Sub Tampilkan()
da = New OdbcDataAdapter("SELECT buku.id_buku, buku.judul, buku.halaman, buku.tahun, buku.path_foto, pembelian.tgl, pembelian.harga, pembelian.jumlah FROM buku, pembelian WHERE buku.id_buku = pembelian.id_buku", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "buku")
dgv.DataSource = (ds.Tables("buku"))
dgv.ReadOnly = True
dgv.Columns(0).Width = 50
dgv.Columns(1).Width = 200
dgv.Columns(2).Width = 50
dgv.Columns(3).Width = 50
dgv.Columns(4).Width = 100
dgv.Columns(5).Width = 100
dgv.Columns(6).Width = 50
dgv.Columns(7).Width = 50
dgv.Columns(0).HeaderText = "ID"
dgv.Columns(1).HeaderText = "JUDUL BUKU"
dgv.Columns(2).HeaderText = "Hlm"
dgv.Columns(3).HeaderText = "Thn"
dgv.Columns(4).HeaderText = "Path Foto"
dgv.Columns(5).HeaderText = "Tgl. BELI"
dgv.Columns(6).HeaderText = "HARGA"
dgv.Columns(7).HeaderText = "JML"
With dgv
.RowHeadersVisible = True
.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver
End With
End Sub
Tidak ada komentar:
Posting Komentar