İstenen Kayda Konumlandırmak

[Çağrıbey]

Merhaba,

Delphi 7 ve AdoQuery kullanıyorum.
Sorum şu;

Data içerisinde diyelim ki 50 kayıt var,
Ben bu 50 kayıt içerisinde 42 nci kaydın aktif kayıt olmasını nasıl sağlayabilirim.

Çünkü, 42 nci kayıttan itibaren yapmam gereken işlemler var.

Bunu şu şekilde çözüyorum, ancak bu şekilde bir çözüm doğru sonuç vermekle birlikte profesyonelce gözükmüyor.

ToplamKayit:=AdoQuery1.recordCount
if ToplamKayit > 6 Then
Begin
AdoQuery1.Last;

AdoQuery1.Prior;
AdoQuery1.Prior;
AdoQuery1.Prior;
AdoQuery1.Prior;
AdoQuery1.Prior;
AdoQuery1.Prior;
End;

istediğim alana gelince o alandan itibaren de yapacağım işlerin kodunu yazıyorum.

[sabanakman]

Kod: Tümünü seç

DataSet.Last;
DataSet.MoveBy(-6);//-6 kayıt ileri yani 6 kayıt geri gider.

İyi çalışmalar.

[Çağrıbey]

Sayin Saban AKMAN,
verdiğiniz ip ucu, işime çok yaradı, teşekkür ederim.

[mepc]

dataset.recno:=42;

[rsimsek]

Belki RecNo ile kontrol edilebilirse de dediğiniz gibi profesyonelcesi bir SIRA_NO diye alan ekleyip her kayıtta 1 artırarak kaydedebilirsiniz. Böylece de istediğiniz kayıta daha garantili ulaşabilirsiniz.

Sizin dediğiniz yöntemde;

Kod: Tümünü seç

AdoQuery1.First;
while not AdoQuery1.EOF and AdoQuery1.RecNo < 42 do 
  AdoQuery1.Next;
// 42 den sonra yapılacak işlemler..

Dikkat edilmesi gereken bu RecNo ya fazla güvenmemek gerekir

[danaci]

kimse neden locate komutundan bahsetmiyor
sanırım locate komutu snein işini görecektir.