ja gut, also nächste frage.... wie greift man auf den index einer combobox zu? also mit einer ComboBox soll die suchgenauigkeit bestimmt werden, die items sind in dieser reihenfolge reingeschrieben:
genau
ähnlich
nur Anfang
nur Endung
der Quelltext dazu sieht so aus:
Delphi-Quellcode:
if form2.ComboBox2.ItemIndex = 2
then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text := 'SELECT * FROM TTitelaufnahme WHERE (Autor LIKE'
+ QuotedStr ('%' + form2.edit1.text + '%')
+ ')';
AdoQuery1.Open;
end;
if form2.ComboBox2.ItemIndex = 1
then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text := 'SELECT * FROM TTitelaufnahme WHERE (Autor LIKE'
+ QuotedStr (form2.edit1.text)
+ ')';
AdoQuery1.Open;
end;
if form2.ComboBox2.ItemIndex = 3
then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text := 'SELECT * FROM TTitelaufnahme WHERE (Autor LIKE'
+ QuotedStr (form2.edit1.text + '%')
+ ')';
AdoQuery1.Open;
end;
if form2.ComboBox2.ItemIndex = 4
then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text := 'SELECT * FROM TTitelaufnahme WHERE (Autor LIKE'
+ QuotedStr ('%' + form2.edit1.text)
+ ')';
AdoQuery1.Open;
end;
nur irgendwie findet er nur bei 'nur Anfang' (also wie ich denke index 3) was. des weiteren soll durch eine weitere ComboBox bestimmt werden ob nach Autor oder Titel gesucht werden soll. Wie kriege ich nun den zum Index gehörigen String, so dass ich es in die Abfrage einbauen kann?