<
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:
- GridLines : True
- FullRowSelect : True
- 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:
Pada Events Form_Load tambahkan code seperti di bawah ini:
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 ^^.
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 ^^.
terima kasih,,,
On tabel2.Column1 = Tabel1.Column1", MyKoneksi)
mykoneksi sebelum tutup kurung diatas ini ,,,
panggilan dari mana??
oTbl itu apa ya om?
Post a Comment