Sabtu, 04 Februari 2017

Cara Menampilkan 2 Tabel MySQL ke DataGrid VIew

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