locate yerine sql kullanmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Mesaj gönderen ender_arslanturk »

bLue aLonE yazdı:Söylediklerimle bi bağlantı kuramadım :roll:
Table ile döngüye pek sokmaya gerek yok diye düşünüyorum... Aslında Normal locate gibi işlemlerin table ilede yapılabilir... Yukarıdaki mesajlarda Table yazılmadığı için yazmıştım...

Mesela;

Kod: Tümünü seç

if (Table1.Locate('Alanstring',edit1.text,[])and (Table1Alanstring.Text<>' :wink: ')) then
begin
.
.
.
.
Yani hem şartlı hemde tek komut ile ...
aLonE CoDeR
Kıdemli Üye
Mesajlar: 1223
Kayıt: 26 Nis 2005 04:08

Mesaj gönderen aLonE CoDeR »

Benim kasdettiğim, bir table bileşeni, locate ile arama yaptığınızda while not döngüsünü kullanıyor..Bunu sizin uygulamanızla, locate metodunu kullanmanız aranızda bir fark yok (sayılır..).
Kullanıcı avatarı
huseyinert
Üye
Mesajlar: 233
Kayıt: 19 Nis 2005 06:49
Konum: Bartın

Mesaj gönderen huseyinert »

ender hocam zaten tek kayda konumlanma var bu durumda locate kulanırsam örneğin 100 bin veya üstü kayıt içinde sorun çıkarması mümkün olabilirmi? yavaşmada aynı şekilde bu arada index te oluşturdum bu alanlara sonra alanlar numeric

tşk. ederim
"Kula bela gelmez Hak yazmayınca,Hak bela yazmaz kul azmayınca..." MEVLANA
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Mesaj gönderen ender_arslanturk »

huseyinert yazdı:ender hocam zaten tek kayda konumlanma var bu durumda locate kulanırsam örneğin 100 bin veya üstü kayıt içinde sorun çıkarması mümkün olabilirmi? yavaşmada aynı şekilde bu arada index te oluşturdum bu alanlara sonra alanlar numeric

tşk. ederim
İstersen hem locate ile bir deneme yap hem de sql cümlesi ile ...

Örnek kodlar en basitinden aşağıdaki gibi...

Kod: Tümünü seç

Label1.Caption:=timetostr(time);
if Query1.Locate('Sayi',edit1.text,[]) then 
begin 
. 
end;
Label2.Caption:=timetostr(time);

Kod: Tümünü seç

Label1.Caption:=timetostr(time);

...SQL.Add('Select* from Tablo where Sayi='+edit1.text);

Label2.Caption:=timetostr(time);

Şu an delphi kurulu değil bu pc mde , deneyemiyorum... :wink:

Birde imzamda test programı var... :wink:

Kolay gelsin...
Cevapla