Skip to main content

AccessTr.neT


SQL İle belirli sınırlı sayıda veri aktarmak.

alican60
alican60
SQL
1
2067

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.
.rar SQL ÇALIŞMA.rar (Dosya Boyutu: 10,41 KB | İndirme Sayısı: 16)
Son Düzenleme: 13/10/2013, 22:52, Düzenleyen: alican60.
Cevapla
#2
kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
Sub sayı()

 
Sql = "SELECT aa.ADI AS gadi, aa.SOYADI AS gsoyadi, (select count(*) from [DATA$] where aa.SOYADI=SOYADI) AS accesstnet FROM [DATA$] AS aa;"
 
Set baglan = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
Call baglanti
rst.Open Sql, baglan, 1, 1
X = 1
Y = 1
Do While Not rst.EOF
 
    If rst(2) <= 5 Then
 
        X = X + 1
        If rst(2) <> 0 Then
        Sheets("Sayfa2").Cells(X, 1) = rst(0)
        Sheets("Sayfa2").Cells(X, 2) = rst(1)
        Sheets("Sayfa2").Cells(X, 3) = rst(2)
        End If
    Else
        Y = Y + 1
        Sheets("Sayfa3").Cells(Y, 1) = rst(0)
        Sheets("Sayfa3").Cells(Y, 2) = rst(1)
        Sheets("Sayfa3").Cells(Y, 3) = rst(2)
    End If
 
    rst.MoveNext
Loop
 
rst.Close
Set rst = Nothing




 
End Sub
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da