sql sorguda sira no oluşturmak

[Orion1]

merhaba.
ado ile veri alırken a sütununa sıra no verdirmek nasıl yapılır?
Olması gereken şekli veri sayfasında gösterdim.Dosya ektedir.
Ben aşağadaki gibi yaptım ama olmadı.

rs.Open "select (sirano=sirano+1),ad,baslik1,baslik2 FROM[vt$]", conn, 1, 1

DOSYAYI İNDİR
.

 

[Haluk]

Evren Bey,

Kodunuzda CopyFromRecordset metodunu kullandığınız için, verileri aldığınız sayfada sıra numarası vermek için bir döngüye ihtiyaç bulunmakta.

Bunun için, kodunuzda aşağıdaki gibi bir değişiklik yaptım.

Sub verigetir_2()
    Dim conn As Object, rs As Object
    Set conn = CreateObject("Adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    
    Sheets("veri").Select
    Range("A2:D" & Rows.Count).ClearContents
    
    conn.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & _
            ";Extended Properties=""Excel 12.0;HDR=Yes"""
    rs.Open "select ad,baslik1,baslik2 FROM[vt$]", conn, 1, 1
    
    ActiveSheet.Range("B2").CopyFromRecordset rs
    
    For i = 1 To rs.RecordCount
        Range("A" & i + 1) = i
    Next
    
    rs.Close: conn.Close
    MsgBox "İşlem tamam"
End Sub

Veya; VT'de sıra numarası verip, verileri sıra numarasıyla birlikte aktarabilirsiniz.

 

[Orion1]

Haluk bey teşekkür ederim.
Ben döngüye girmeden sql sorguda halledebilirmiyiz diye düşünmüştüm.

 

[Haluk]

Tekrar merhaba;

Dediğim gibi, kullandığınız metodun özelliği nedeniye, RecordSet nesnesindeki tüm verileri tek seferde aldığınız için döngü kullanmıyorsunuz. Bu nedenle, VT'de olmayan sıra numarasını almak için mecburen bir döngü kurmak gerekiyor.

Ya da, önceki mesajımda dediğim gibi; VT'de sıra numarasını verip, verileri o şekilde alabilirsiniz.

Benim bildiğim bu kadar, daha başka bir şey yapılabilir mi bilemiyorum.

iyi akşamlar,

.

 

[Orion1]

Tekrar merhaba;

Dediğim gibi, kullandığınız metodun özelliği nedeniye, RecordSet nesnesindeki tüm verileri tek seferde aldığınız için döngü kullanmıyorsunuz. Bu nedenle, VT'de olmayan sıra numarasını almak için mecburen bir döngü kurmak gerekiyor.

Ya da, önceki mesajımda dediğim gibi; VT'de sıra numarasını verip, verileri o şekilde alabilirsiniz.

Benim bildiğim bu kadar, daha başka bir şey yapılabilir mi bilemiyorum.

iyi akşamlar,

.

Anladım hocam.İyi akşamlar.

 

[Haluk]

Evren Bey;

Önerdiğim koddaki For-Next döngüsü yerine, aşağıdaki satır da bu işi çözer.

Range("A2:A" & RS.RecordCount + 1).Formula = "=Row()-1"

.

 

[Orion1]

Evren Bey;

Önerdiğim koddaki For-Next döngüsü yerine, aşağıdaki satır da bu işi çözer.

Range("A2:A" & RS.RecordCount + 1).Formula = "=Row()-1"

.

Teşekkür ederim hocam.İyi geceler.:hey: