borc-alacak sorgusunda hata

[otorun]

arkadaşlar benim elimde dbase veritabanı var ve veritabanımda borç ve alacak adında iki alan var ve ben bir combobox aracılığıyla borç seçilince dbgrid de borçları , alacak seçilincede alacakların listelenmesini istiyorum.
bunun için şu kodları yazdım ama hata veriyor yardımcı olursanız sevinirim.

Query1.close;
Query1.sql.clear;
Query1.Sql.Add('select * from tabloadi where BORC='+Quoedstr(ComboBox1.Text));
Queryq.open;

[ulu coder]

* yerine istediğiniz alanları yazmalısınız.

'select ALAN1, ALAN2, '+ComboBox1.Text+' from TABLOADI' gibi cümle üretmelisiniz.

[otorun]

Query1.close;
Query1.sql.clear;
Query1.Sql.Add('select BORC, ALACAK, '+ComboBox1.Text+' from TABLOADI' (ComboBox1.Text));
Queryq.open;

şeklindemi olmalı

[ulu coder]

cık, öyle değil.

Hangi alanları göstereceksen onları yazacaksın.
Az önce verdiğim örnekte Alan1, Alan2 ve combobox'da yazan alan seçilir.
* dediğinde tablonun tüm alanları seçilir.

[otorun]

dostum kafam karıştı ya kusura bakma tam anlayamadım şimdi ben normal sorgumu yazacam ama sadece senin verdiğin cümledeki gibi * da mı değişiklik yapacam yoksa * kullanmayacam mı kusura bakma kafam allak bullak

[otorun]

tamam dostum sanırım

Query1.close;
Query1.sql.clear;
Query1.Sql.Add('select BORC,ALACAK,'+ComboBox1.Text+'from tabloadi '+Quoedstr(ComboBox1.Text));
Queryq.open;

şeklinde olacak

[hbahadir]

ilk önce bir hata mesajı alıyorsanız hata mesajını lütfen tam olarak yazın ki kahinlik yapmak zorunda kalmayalım.

Soruna gelince benim anlayabildiğim kadarı ile

Kod: Tümünü seç

Query1.close; 
Query1.sql.clear; 
if ComboBox1.Text = 'BORÇ' then Query1.Sql.Add('select * from tabloadi where BORC>0'); 
if ComboBox1.Text = 'ALACAK' then Query1.Sql.Add('select * from tabloadi where ALACAK>0'); 
Queryq.open;

şeklinde kullanırsan problemin çözülür, ek olarak kodlarınızı da lütfen kod tagları içine yazınız...

[otorun]

teşekkürler hocam sorunum kodlarınız ile çözüldü bundan sonrada elimden geldiğince dedikleriize dikkat edeceğim tekrar teşekkür ederim