SQL Filtreleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

SQL Filtreleme

Mesaj gönderen erdogan_ozkaya »

Arkadaşlar aşağıdaki kod MSSQL de çalışıyor fakat MSQL de çalışmıyor ve burda veri tabanında kayıt çok olduğu için açıp kapatmada çok ağır çalışıyor daha kullanışlı bir filreleme bilen arkadaş varsa paylaşırsa sevinirim.

Kod: Tümünü seç

procedure TSIPARIS_FIRMA_SEC.Edit1Change(Sender: TObject);
begin
    PROJE_SEC_DB.Close;
    PROJE_SEC_DB.SQL.Clear;
    PROJE_SEC_DB.SQL.Add('select * from proje_kayit where Proje_Adi Like "%'+Trim(Edit1.Text)+'%"');
    PROJE_SEC_DB.SQL.Add(' AND (Calisilan_Firma = "' + ANA_PENCERE.edit1.text + '")');
    if ANA_PENCERE.Edit8.Text<>'Yönetici' then
    PROJE_SEC_DB.SQL.Add(' AND (Gentas_Musteri_Temsilcisi_ID = "' + ANA_PENCERE.edit11.text + '")');
    PROJE_SEC_DB.SQL.add('Order By  Proje_Adi ASC');
    PROJE_SEC_DB.Open;
    PROJE_SEC_DB.First;
    Caption:='Bulunan Kayıt : '+PROJE_SEC_DB.FieldByName('Proje_Adi').AsString;
end;
teşekkürler
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Re: SQL Filtreleme

Mesaj gönderen mussimsek »

Uygun bir indeks eklemek olayı çok fazla hızlandırabilir. Sadece "Calisilan_Firma" alanına indeks ekleyip bir deneyin. Where kısmındaki her iki alana da indeks ekleyip bir deneyin. Uygun olanı bırakır, diğerlerini silersiniz.

Kolay gelsin.
Cevapla