DBLookupComboBoxda arama yaptırmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
DBLookupComboBoxda arama yaptırmak
arkadaşlar ben DBLookupComboBoxdan sectiğim veririnin tabloda kaçtane oldugunu bulmak istiyorum yani seçtiğimde sacdece personel şubesinin kayıtlarını gridde göstermek istiyorum ama hata veriyor
b:=DBLookupComboBox1.Text;
dm.dsetgelen.Close;
dm.dsetgelen.SelectSQL.Clear;
dm.dsetgelen.SelectSQL.Add('select * from gelenevrak k');
dm.dsetgelen.SelectSQL.Add('where k.nereyeyazildi=(select s.id from sube s where s.subeadi=:'+b+')');
dm.dsetgelen.Open;
yazdığım kod bu ama çalışmıyor nerde hata yapıyorum birde ben bu işlemi checkboxa bağladım yani checkbox checked edildiğinde işlem yapacak ondanda kaynaklana bilirmi şimdiden teşekürler
b:=DBLookupComboBox1.Text;
dm.dsetgelen.Close;
dm.dsetgelen.SelectSQL.Clear;
dm.dsetgelen.SelectSQL.Add('select * from gelenevrak k');
dm.dsetgelen.SelectSQL.Add('where k.nereyeyazildi=(select s.id from sube s where s.subeadi=:'+b+')');
dm.dsetgelen.Open;
yazdığım kod bu ama çalışmıyor nerde hata yapıyorum birde ben bu işlemi checkboxa bağladım yani checkbox checked edildiğinde işlem yapacak ondanda kaynaklana bilirmi şimdiden teşekürler
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür
Hatayı yazsanız daha iyi olurdu,
AdoQuery ise yerine
kullanmayı denermisin.
ayrıca SQL cümlesinde de sanki bir hata var gibi.
AdoQuery ise
Kod: Tümünü seç
dm.dsetgelen.SelectSQL.Add
Kod: Tümünü seç
dm.dsetgelen.SQL.Add
ayrıca SQL cümlesinde de sanki bir hata var gibi.
Bir kelimenin anlamını öğretsen bile yeter..



-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
Kod: Tümünü seç
dm.dsetgelen.SQL.Add('select * from gelenevrak k');
dm.dsetgelen.SQL.Add('where k.nereyeyazildi=(select s.id from sube s where s.subeadi=:'b')');
type
Tform1 = class(Tform)
Tform1 = class(Tform)
arakadaşım nasıl çözdüğünü yazarsan ilerde başkalarıda faydalanır. sonuçta cam küremiz yok?meric89 yazdı:teşekürler çözdüm problemimi
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
a:=inttostr(DBLookupComboBox2.KeyValue);
dm.dsetgiden.Close;
dm.dsetgiden.SelectSQL.Clear;
dm.dsetgiden.SelectSQL.Add('select g.*, c.cinsadi from gidenevrak g');
dm.dsetgiden.SelectSQL.Add('left join cins c on (c.id=g.cinsi)');
dm.dsetgiden.SelectSQL.Add('where g.cinsi='+#39+a+#39);
dm.dsetgiden.Open;
close;
böyle çözdüm herkese kolay gelsin
dm.dsetgiden.Close;
dm.dsetgiden.SelectSQL.Clear;
dm.dsetgiden.SelectSQL.Add('select g.*, c.cinsadi from gidenevrak g');
dm.dsetgiden.SelectSQL.Add('left join cins c on (c.id=g.cinsi)');
dm.dsetgiden.SelectSQL.Add('where g.cinsi='+#39+a+#39);
dm.dsetgiden.Open;
close;
böyle çözdüm herkese kolay gelsin
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür