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
No comments:
Post a Comment