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