Cara Menampilkan Data Ke Listview Secara Dinamis VB6

Baca Juga :

Untuk menampilkan data ke komponen khususnya Listview pada Ms. Visual Basic 6.0 (VB6) sudah barang tentu sangat banyak literaturnya akan tetapi kebanyakan literatur yang ada pada internet dan web-web pemrograman kebanyakan bersifat statik (tetap), jika ada perubahan pada tabel seperti penambahan field baru, maka coding untuk menampilkan data ke komponen listview juga ikut diubah dan disesuaikan dengan jumlah column header dan field pada tabel tersebut. Pada kesempatan kali ini admin akan berbagi coding menampilkan data dari tabel suatu database ke komponen Listview pada Visual Basic 6.0 (VB6) dengan bersifat dinamis. Jadi tidak ada masalah jika ada penambahan field-field pada tabel maka secara otomatis data baris dan column header ikut menyesuaikan.

Pertama buatlah database dan kemudian tabelnya, untuk praktik pada literatur kali ini admin menggunakan database MySQL Server

CREATE DATABASE `dbujian`
CHARACTER SET 'latin1'
COLLATE 'latin1_swedish_ci';

Selanjutnya buat juga tabel pada database tersebut diatas

CREATE TABLE `tblkelas` (
`KELAS` char(25) DEFAULT '-',
`WALI_KELAS` char(30) DEFAULT '-',
`ID` int(11) NOT NULL AUTO_INCREMENT,
UNIQUE KEY `ID` (`ID`)
) ENGINE=MyISAM AUTO_INCREMENT=1 DEFAULT CHARSET=latin1;

Setelah jadi sekarang coba inputkan tabel tblkelas diatas dengan Query dibawah ini

INSERT INTO `tblkelas` (`KELAS`, `WALI_KELAS`) VALUES
('IB','AHMAD BAIHAKI'),
('III-IPA-1','AHMAD SANTOSO'),
('IA','MILADIYAH'),
('III-IPS-1','AGUS SURATMAN'),
('IC','RIKO SUDRAJAT'),
('IIA','BUDI HARYANTO'),
('IIB','HARTADI'),
('IIC','HARTOYO'),
('ID','YUNILA WATI'),
('IID','DESMAN YUSRI');

Setelah semuanya ready langkah selanjutnya sahabat all-vb6 buka Ms. Visual Basic 6.0 kemudian buat sebuah form. Setelah itu masuk ke menu Project - References cari dan ceklis Microsoft ActiveX Data Objects 2.8 Library kemudian klik tombol OK.

Cara Menampilkan Data Ke Listview Secara Dinamis VB6

Kemudian kita akan menampilkan komponen Listview dengan cara masuk ke menu Project - Components, cari dan ceklis pada kota dialog komponen Microsoft Windows Common Control 6.0 (SP6) selanjutnya klik OK, seperti gambar dibawah ini

Tambahkan komponen lisview dan satu buah commandbutton pada form seperti gambar dibawah ini

Buatlah sub koneksi ke database seperti coding dibawah ini

Public CN As New ADODB.Connection
Sub Koneksi()
Dim NServer, NUser, nPass, NDatabase As String
NServer = "localhost"
NUser = "root"
nPass = ""
NDatabase = "dbujian"
CN.CursorLocation = adUseClient
CN.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=" & NServer & " ;" & _
"Port=3306;DATABASE=" & NDatabase & ";" & _
"UID=" & NUser & ";PWD=" & nPass & ";OPTION=3"
End Sub

Dan panggil sub koneksi diatas pada events Form_Load, jika tidak terjadi error maka koneksi database telah berhasil, kemudian buatlah juga sub untuk menampilkan data pada tabel mysql server ke komponen listview

Sub TampilData()
Dim xRsHeader As New ADODB.Recordset
Set xRsHeader = New ADODB.Recordset

On Error Resume Next
xRsHeader.Open "NILAI_PERMAPEL('" & cboTP & "','" & cboKelas & "')", CN, 1, 3
If Not xRsHeader.EOF Then
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim LI As ListItem

'TAMPILKAN FILED TABEL SEBAGAI COLUMN HEADER LISTVIEW
Dim A As Long
For A = 0 To xRsHeader.Fields.Count - 1
Set colNew = ListView1.ColumnHeaders.Add(, , xRsHeader(A).Name)
Next A
'---------------------------------------------------------------------------

If ListView1.ColumnHeaders.Count = 0 Then: Exit Sub

'AMBIL ROW (DATA PADA FIELD TABEL)
'DAN MENAMPILKAN SESUAI FIELD COLUMN HEADER DIATAS
Dim I As Long
Dim FldName As String
xRsHeader.MoveFirst
While Not xRsHeader.EOF
FldName = ListView1.ColumnHeaders(1).Text
Set LI = ListView1.ListItems.Add(, , xRsHeader.Fields(FldName) & "")
For I = 2 To ListView1.ColumnHeaders.Count
FldName = ListView1.ColumnHeaders(I)
LI.ListSubItems.Add , , xRsHeader.Fields(FldName) & ""
Next I
xRsHeader.MoveNext
Wend
'----------------------------------------------------------------------------------------
If Me.ListView1.ListItems.Count > 0 Then: Me.ListView1.SelectedItem.Selected = False
End If
If xRsHeader.State Then: xRsHeader.Close
Set xRsHeader = Nothing
End Sub

Double klik pada commandbutton dan panggil sub TampilData diatas pada events Click. Sekarang coba RUN/F5, maka layout tampilannya seperti gambar dibawah ini

Untuk lebih jelasnya source code diatas dapat didownload pada link ini dan admin ucapkan terima kasih banyak atas kunjungannya dan semoga dapat bermanfaat.

0 Response to "Cara Menampilkan Data Ke Listview Secara Dinamis VB6"

Post a Comment