ADO-SQL distinct ve sum birlikte kullanımı
#13
Merhaba.
Şimdi şöyle bir durum oluştu.
Kayıtların tekrar adetleride yazılabilirmi?
Sadece A sütunundaki isimler kaç defa tekrar olmuş.Bunları L sütunana ayni sorgu içinde olursa ,olmazsa sizin söylediğiniz bir yöntemle yazabilirmiyiz .Dosyayı ekliyorum.
Teşekkür ederim.Huh


Eklenti Dosyaları
.rar   Benzersiz_ado-sql_59.rar (Boyut: 11,5 KB / İndirilme: 7)



  Alıntı
Bu mesajı beğenenler:
#14
Merhaba;

Visual Basic
  1. Set rs = conn.Execute("Select baslik, sum(sayi),first(renk),last(kg),count(baslik) from[Sayfa1$] group by baslik;")


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#15
Sayın Orion;

Günaydın ve iyi haftalar..

Sayın Berkant Öztürk'ün kodunu nereye yazacağımı bilemedim.

Dosyanın son halini ekleyebilir misiniz?

Teşekkürler ve serinlikler..



  Alıntı
Bu mesajı beğenenler:
#16
(16-08-2010, 09:07)Berkant Öztürk demiş ki: Merhaba;

Visual Basic
  1. Set rs = conn.Execute("Select baslik, sum(sayi),first(renk),last(kg),count(baslik) from[Sayfa1$] group by baslik;")

Berkant bey teşekkür ederim.
Sorun halloldu.
İyi çalışmalar dilerim.Yes
(16-08-2010, 09:28)assenucler demiş ki: Sayın Orion;

Günaydın ve iyi haftalar..

Sayın Berkant Öztürk'ün kodunu nereye yazacağımı bilemedim.

Dosyanın son halini ekleyebilir misiniz?

Teşekkürler ve serinlikler..
Merhaba.
Dosya ektedir.Smile


Eklenti Dosyaları
.rar   Benzersiz_ado-sql_59.rar (Boyut: 11,61 KB / İndirilme: 6)



  Alıntı
Bu mesajı beğenenler:
#17
Merhaba.
Şimdide 2 sütunun toplamını alma konusunu yaptım.
A sütununda benzerleri teke indirip hepsinin B sütununu ve C sütununu toplayıp record sete alıyorum.
H:I sütunana aktarılıyor.
Daha önceki verdiğiniz kodlarda deneme yaparak sql cümlesinde oynayarak yeni kodu yazdım.
Acaba bakarmısınız bu deneme yanılma ile yaptığm kod doğrumudur.
Gerçi doğru sonucu veriyor ama üstadlardan kesin sonucu almak lazım.Smile

SQL
  1. SET rs = conn.EXECUTE("Select Cinsi,sum(mavi_Adet+Sari_Adet) from[Sayfa1$A1:C65536] group by Cinsi")



Visual Basic
  1. Sub ado_sql_iki_alani_Benzersiz_topla59()
  2. Dim conn As Object, rs As Object
  3. Set conn = CreateObject("AdoDb.Connection")
  4. Set rs = CreateObject("AdoDb.RecordSet")
  5. conn.Open ("Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes""")
  6. Set rs = conn.Execute("Select Cinsi,sum(mavi_Adet+Sari_Adet) from[Sayfa1$A1:C65536] group by Cinsi")
  7. Range("H2").CopyFromRecordset rs
  8. MsgBox "İşlem Tamam"
  9. End Sub




Eklenti Dosyaları
.rar   ado_sql_adet_toplamları_59.rar (Boyut: 9,7 KB / İndirilme: 7)



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

En doğru şekilde olmuş.. Elinize sağlık... Wink



  Alıntı
Bu mesajı beğenenler:


Foruma Git:


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