listview acces baglantısı

[uguristanbul]

Private Sub listeye_al()
ListView1.ListItems.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [komisyon]", baglan, 1, 1
With ListView1
.RowSource = Empty
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
With .ColumnHeaders
End With
rs.Close
Set rs = Nothing
End Sub
yukardaki kodlarla listview access komisyon dosyasından verileri listesin
istiyorum ama end sub kısmında hata veriyor
listview 12 kolon olup 1 nci kolonuda göstermemeli
yardım edecek arkadaslara simdiden tesekkurler

 

[Ferhat Pazarçevirdi]

Merhabalar,

Kodun hata vermemesi için; End With satırının altına bir End With daha yazın.

Hata vermeyecektir ama hiçbirşey de olmayacaktır.

Bu kodlar; eğer sorgu sonucu database'den veri gelirse; sadece bir Recordset nesnesi dolduruyor ve görünürde de bir Listview nesnesini boşaltıp bazı ayarlar yapıyor.. Başka da hiçbirşey yok.

Yani Listview'in doldurulması ile alakalı hiçbir komut yok...

Bilginize ..


.

 

[uguristanbul]

peki o zaman soyle sorayım
form icinde bir listview var ve acces komisyon dosyasından list viewe verileri almak icin ne yapmam lazım