Kali ini saya akan mencoba untuk mempostingkan artikel yang berkaitan dengan Visual Basic. tentunya ini sangat penting bagi seorang programer dalam membuat sebuah program. karena dengan menggunakan ListView ini kita bisa melihat data. Apakah sudah masuk ke DataBase atau tidak.
Berikut Scrift untuk Menampilkan Data ListView :

Sub LoadData()
On error resume Next
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , "Kode", 0
    ListView1.ColumnHeaders.Add , , "Tanggal", 1000
    ListView1.ColumnHeaders.Add , , "Dari Poli", 1500

Dst…..

  
'On Error GoTo PTS2
Set Con1 = New Recordset
Con1.Open "Select ……;", db, adOpenStatic, adLockOptimistic
If Con1.RecordCount > 0 Then
    Do While Not Con1.EOF
     Set List = ListView1.ListItems.Add(, , Con1!kode)
    List.SubItems(1) = Con1!Tanggal
    List.SubItems(2) = Con1!poli
 dst    ….

   
    Con1.MoveNext
    Loop
End If

End Sub

Nah kiranya scrift nya cukup untuk programmer pemula... heheheh..
lebih lanjutnya lagi tinggal dipelajari kembali...