SQL İle belirli sınırlı sayıda veri aktarmak.
Tarih
10/10/2013 20:26
Konu Sahibi
alican60
Yorumlar
1
Okunma
1293
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



alican60
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... C....
116
29/12/2012
0
Tokat
-
Bugün,13:41
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.


Ek Dosyalar
.rar   SQL ÇALIŞMA.rar (Dosya Boyutu: 10,41 KB / İndirme Sayısı: 16)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.059
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:58
kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya