coba pake coding di bawah ini.....
Public Function FillMyList(mlist As ListView, SQL As String, cn As
ADODB.Connection) As Boolean
Dim rs As New ADODB.Recordset, k As Integer
Dim itmX As ListItem
mlist.ListItems.Clear
mlist.View = lvwReport
mlist.FullRowSelect = True
mlist.GridLines = True
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
If mlist.ColumnHeaders.Count = 0 Then
For k = 0 To rs.Fields.Count - 1
mlist.ColumnHeaders.Add k + 1, , UCase(rs.Fields(k).Name),
Len(rs.Fields(k).Name) * 200
Next
End If
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
Set itmX = mlist.ListItems.Add(, , rs.Fields(0))
If rs.Fields.Count > 1 And mlist.ColumnHeaders.Count > rs.Fields.Count
Then
For k = 1 To rs.Fields.Count - 1
If Not IsNull(rs.Fields(k)) Then itmX.SubItems(k) = rs.Fields(k)
Next k
ElseIf rs.Fields.Count > 1 And mlist.ColumnHeaders.Count <=
rs.Fields.Count Then
For k = 1 To mlist.ColumnHeaders.Count - 1
If Not IsNull(rs.Fields(k)) Then itmX.SubItems(k) = rs.Fields(k)
Next k
End If
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
End Function
trus panggil pake
Call FillMyList(ListView1, "Select * from ITEM ", con)
con itu variabel connection dari database anda
semoga membantu
salam
den aly
"Purwedi
Kurniawan" To:
[email protected]
<purwedi.kurniawan cc:
@gmail.com> Subject: Re: [Programmer-VB]
Gimana sih codingnya membuat list view sebagai grid,
Sent by:
[EMAIL PROTECTED]
ogroups.com
02/27/2006 08:47
AM
Please respond to
Programmer-VB
kalau list view, harus di populate lagi seperti waktu ngisi pertama
kali mas, ga bisa otomatis.
best regards
[wwn]
On 2/25/06, robi alfian muhtar robi alfian muhtar <[EMAIL PROTECTED]>
wrote:hai teman teman,,,gimana caranya pada saat update record baru dapat
bertambah pada list view,, and pada saat delete record,,list view dapat
juga hilang
pliss yach...
Wahana Programmer Groups Links
SPONSORED LINKS
Programmer Indonesia Basic programming
language
Computer programming Programming Java programming
languages languages language
YAHOO! GROUPS LINKS
Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
