Recordset Sıra Numarası

[Recep İpek]

Merhaba,

Açıkcası fazla bilgim yok ama recordset oluştururken ilk alana "Sıra No" ekleyebilirmiyiz?

Örneğin ;

SQLStr="Select sicilno,adi,soyadi,giris From Personel"

sorgulamasında

SQLStr="Select sirano, sicilno,adi,soyadi,giris From Personel"

eklemek istiyorum.

Bilgileri excel sayfasına alıncada sıra no verebiliyorum, fakat kısa yoldan bir çözüm arıyorum.

 

[Haluk]

Veri tabanında SiraNo diye bir alan açsanız olmuyor mu ?

 

[Recep İpek]

DBASE veritabanından veri alıyorum.Hazırlayan kişide yok.

Ayrıca grup bazında bazı bilgiler de alıyorum.Bunlara da yeniden sıra numarası verilmesi gerekebilir.

 

[Zeki Gürsoy]

Merhaba,

Açıkcası fazla bilgim yok ama recordset oluştururken ilk alana "Sıra No" ekleyebilirmiyiz?

Örneğin ;

SQLStr="Select sicilno,adi,soyadi,giris From Personel"

sorgulamasında

SQLStr="Select sirano, sicilno,adi,soyadi,giris From Personel"

eklemek istiyorum.

Bilgileri excel sayfasına alıncada sıra no verebiliyorum, fakat kısa yoldan bir çözüm arıyorum.

Selam,

Aslında çok kolaymış, Delphi forumlarında Firebird başlıklarını incelerken tesadüfen karşılaştım. Deneyin..

SELECT
(SELECT (*) FROM Personel A WHERE A.adi <= B.adi) AS sirano, sicilno, adi, soyadi, giris 
FROM Personel B
ORDER BY B.sicilno

 

[Recep İpek]

Bir türlü kendime göre uyarlayamadım.

A.adi <= B.adi b&#246;l&#252;m&#252;nde yanl&#305;&#351;l&#305;k olabilir mi?

 

[Zeki Gürsoy]

Asl&#305;nda sorun olmaz s&#305;ralamalar&#305; kar&#351;&#305;la&#351;t&#305;r&#305;yor. M&#252;kerrer oldu&#287;unda do&#287;ru numaralama olmayabilir.

E&#287;er "sicil" s&#252;tunu m&#252;kerrer de&#287;ilse "sicil" olarak de&#287;i&#351;tirin.

 

[Rafet]

Merhaba,

SQLStr="Select sicilno,adi,soyadi,giris From Personel"

sorgulamas&#305;nda

SQLStr="Select sirano, sicilno,adi,soyadi,giris From Personel"

eklemek istiyorum.

Sutun eklemek derken bo&#351; bir sutun eklenmesini mi istiyorsunuz?

Select ' ' sirano ,sicilno,adi,soyadi,giris From Personel

iki tane tek t&#305;rnak kullanarak bo&#351; bir sutun ekleye bilirsiniz.

Ben b&#246;yle bir sorun ya&#351;am&#305;&#351; bo&#351; bir sutuna ihtiyac duymultum. Belki ayn&#305; ihtiya&#231;t&#305;r d&#305;ye d&#252;&#351;&#252;nd&#252;m.
Ben cari ekstra al&#305;rken bakiye i&#231;in bo&#351; bir sutun acm&#305;&#351; bakiyeyi excelde hesaplatm&#305;&#351;t&#305;m.

Kolay gelsin.

 

[Recep İpek]

Boş bir sütun açıp, bu sütunda 1,2,3,4,.... seklinde sıra numarası göstermek istemiştim.

Şimdilik problemi aşağıdaki şekilde çözdüm.Sizin söylediğiniz yöntemde başka bir durumda işime yarayacak.Teşekkürler.

'......
If Kayit1.RecordCount > 0 Then
            Range("a3:f65536").ClearContents
             bas = 2
            Kayit1.MoveFirst
            For i = 1 To Kayit1.RecordCount
               Cells(bas + i, 1) = Kayit1.AbsolutePosition
               Cells(bas + i, 2) = Kayit1.Fields("SICIL_NO") * 1
               Cells(bas + i, 3) = Kayit1.Fields("ADI")
               Cells(bas + i, 4) = Kayit1.Fields("SOYADI")
               Cells(bas + i, 5) = Format(Kayit1.Fields("GIRIS"), "dd.mm.yyyy")
               Cells(bas + i, 6) = Format(Kayit1.Fields("SAAT"), "hh:mm")
               Kayit1.MoveNext
            Next i
            Kayit1.MoveFirst
            MsgBox "İşlem Başarıyla Tamamlandı.", vbInformation, "Bilgi"
        Else
        MsgBox "Veritabanında Kayıt Bulunamadı.", vbInformation, "Bilgi"
   End If