sorgu hatası

[zaxacm]

Aşağıdaki combobox a göre arama kodlarını kullandığımda şu hatayı alıyorum sorun nerde acaba?
Hata şöyle :
"like '%A%' sorgu ifadesi içindeki sözdizimi hatası(eksik ilgeç)


procedure TFana1.Edit1Change(Sender: TObject);
var kriter :string;
begin
Case combobox1.ItemIndex of
0 : kriter:='ad';
1 : kriter:='soyad' ;
2 : kriter:='tc' ;
end;
fdata.ADOQuery1.Close;
fdata.ADOQuery1.Sql.Clear;
fdata.ADOQuery1.Sql.Add('Select * From musteriler Where '+kriter+' like '+QuotedStr('%'+Trim(Edit1.Text)+'%'));
fdata.ADOQuery1.Open;
end;

TAŞIMA BİLGİSİ : Programlama formundan DİĞER VERİTABANLARI formuna taşınmıştır

[sabanakman]

Combobox değeri -1 olabilir mi? Eğer öyle ise kriter değişkeniniz gerekli değeri alamaz ve sorguda hata çıkabilir. Aslında kodlarınızda hata yok gibi ama benim aklıma bu nokta da hata çıkabilir diye geldi.

[rsimsek]

Veri tabanı nedir

@sabanakman ın dediği gibi kriter değişkeniniz değer almayabilir O kısmı şöyle değiştirip işi garanti edebilirsiniz;

Kod: Tümünü seç

...
Case combobox1.ItemIndex of
  0 : kriter:='ad';
  1 : kriter:='soyad' ;
  else
    kriter:='tc' ;
end; 
...

[zaxacm]

Çok teşekkürler -1 miş.Herkese iyi çalışmalar.