Menampilkan Dua Tabel Dalam Satu Database SQL Ke Dalam Dua Datagrid Pada Satu Form ~ Aneka Tutorial Pemrograman

Kali ini saya akan menjelaskan bagaimana kita memasukan Dua tabel dalam satu Database MySQL ke dalam dua datagrid dalam satu Form seperti kasus yang di tanyakan oleh rekan saya saudara "kailani".

Jenis Program nya yang saya buat adalah seperti pada gambar di bawah ini.

Pada Program tersebut saya menggunakan beberapa Form untuk menampilkan beberapa data yang di perintah oleh beberapa "Button/tombol" perintah.

Layout Form untuk "Button Data Barang" seperti pada gambar di atas.

dan layout Form untuk "Button Data Jasa" Seperti pada Gambar di bawah ini.

Kemudian Untuk jenis data nya adalah seperti pada gambar di bawah ini.

Dan untuk Codingan menampilkan data Tabel nya dari Database MySQL adalah Sebagai berikut :

Public con As New ADODB.Connection
Public RSdata As New ADODB.Recordset

Public Sub Koneksi()
Set con = New ADODB.Connection
Set RSdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=nm_database;uid=root;pwd=****;"
con.CursorLocation = adUseClient
End Sub

Public Sub dtgrid()
Set RSdata = New ADODB.Recordset
    RSdata.ActiveConnection = con
    RSdata.CursorLocation = adUseClient
    RSdata.CursorType = adOpenDynamic
    RSdata.LockType = adLockOptimistic
    RSdata.Source = "SELECT * FROM nm_Database"
    RSdata.Open
End Sub

Private Sub Form_Load()
Call Koneksi
    con.CursorLocation = adUseClient
    RSdata.Open "SELECT `nm_fileds`, `nm_fileds`, `nm_fileds`, `nm_fileds` FROM `Nm_Tabel` ORDER BY `nm_fileds` ASC ", con
    Set DataGrid1.DataSource = RSdata.DataSource
With DataGrid1
end with
Call Koneksi
    con.CursorLocation = adUseClient
RSdata.Open "SELECT * FROM nm_tabel ORDER BY `nm_fileds` ASC ", con
    Set DataGrid2.DataSource = RSdata.DataSource
With DataGrid2
end with
end sub

Jika pengaturan ODBC Conector MySQL anda benar dan juga pengaturan "Preperance" pada form Visual Basic anda juga benar,maka hasilnya akan sesuai seperti pada gambar di bawah ini.

Ok Sobat Blogger.. Selamat Mencoba.. jika anda menemui kendala pada saat Program nya di "Run",silahkan tanyakan kepada saya,baik melalui komentar pada Postingan ini ataupun melalui Email.

Ok Guys,Semoga bermanfaat dan bisa kalian jadikan rujukan dalam membuat Program kalian,saya ikhlas jika semua data yang ada dalam Blog ini di CoPas.. Terima kasih.