Kod:
Private Sub listeyap()
With Me.ListView1
.Gridlines = True
.FullRowSelect = True
.View = lvwReport
.ListItems.Clear
.ColumnHeaders.Clear
End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "Kimlik", 0
.ColumnHeaders.Add , , "Hesap Grubu", 60
.ColumnHeaders.Add , , "Hesap Kodu", 60
.ColumnHeaders.Add , , "Hesap Adı", 130
.ColumnHeaders.Add , , "Türü", 30
.ColumnHeaders.Add , , "Hesap Açıklama", 370
.FullRowSelect = True
.Gridlines = True
End With
Dim umit As ListItem
On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\HesapPlani.accdb"
rs.Open "select * from [Hesap_Plani]", baglan, 1, 1
ListView1.ListItems.Clear
Dim satir As Integer
On Error Resume Next
If Not rs.EOF Then
Do While Not rs.EOF
Set umit = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
umit.SubItems(1) = rs.Fields("Tur")
umit.SubItems(2) = rs.Fields("Kod")
umit.SubItems(3) = rs.Fields("HesapAdi")
umit.SubItems(4) = rs.Fields("Csekil")
umit.SubItems(5) = rs.Fields("Hesap_aciklama")
rs.MoveNext
Refresh.ListView1
Loop
End If
rs.Close: con.Close
Set rs = Nothing
End Sub