Sub LihatData()
conn.Open()
telusur = "select nomor,nama,kode_buku,judul,pengarang,topik
from insert_koleksi
cmd = New MySqlCommand(telusur,
conn)
dr =
cmd.ExecuteReader
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
DataGridView1.DataSource = dt
DataGridView1.Columns(0).HeaderText = "Cek
Data"
DataGridView1.Columns(1).HeaderText = "Nomor
Pengguna"
DataGridView1.Columns(2).HeaderText = "Nama
Pengguna"
DataGridView1.Columns(3).HeaderText = "Kode
Buku/Jurnal"
DataGridView1.Columns(4).HeaderText = "Judul
Koleksi"
DataGridView1.Columns(5).HeaderText = "Pengarang"
DataGridView1.Columns(6).HeaderText = "Topik"
DataGridView1.AllowUserToAddRows = False
Else
dr.Close()
MsgBox("Data Tidak Ada!", MsgBoxStyle.Critical)
End If
conn.Close()
End Sub
Sesuaikan tabel mana yang akan ditampilkan data nya dari database ke DatagridView
6. Lalu panggil sub yang telah dibuat tadi di load dengan coding:
Private Sub Form1_Load(ByVal sender As Object, _
LihatData()
End Sub
Setelah semua selesai kemudian running.
Oke sampai disini dulu, semoga bermanfaat ya kak ;)
Tunggu postingan mimin selanjutnya !
Komentar
Posting Komentar