Menampilkan Data dengan List View

Buka Project Baru, tambahkan sebuah form baru, tambahkan kedalamnya sebuah listview dan sebuah command button lalu copy paste code dibawah ini :

Private Sub Command1_Click()

Adodc1.ConnectionString =  _
“Provider=Microsoft.Jet.OLEDB.4.0;” + _
“Data Source=” + App.Path + “\db5.mdb;Persist Security Info=False”
Adodc1.RecordSource = “Products”  ‘nama tabel
Adodc1.Refresh

‘set tampilan listview1
Dim fnt As New StdFont
fnt.Name = “Arial”
fnt.Size = 8

With ListView1
.View = lvwReport

.ColumnHeaders.Add , , “Product ID”, 1500
.ColumnHeaders.Add , , “Product Name”, 2500
.ColumnHeaders.Add , , “Supplier”, 1500
.ColumnHeaders.Add , , “Category”, 1500
.ColumnHeaders.Add , , “Qty / Unit”, 1000
.ColumnHeaders.Add , , “Price”, 1000, 1
.ColumnHeaders.Add , , “Stock”, 1000, 1
.ColumnHeaders.Add , , “Order”, 1000, 1

.GridLines = True ‘ tambahan grid, untuk versi 6 lebih lengkap propertiesnya, bisa dicoba sendiri
.MultiSelect = True
Set .Font = fnt
End With

‘mengisi listview
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
With ListView1
.ListItems.Add , , Adodc1.Recordset(0)
.ListItems(.ListItems.Count).SubItems(1) = _
Adodc1.Recordset(1)
.ListItems(.ListItems.Count).SubItems(2) =  _
Adodc1.Recordset(2)

End With
Adodc1.Recordset.MoveNext
Loop
End Sub

Contoh Projectnya dapat didownload disini : [ http://www.vbjadul.com/2010/06/menampilkan-data-dengan-listview-dan.html ]

4 Juni 2010 at 11:24 Tinggalkan komentar

Cara membuat Menu Pada Visual Basic 6.0

Visual Basic 6.0 menyediakan asilitas untuk membuat men. Sebagaimana telah diketahui bahwa menu adalah salah satu tool sederhana yang dapat digunakan untuk mempermudah navigasi pengoperasian sebuah aplikasi.

Kita akan belajar dari awal bagaimana membuat menu pada VB 6, pada dasarnya menu ini dapat diletakkan pada Form,  MDIForm dan User Control.

Langkah pertama tambahkan sebuah form/MDIForm, klik kanan pada area form tersebut, kemudian pilih Menu Editor (-atau melalui menuToolsMenu Editor), sehingga muncul seperti tampak pada gambar dibawah ini : (lebih…)

2 Juni 2010 at 15:29 4 komentar

Data-Edit-Grid

Data Edit Grid apa itu?component vb 6.0 yang baru ya?. Bukan itu hanya sekedar nama saja. soalnya saya bingung untuk judul postingan saya kali ini. Data Edit Grid bisa diartikan sebagai DataGrid yang dapat diedit, sebaiknya Anda membaca artikel saya sebelumnya yang berjudul “Edit text dan formula (operasi bilangan) pada Datagrid” code-code dalam artikel tersebut akan digunakan dalam pembahasan kali ini. (lebih…)

29 Mei 2010 at 16:23 Tinggalkan komentar

How to Sort Data on DataGrid with column header Click

Kali ini saya akan sedikit berbagi soal bagaimana mengurutkan data dari sebuah table yang ditampilkan dengan menggunakan datagrid control.
Buat project baru dan tambahkan satu buah form baru. Karena kali ini kita akan menggunakan Datagrid untuk menampilkan table, maka kita memerlukan control untuk koneksinya, biar mudah kita pakai saja ADODC
Untuk menambahkan 2 component diatas lakukan langkah-langkah sebagai berikut :
Klik menu>>Project>>Component … sehingga akan muncul form Components, berikan tanda check untuk dua component di atas seperti terlihat pada gambar dibawah ini.

(lebih…)

29 Mei 2010 at 15:51 1 komentar


Arsip

Pos-pos Terbaru

Feeds