DBLookupComboBoxda arama yaptırmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
meric89
Üye
Mesajlar: 61
Kayıt: 01 Eki 2007 11:00
Konum: ANKARA

DBLookupComboBoxda arama yaptırmak

Mesaj gönderen meric89 »

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
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Hatayı yazsanız daha iyi olurdu,

AdoQuery ise

Kod: Tümünü seç

dm.dsetgelen.SelectSQL.Add
yerine

Kod: Tümünü seç

dm.dsetgelen.SQL.Add
kullanmayı denermisin.

ayrıca SQL cümlesinde de sanki bir hata var gibi.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

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')');
şunu denermisin
type
Tform1 = class(Tform)
Kullanıcı avatarı
meric89
Üye
Mesajlar: 61
Kayıt: 01 Eki 2007 11:00
Konum: ANKARA

Mesaj gönderen meric89 »

hocam yine hata veriyor
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Hatayı yaz o zaman kardeşim. :?
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
meric89
Üye
Mesajlar: 61
Kayıt: 01 Eki 2007 11:00
Konum: ANKARA

Mesaj gönderen meric89 »

teşekürler çözdüm problemimi :lol:
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Mesaj gönderen ikutluay »

meric89 yazdı:teşekürler çözdüm problemimi :lol:
arakadaşım nasıl çözdüğünü yazarsan ilerde başkalarıda faydalanır. sonuçta cam küremiz yok?
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
Kullanıcı avatarı
meric89
Üye
Mesajlar: 61
Kayıt: 01 Eki 2007 11:00
Konum: ANKARA

Mesaj gönderen meric89 »

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
Sözün en güzeli, söyleyenin doğru olarak söylediği, dinleyenin de yararlandığı sözdür
Cevapla