Query und FindNearest

[WEBSTER]

Salute,

die andere Lösung habe ich schon, nur leider dauer die mir zu lange.

Code:

procedure TLuftfrachtauftraege_auswahl_Form.auftrag_suchen_EditChange(  
   Sender: TObject);  
begin  
   
   //////////////////////////////////////////////////////////////////////////////  
   // Alle Luftfrachspeditionsaufträge werden dargestellt  

 
   str_sql := 'Select a.Auftraggeber,a.Abhol,a.HZiel,a.Liefer,a.LZiel,a.AbholDat1,a.ErledigtAm,a.AuftragsDat,a.RechNr,';  
   str_sql := str_sql + 'l.awb,l.auftragnr from luftfracht_auftrag l, auftrag a where l.auftragnr= a.auftragnr';  
   str_sql := str_sql + ' and Upper(AWB) like ' + chr(39) + auftrag_suchen_Edit.Text + '%' + chr(39) + ' ';  
   str_sql := str_sql + ' order by awb;';  

 
   Screen.Cursor := crHourglass;  

 
   tmp_DataSource.DataSet := tmp_query;  
   tmp_query.Close;  
   tmp_query.sql.clear;  
   tmp_query.SQL.Add(str_sql);  
   try  
      tmp_query.Open;  
   except  
   end;  
   tmp_DataSource.DataSet.First;  

 
   Screen.Cursor := crDefault;  
end;

Die Attribute awb und l.auftragnr und a.auftragnr haben bereits einen Index. Leider dauert der Select jeweils (bei jedem Tastaturanschlag) ca 1,5 Sekunden. Und das ist einfach zu lange. Als DB habe ich leider Paradox. Mit mir kommt es immer so vor, als würde der Index nicht genommen.......


WEBSTER