Menampilkan data dari dua tabel database ke datagrid vb 6

Pada kesempatan kali ini saya akan mencoba berbagi trik untuk menampilkan dua tabel dari database My SQL ke satu datagrid di Visual Basic 6. Disini kita akan menggunakan fasilitas joint yang sudah ada di mysql. jadi dengan cara ini kita tidak perlu lagi membuat tabel detail untuk melengkapi data transaksi contohnya. langsung aja sedot gan,,,

 Data tabel jenis:

Data tabel buku:

Nah.., selanjutnya akan ditampilkan di datagrid di vb enam.
Nanti tampilannya akan seperti dibawah ini.

Lihat per bedaannya…

Yah.., telah ditambahkan jenis buku ke dalamnya…

Dan ini adalah codingnya:
Lakukan langkah-langkah ini:
'Tulis prosedur dibawah ini yang berfungsi untuk mengatur kolom datagrid
'Caption berfungsi untuk mengatur nama field
'width untuk mengatur panjang karakter
Sub kolom()
DataGrid1.Columns(0).Caption = "Kode buku"
DataGrid1.Columns(0).Width = "1000"
DataGrid1.Columns(1).Caption = "Kode jenis"
DataGrid1.Columns(1).Width = "1000"
DataGrid1.Columns(2).Caption = "Jenis buku"
DataGrid1.Columns(2).Width = "1500"
DataGrid1.Columns(3).Caption = "Judul buku"
DataGrid1.Columns(3).Width = "3000"
End Sub

'Pada form_load tuliskan coding ini:
'keterangan coding ini adalah:
'Memilih data di tabel jenis dan tabel buku dengan menggunakan perintah left join
Private Sub Form_Load()
Call buka
sql = "select buku.kode_buku,buku.kode_jenis,jenis.jenis,buku.judul_buku," & _
        " from buku left join jenis on buku.kode_jenis=jenis.kode_jenis"
    rs.Open sql, konek, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
      kolom
End Sub




Selamat mencoba.....
thanks For hujanderasss.blogspot.com