Sorgu Problemi

[yokname]

Arkadaşlar ben dblookupcombobox ile bolum_Ad larına gore ogrenci tablosundan listeleme yapmak istiyorum.ama bu kodu yazdığımda hiç sonuç dönmüyor sorun büyük ihtimalle 2. select te ama çözemedim
Yardımlarınızı bekliyorum.
Teşekkür ederim

Kod: Tümünü seç

  SelectSQL.Clear;
  Close;
  SelectSQL.Add('select * from ogrenci');
  SelectSQL.Add('where bolum_no=(select bolum_no from bolum where bolum_adi=:bolum_adi)');
  open;

[naile]

"=" yerine "in" kullanın.

[yokname]

Maalesef sonuç aynı yine boş çıkıyor.

[mkysoft]

bu sorguda bir eksiklik var. bu şekilde yazarsan tüm kayıtlar gelir. tam olarak ne yapmak istediğni yazarsan iyi olur.

Kod: Tümünü seç

bolum_Ad larına gore ogrenci tablosundan listeleme yapmak 

belirli bir bölümde olan öğrencilerin listesini mi kastettin acaba? tahiminime göre lookupcomboxda bölüm adları var ve sen bu bölümde okuyan öğrencilerin listesini almak istiyorsun. o zaman şöyle bir kod yazmalısın.

SelectSQL.Clear;
Close;
SelectSQL.Add('select * from ogrenci');
SelectSQL.Add('where bolum_no=(select bolum_no from bolum where bolum_adi=:'+lookupcombox.text+')');
open;

[yokname]

Evet tam olarak yapmak istediğim bu soylediğin şekilde de denedim ancak aynı sonuçla karşılaştım

Kod: Tümünü seç

 dm.dset_ogrenci.SelectSQL.Clear;
  dm.dset_ogrenci.Close;
  dm.dset_ogrenci.SelectSQL.Add('select * from ogrenci');
  dm.dset_ogrenci.SelectSQL.Add('where bolum_no in(select bolum_no from bolum where bolum_adi=:'+dblookupcombobox1.text+')');
  dm.dset_ogrenci.open;

Yardımlarınızı bekliyorum...

[bobasturk]

Merhaba,

Forumda yapacağın Arama sonucunda pekçok sonuç dönecektir

Ben şöyle yapıyorum

Kod: Tümünü seç

var
  tarih1,tarih2:tdate;
  begin
    ibquery1.close;
    ibquery1.sql.clear;
    ibquery1.sql.add('select from RAPORLAR');
    ibquery1.sql.add('where INCTARIHI Between :tarih1 and tarih2 and ISTOLYTURU=:ISTOLAYTURU'):
    ibquery1.parambyname('tarih1').asdate:=datetimepicker1.date;
    ibquery1.parambyname('tarih2').asdate:=datetimepicker2.date;
    ibquery1.parambyname('ISTOLYTURU').asstring:=dblookupcombobox1.text;
    ibquery1.open

dediğim gibi forumda arama sonucunda pek çok iyi ve güzel örnekler cevaplar bulacaksın

kolay gelsin

[bobasturk]

valla çok utandım sayfa açık kaldığı için cevapları görmemişim. ustalardan özür dilerim.

[yokname]

Çok teşekkürler dalgınlıktan 2 saattir uğraşıyorum bu dolu kafaya arama falan kar etmez tekrar teşekkürler

Kod: Tümünü seç

 dm.dset_ogrenci.SelectSQL.Clear;
  dm.dset_ogrenci.Close;
  dm.dset_ogrenci.SelectSQL.Add('select * from ogrenci');
  dm.dset_ogrenci.SelectSQL.Add('where bolum_no =(select bolum_no from bolum where bolum_adi=:bolum_adi)');
  dm.dset_ogrenci.ParamByName('bolum_Adi').asstring:=dblookupcombobox1.Text;
  dm.dset_ogrenci.open;

[mkysoft]

tırnakları yazmayı unuttuğumdan çalışmamıi tabiki. params ilede yapabilirsin. bu kısım

bolum_adi=:'+lookupcombox.text+')');

şu şekilde olmalıydı

bolum_adi=:'''+lookupcombox.text+''')');

özür

[rsimsek]

Kod: Tümünü seç

  SelectSQL.Clear;
  Close;
  SelectSQL.Add('select * from ogrenci');
  SelectSQL.Add('where bolum_no=(select bolum_no from bolum where bolum_adi=:bolum_adi)');
  open;

Eksikliği yazarsak iyi olur :bolum_adi için Open dan önce

Kod: Tümünü seç

dm.dset_ogrenci.ParamByName('bolum_Adi').asstring:=dblookupcombobox1.Text;

Parametreyi vermeyi unutmuş