Cara Menampilkan Data dari Database ke Datagridview pada VB.Net
Sub Tampilgrid()
Call cekkoneksi()
sqlAdapter = New MySqlDataAdapter(“select * from barang ” & paramCari, sConnection)
Ds = New DataSet
sqlAdapter.Fill(Ds, “barang”)
DGV.DataSource = Ds.Tables(“barang”)
DGV.ReadOnly = True
End Sub
Sub AturDgv()
Try
DGV.Columns(0).Width = 100
DGV.Columns(1).Width = 400
DGV.Columns(2).Width = 180
DGV.Columns(3).Width = 120
DGV.Columns(4).Width = 120
DGV.Columns(5).Width = 120
DGV.Columns(6).Width = 180
DGV.Columns(0).HeaderText = “Kode Barang”
DGV.Columns(1).HeaderText = “Nama Barang”
DGV.Columns(2).HeaderText = “Harga Jual”
DGV.Columns(3).HeaderText = “Diskon”
DGV.Columns(4).HeaderText = “Stock”
DGV.Columns(5).HeaderText = “Retur”
DGV.Columns(6).HeaderText = “Harga Beli”
Catch ex As Exception
End Try
End Sub
Private Sub FormUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call cekkoneksi()
Call Tampilgrid()
Call AturDgv()
End Sub
0 komentar:
Posting Komentar