Pemrograman Visual - Pertemuan 11

 MENAMPILKAN DATA

    MySqlDataAdapter, MySqlDataAdapter Merupakan seperangkat perintah data dan koneksi database yang digunakan untuk mengisi DataSet / DataTable dan memperbarui database MySQL.

Data Table

    DataTable merupakan sebuah type data yang disediakan dari System.Data yang fungsinya untuk membuat tabel secara abstrak / tidak keliatan. lebih gampangnya DataTable itu merupakan type data untuk membuat table.

Function TampilBuku()

    TampilBuku adalah sebuah function, karena nilai yang dikembalikannya kita perlukan untuk proses menampilkan data dalam bentuk tabel. Pada module proses.vb kita deklarasikan function TampilBuku ini, tanpa parameter dan memiliki tipe data DataTable.

    Kemudian di dalamnya kita deklarasikan variabel-variabel yang kita perlukan, seperti query dan variabel DataTable itu sendiri.

    Query yang kita gunakan adalah menjoinkan tabel buku dan kategori, kemudian menjadikan atribut yang tampil sesuai dengan yang diinginkan.

    Masih berdasarkan DFD, query tersebut kemudian dikirimkan ke database dan dari database akan didapatkan hasil dari query. Untuk query SELECT kita gunakan function getResult dari module koneksi yang manfaatnya mengambil data dari database berdasarkan query yang dikirimkan. Kemudian hasilnya disimpan sebagai dt. Nilai dt inilah nilai kembali pada function TampilBuku.

Memanggil TampilBuku di FormBuku()

Begitu admin dan pegawai berhasil login, mereka akan langsung diarahkan ke FormBeranda. Pada halaman ini tabel buku pun akan ditampilkan melalui DataGridView, yang pada modul sebelumnya kita beri nama DG. Oleh karena itu code untuk menampilkan data buku ini kita bangun pada FormBuku_Load. Klik FormBuku dua kali untuk membangkitkan method ini.

Berikut halaman Beranda ketika aplikasi dijalankan.

Memanggil TampilKategori()

Masukkan Codingan seperti dibawah ini

Public Class FormDetilKategori

 

    Private Sub FormDetilKategori_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'query join

        Dim query As String = "Select * from kategori where id_kategori=" & id_kategori

        Dim dt As New DataTable

        dt = GetResult(query)

        txtKatDet.Text = dt.Rows(0).Item("kategori").ToString

 

    End Sub

 

Jika berhasil akan muncul tampilan sperti berikut