Cara Menampilkan Isi 3 Tabel dalam 1 Datagrid di VB6

Pada peremuan kali ini saya akan membagikan sebuah trik yaitu cara menampilkan isi tiga tabel dalam 1 Datagrid di visual basic 6.0.

Tabel yang akan ditampilkan disini adalah tabel pada Database Access yang telah kita buat Databasenya yang terdiri dari tiga Tabel.Ketiga tabel inilah yang kita tampilkan isinya dalam 1 Datagrid dimana isi tabel akan tampil pada saat di klik masing-masing pada ketiga tabel tersebut.Contoh dibawah ini adalah output dari artikel ini :

Ouput

Dalam Gambar diatas saya sudah mempunyai 7 Tabel dalam 1 Database

Bagaiaman apakah Anda penasaran cara membuatnya yuk ikuti langkah-langkah dibawah ini agar tidak tersesat :

1. Buat Databse baru di MS.Acces dengan nama DBUser

2. Kemudian buat 3 Tabel dalam database DBUser, disini saya membuat 3 Tabel yaitu : TBLBarang,TBLPelanggan dan TBLUser

3. Ketiga tabel tersebut kemudian diisi masing-masing. isi tabelnya terserah

4. Setelah selesai membuat Database dan Tabel, kemudian buka VB6 Anda dengan Form standar EXE

5. Pada Form1 tambahkan komponen ListBox1 dan Datagrid1.

6. Setelah selesai mendesain Form seperti Gambar pada output diatas, kemudian Anda Copy kode dibawah ini :

Option Explicit

Dim oConn As New ADODB.Connection

Dim rsData As New ADODB.Recordset

Dim strConn As String

Dim SQL As String

Sub ListTables()

Open_Connection

Dim rs As ADODB.Recordset

List1.Clear

Set rs = oConn.OpenSchema(adSchemaTables, _

         Array(Empty, Empty, Empty, "Table"))

Do While Not rs.EOF

    List1.AddItem rs!TABLE_NAME

    rs.MoveNext

Loop

rs.Close

oConn.Close

List1.ListIndex = 0

End Sub

Private Sub Form_Load()

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

          "Data Source=" & App.Path & "\DBUser.mdb;" & _

          "Persist Security Info=False"

          ListTable        

End Sub

Sub Open_Connection()

Set oConn = New ADODB.Connection

oConn.ConnectionString = strConn

oConn.Open

End Sub

Sub Load_Data(TableName As String)

Open_Connection

Set rsData = New ADODB.Recordset

SQL = "SELECT * FROM " & TableName

With rsData

    .CursorLocation = adUseClient

    .Open SQL, oConn, adOpenDynamic, adLockOptimistic

    .ActiveConnection = Nothing

End With

Set DataGrid1.DataSource = rsData

oConn.Close

End Sub

Private Sub List1_Click()

Load_Data List1.Text

If List1.Text = "TBLUser" Then

DataGrid1.Columns(2).Visible = True

End If

End Sub

7. Kemudian doubel klik area Form kosong lalu bersihkan semua kode dengan CTRL+A dan tekan DELETE, lalu Paste Kode yang sudah di copy tadi.

8. Langkah terakhir jalankan Project Anda, jika tidak ada error maka tabel yang kita buat tadi yang berjumlah tiga tabel akan tampil di Lisbox1,lalu klik satu per stu ketiga tabel tesebut.

Ketika di klik datanya akan tampil pada Datagrid1 sesuai isi tabel masing-masing.

Demikianlah artikel dari Saya tentang Cara Menampilkan Isi 3 Tabel dalam 1 Datagrid di VB6, semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga sukses...

Related Post: Database