Access SQL   ›   MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   MICROSOFT OFFICE PROGRAMLARI   ›   EXCEL   ›   SQL İle belirli sınırlı sayıda veri aktarmak.

SQL İle belirli sınırlı sayıda veri aktarmak.
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
10-10-2013, 22:00 (En son düzenleme: 12-10-2013, 00:08 alican60.)
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.



  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#2
10-10-2013, 22:20
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
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
10-10-2013, 22:26
İ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.



  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#4
10-10-2013, 23:09
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



Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#5
11-10-2013, 06:39
Sayın Taruz Bey Allah razı olsun,uzun zamandır uğraşıyordum.Teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#6
11-10-2013, 21:57 (En son düzenleme: 12-10-2013, 00:19 alican60.)
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)



  Bul
  Alıntı
Bu mesajı beğenenler:


Foruma Git:


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