A.S.C Filtre, Grafik ve Raporlama Eklentisi

SQL İle belirli sınırlı sayıda veri aktarmak.
#1
C sütunundaki aynı soyisme sahip 5 satırı sayfa2 ye , 5 ten fazla ise 5 ten fazla olan (6.7.....aynı soyisim) aynı soyisme sahip satırı sayfa 3 e Sql ile nasıl aktarabilirim.



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

Bu aşamadaki sorun tam olarak nedir anlamadım ama bir üst satırdan yazmaya başlaması dışında bir problem görünmüyor..

Eğer amacınız başlık sonrası yazdırmak ise


Do While Not rst.EOF

bu satırın bir üstünde değişken değerini 1'den başlatarak yapabilirsiniz..:

X = 1
Y = 1



  Alıntı
Bu mesajı beğenenler:
#3
İyi akşamlar.Benim kodlar tam istediğimi karşılamıyor,istediğim ise ;
Sayfa1 de aynı soyisme sahip veri sayısı 5 den fazla ise ilk 5 tanesini Sayfa1 e ,sonraki 5 den fazla olan aynı soyisme sahip verileri sayfa2 ye aktarmak istiyorum.Örnek dosyamda istediğim hali var.



  Alıntı
Bu mesajı beğenenler:
#4
Oooo soru umduğumdan da güzelmiş.. Wink

Sorgunuz böyle olmalı..:

Visual Basic
  1. Sql = "select [NO], ADI, SOYADI, " _
  2. & " (select count(*) from [DATA$] where tt.SOYADI=SOYADI and tt.[no]>=[no]) as trz FROM [DATA$] as tt"



Bir iç sorgu ile istediğiniz kriterleri işleyecek hale getirdikten sonra sayfalara dağıtabiliriz..

Prosedürün tamamı..:

Visual Basic
  1. Sql = "select [NO], ADI, SOYADI, " _
  2. & " (select count(*) from [DATA$] where tt.SOYADI=SOYADI and tt.[no]>=[no]) as trz FROM [DATA$] as tt"
  3.  
  4. Set baglan = CreateObject("adodb.connection")
  5. Set rst = CreateObject("adodb.recordset")
  6. Call baglanti
  7. rst.Open Sql, baglan, 1, 1
  8. X = 1
  9. Y = 1
  10. Do While Not rst.EOF
  11.  
  12. If rst(3) <= 5 Then
  13.  
  14. X = X + 1
  15. Sheets("Sayfa2").Cells(X, 1) = rst(0)
  16. Sheets("Sayfa2").Cells(X, 2) = rst(1)
  17. Sheets("Sayfa2").Cells(X, 3) = rst(2)
  18. Else
  19. Y = Y + 1
  20. Sheets("Sayfa3").Cells(Y, 1) = rst(0)
  21. Sheets("Sayfa3").Cells(Y, 2) = rst(1)
  22. Sheets("Sayfa3").Cells(Y, 3) = rst(2)
  23. End If
  24.  
  25. rst.MoveNext
  26. Loop
  27.  
  28. rst.Close
  29. Set rst = Nothing






  Alıntı
Bu mesajı beğenenler:
#5
Sayın Taruz Bey Allah razı olsun,uzun zamandır uğraşıyordum.Teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#6
Hocam pekala NO sütunu yerine rakam içermeyen bir sütun olsaydı (mesela ADRES sütunu)nasıl yapabilirdik.Dosyayı yeniden güncelledim.


Eklenti Dosyaları
.rar   SQL ÇALIŞMA.rar (Boyut: 10,41 KB / İndirilme: 11)



  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi