Cara Menampilkan Dua Tabel Pada Database MySQL ke VB. NET

Posted by YOUR IT SOLUTION

< data-ad-client="ca-pub-3890975320167131" data-ad-slot="8978403605"/ins>

Dalam MySQL ada beberapa cara untuk membaca isi database, baik untuk membaca isi satu tabel atau beberapa tabel. Kali ini saya akan membahas tentang menampilkan data beberapa tabel pada mysql dan tampilkan pada listview vb. net. Dalam postingan ini

Pertama-tama buat terlebih dahulu new project pada VB. NET Memulai VB. NET. Setelah itu tambahkan satu buah komponen ListView pada Form. Ubah properties listview seperti di bawah:
  1. GridLines : True
  2. FullRowSelect : True
  3. View : Details
Pada Mysql buat sebuah database dan kemudian buat 2 buah tabel, atau bisa lihat dari sini cara create database MySQL dengan MySQL Workbench.

Langkah selanjutnya buat koneksi kedatabase dari VB. NET pada code view seperti di bawah ini:

Private connString As String = "Server="Localhost";user id="root";password="";database="NamaDatabase""
Private MyKoneksi As New MySqlConnection(connString)


 Pada Events Form_Load tambahkan code seperti di bawah ini:

MyKoneksi.Open()
        Dim oDs As New DataSet
     Dim oDa As New mysqlDataAdapter("select*from tabel1 inner join tabel2 On tabel2.Column1 = Tabel1.Column1", MyKoneksi)
        oDa.Fill(oDs)
        oTbl = oDs.Tables(0)
        LvSupir.Items.Clear()
        cbSupir.Items.Clear()
        For i As Integer = 0 To oTbl.Rows.Count - 1
            With ListView1
                With .Items(.Items.Count - 1).SubItems
                    .Add(oTbl.Rows(i)("Column1"))
                    .Add(oTbl.Rows(i)("Column2"))
                    .Add(oTbl.Rows(i)("Column3"))
                    .Add(oTbl.Rows(i)("Column4"))
                    .Add(oTbl.Rows(i)("Column5"))
                    .Add(oTbl.Rows(i)("Column6"))
                End With
            End With
         Next
Mykoneksi.Close()

Fungsi Inner Join di atas dapat mengambil data dari seluruh Record column yang ada pada database MySQL. Sesuaikan nama Database, Password, Server, User ID, Tabel, dan Column dengan yang anda buat. Semoga membantu ^^.

Related Post



Unknown said...

terima kasih,,,

Unknown said...

On tabel2.Column1 = Tabel1.Column1", MyKoneksi)
mykoneksi sebelum tutup kurung diatas ini ,,,
panggilan dari mana??

Admin said...

oTbl itu apa ya om?

Post a Comment