coba perintah ini copy paste fungsi ini
'---------'
Public Function showLVIEW(ByVal LV As ListView, ByVal SQL As String)
Dim Rs As ADODB.Recordset
Dim I As Integer
Dim sItem As ListItem
Dim itmSHOW
Set Rs = New ADODB.Recordset
Rs.Open SQL, cnDB, adOpenStatic, adLockPessimistic
DoEvents
LV.ListItems.Clear
Do While Not Rs.EOF
Set sItem = LV.ListItems.Add(, , UCase(Rs(0)))
For I = 1 To LV.ColumnHeaders.Count - 1
itmSHOW = IIf(IsNull(UCase(Rs(I))), "-", UCase(Rs(I)))
If LV.ColumnHeaders(I + 1).Tag = "nNUM" Then itmSHOW =
FormatNumber(itmSHOW, 2)
sItem.SubItems(I) = itmSHOW
Next I
Rs.MoveNext
Loop
Set Rs = Nothing
End Function
salam,
Jemy
----- Original Message -----
From: SELVI OYE
To: [email protected]
Sent: Friday, November 16, 2007 3:14 PM
Subject: [indoprog-vb] List View di VB
sampurasun,
para pakar VB, aku mo tanya bagaimana menampilkan data dari acces ke listview
tanpa menggunakan modul?
tolong kasih contohnya dong.
thanks ya
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
