Listview'i doldurmak için kullandığım aşağıdaki kodu, doğrudan Sql sorgusu ile yapabilir miyim ?
Kullanılan Kod:
Kod:
Set bul = ThisWorkbook.Sheets("Yedek").Range("C:C").Find(ListView1.ListItems(i), , , 1)
If Not bul Is Nothing Then ListView1.ListItems(i).SubItems(3) = bul.Offset(0, -2).Value
Set bul = NothingTam olarak yapmak istediğim "Yedek" sayfasını yok ederek bilgileri Sql üzerinden almak.
Bunun için şöyle bir kod denedim.
Kod:
sorgu = "select FATIRS_NO,CARI_KODU,ACIKLAMA FROM SUMO_RPR_SIP"
rs.Open sorgu, cn, adOpenStatic
On Error Resume Next
If Not rs.EOF Then
Do While Not rs.EOF
For i = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(i) = rs.Fields("ACIKLAMA") Then
Me.ListView1.ListItems(i).SubItems(3) = "FATIRS_NO"
End If
Next i
rs.MoveNext
Refresh.ListView1
Loop
End If
rs.Close: cn.Close
Set rs = NothingNerde yanlış yapıyorum acaba ??
Şimdiden teşekkür eder , herkese sağlıklı günler dilerim.
Not: Dosyamda Sql bağlantısı olduğu için sizde çalışmayacaktır. Dolayısı ile örnek dosya paylaşamıyorum.
