AccessTr.neT
SQL İle belirli sınırlı sayıda veri aktarmak. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: SQL (https://accesstr.net/forum-sql.html)
+--- Konu Başlığı: SQL İle belirli sınırlı sayıda veri aktarmak. (/konu-sql-ile-belirli-sinirli-sayida-veri-aktarmak.html)



SQL İle belirli sınırlı sayıda veri aktarmak. - alican60 - 10/10/2013

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.


Cvp: SQL İle belirli sınırlı sayıda veri aktarmak. - ozanakkaya - 11/10/2013

kodu aşağıdaki ile değiştirerek deneyiniz.

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