SQL Abfrage läuft nur langsam

[Tyrolean]

Zitat von simmi:

Wie kann dieser Vorgang beschleunigt werden????

Delphi-Quellcode:

procedure TForm1.RadioGroup2Click(Sender: TObject);
var bu : string;

begin
radioGroup1.Items.BeginUpdate; //NEU
radiogroup1.Items.Clear;
bu:=radiogroup2.Items[radiogroup2.ItemIndex];

DataModule1.SQLDataSet1.CommandText:=
    'select `dta_bezeichnung` from `bts_berufe` where `dta_bezeichnung` LIKE'+chr(39)+bu+'%'+chr(39);
DataModule1.SQLDataSet1.Open;

with DataModule1 do
  begin
   while not SQLDataSet1.Eof do
    begin
    radiogroup1.Items.Add(SQLDataSet1.FieldByName('dta_bezeichnung').AsString);
    SQLDataSet1.Next;
    end;
  end;
  DataModule1.SQLDataSet1.Active:=false;
end;
radioGroup1.Items.EndUpdate;  //NEU

Vielleicht mit Begin/EndUpdate