sorgulama hatası--çözüldü--

[otorun]

arkadaslar elimde bir sorgulama var ödeme şekline göre veritabanındada ödeme şekli var ve bunu bir combobox içine sıraladm nakit kredikartı ve çek diye yaız sorgulamada hata veriyor kodarı aşağıda veriyorum bakar ve yardım ederseniz sevinirim.Bu arada dbbase veritabanı kullanıyorum

Kod: Tümünü seç

Query1.close; 
Query1.sql.clear; 
if ComboBox1.Text = 'NAKİT' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK=NAKİT'); 
if ComboBox1.Text = 'KREDİ KARTI' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK=KREDİ KARTI');
if ComboBox1.Text = 'ÇEK' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK=ÇEK'); 
Query1.open;

[nitro]

Kod: Tümünü seç

Query1.close; 
Query1.sql.clear; 
if ComboBox1.Text = 'NAKİT' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK='+quotedstr('NAKİT')); 
if ComboBox1.Text = 'KREDİ KARTI' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK='+quotedstr('KREDİ KARTI')); 
if ComboBox1.Text = 'ÇEK' then Query1.Sql.Add('select * from tabloadi where ODEME_SEK='+quotedstr('ÇEK')); 
Query1.open;

olarak deneyin
kolay gelsin

[nitro]

Kod: Tümünü seç

Query1.close; 
Query1.sql.clear; 
Query1.Sql.Add('select * from tabloadi where ODEME_SEK='+quotedstr(combobox1.text)); 
Query1.open;

bu daha iyi bi kod oldu en azından gereksiz ifleri devre dışı bıraktık.

[y.kulac]

yada şöylede olabilir

Kod: Tümünü seç

if ComboBox1.Text = 'NAKİT' then 
begin
Query1.close;
Query1.sql.clear;
query1.sql.add('select * from tabloadi');
query1.sql.add('where ODEME_SEK =''NAKİT''');
Query1.open;
end
else 
if ComboBox1.Text = 'KREDİ KARTI' then 
begin
Query1.close;
Query1.sql.clear;
query1.sql.add('select * from tabloadi');
query1.sql.add('where ODEME_SEK =''KREDİ KARTI''');
Query1.open;
end
else
if ComboBox1.Text = 'ÇEK' then
begin
Query1.close;
Query1.sql.clear;
query1.sql.add('select * from tabloadi');
query1.sql.add('where ODEME_SEK =''ÇEK''');
Query1.open;
end;

kolay gelsin.