SQL Filtreleme

[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

[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.