(30/06/2021, 15:55)berduş yazdı: yanılmıyorsam daha önce excelden veri almayla ilgili bir sorunuzda kapalı excelden nasıl veri alınacağını göstermiştik forumda da benzer örnekler var onları kullanarak veri recordset ile anlık olarak alınabilir ama daha anlamlı bir yardım için örnek dosyaya ve daha ayrıntılı bir açıklamaya ihtiyaç var.
Üstad kapalı dosyadan veri alma işini öğrendim ve uyguladım. Onda problem yok.
Benim öğrenmek istediğim aşağıdaki kod neden yavaş çalışır. Dosya eklesemde sizde çalışmayacak hocam. Yine de ekleyin derseniz örnek bir dosya eklerim.
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 = Nothing