Combobox içinde il ilçe listeleme

[aydogan46]

Merhabalar;
bir tabloda il ve ilce olmak üzere iki tane alan var ve veriler girilmiş durumda. örnek olarak
il ilce
samsun bafra
samsun çarşamba
ankara keçiören
ankara sincan

gibi. form üzerine yerleştirdiğim combobox in item özelliğinede il isimlerini elle girdim. yapmak istediğim combobox tan seçtiğim ilin ilçeleri ikinci bir combobox ta listelensin. kendi yadığım sorguyu çalıştırdığımda o ilin sadece ilk yazılan ilçesi geliyor.
yardımcı olursanız sevinirim.

[aslangeri]

s.a.
öncelikle tablonuzda ilid ve ilceid alanlarınında olması güzel olur demek istiyorum.
sonra il isimlerini manuel eklemenize gerek yok.

Kod: Tümünü seç

select distinct il from ilveilceler

komutu ile tablodaki illeri çekebilir ve bir döngü ile il comboboxuna atabilirsiniz.
ilceyi çekmek içinse

Kod: Tümünü seç

select ilce from ilveilceler where il=combboxdan seçilen il

komutu ile ilçeleri çeker ve onuda bir döngü ile ilce comboboxuna atarsınız.
kolay gelsin.

[bobasturk]

merhaba,

forumda freeman ustanın güzel bir örneği vardı hazır script halinde

kolay gelsin

[aydogan46]

yardımlarınız için teşekkür ederim. zaten şu kodla
procedure TForm1.ComboBox1Change(Sender: TObject);
var
ilc:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from tablo1 where il=:ill');
adoquery1.Parameters.ParamByName('ill').Value:=combobox1.Text;
adoquery1.Open;
memo1.Lines.Clear;
while not adoquery1.Eof do
begin
memo1.Lines.Add(adoquery1ilce.Value);
adoquery1.Next;
end;

end;
istediğim ilçeler memo alanına geliyor. benim istediğim combobox a nasıl aktarabilirim.

[aslangeri]

s.a.
arkadaşım o zaman sorunu o şekilde sorsana biz nerden bilelim senin memoya atıpda comboboxa atamıyacağını.
bizide kendinide uğraştırıyorsun....

memo1.lines yerine combobox1.items yazacaksın.

[ikutluay]

s.a.
arkadaşım o zaman sorunu o şekilde sorsana biz nerden bilelim senin memoya atıpda comboboxa atamıyacağını.
bizide kendinide uğraştırıyorsun....

memo1.lines yerine combobox1.items yazacaksın.

sihirli kristal küremize bakacağız tabiki

[aslangeri]

sihirli küre ramazan dolayısı ile çalışmıyor.... (pili bitti)

[aydogan46]

yardımlarınız için teşekkür ederim. ilk başta memo yu da yapamamıştım. sonra hallettim. sağolun.
procedure TForm1.ComboBox1Change(Sender: TObject);
var
ilc:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from tablo1 where il=:ill');
adoquery1.Parameters.ParamByName('ill').Value:=combobox1.Text;
adoquery1.Open;
combobox2.Items.Clear;
combobox2.Text:='';
while not adoquery1.Eof do
begin
combobox2.Items.Add(adoquery1ilce.Value) ;
adoquery1.Next;
end;
end;
(kızmasanız daha iyi bir uslup olurdu)

[aslangeri]

....
(kızmasanız daha iyi bir uslup olurdu)

evet haklısınız ama kendinizi bizim yerimize koysanız....
sorunuzu sorarken karşınızdaki kişinin sizin üzerinde çalıştığınız konu hakkında birşey bilmediğini önceden neleri deneyip neleri denemediğinizi bilemezki. Burda kendi vaktimizden ayırıp elimizden geldiğince diğer arkadaşlara yardımcı olmaya çalışıyoruz. Bu tip ufak şeyler üzücü oluyor....
iyi çalışmalar..