2 tablodan veri çekmek filtrelemek ve comboboxda göstermek

[kazimates]

merhabalar,
umarım tam olara anlatabilirim. 2 tablom var birisi marka diğeride model bilgilerini saklıyor.
markatable (kayitid, markadi)
modeltable (kayitid, markareferans, modeladi)

formumda marka ismin yazdığımda bu markaya ait modelleri modeltablosundan bakıp bulup sadece bu markayaait modelleri bi comboboxda listelemk istiyorum bunu tam olarak nasıl bir kodla yapabilirim. yardımcı olbilirseniz çok memnun olurum.

İyi çalışmalar...

[unicorn64]

Kod: Tümünü seç

SELECT M2.MODELADI FROM MODELTABLE M2
INNER JOIN MARKATABLE M1 ON M1.KAYITID=M2.MARKAREFERANS
WHERE M1.MARKAADI='herneyse'

[kazimates]

maesef bu kodun ürettiği değeri nasıl comboboxun item ınaekleyebileceğimi bulamdım. tekrar yardımda blunablirmisiniz acaba.

[unicorn64]

hımm eğer delphiyle yada daha genel olarak programlamayla hobi olarak uğraşmıyorsanız bir kitap edinmenizi tavsiye ederim haddim olmayarak.

veri tabanınızın MSSQL ya da access olduğunu varsayarak ADOQuery nesnesi kullanarak şöyle bir kod yazabiliriz;
formunuza bir ADOQuery ekleyin bağlantılarını yapın, ismine qFiltrele diyelim,combobox ın adı da cbxModeller ise;

Kod: Tümünü seç

procedure Filtrele(marka:string);
begin
  qFiltrele.close;
  qFiltrele.sql.clear;
  qFiltrele.sql.add('SELECT M2.MODELADI FROM MODELTABLE M2');
  qFiltrele.sql.add('INNER JOIN MARKATABLE M1 ON M1.KAYITID=M2.MARKAREFERANS');
  qFiltrele.sql.add('WHERE M1.MARKAADI='''+marka+'''');
  qFiltrele.open;
  
  cbxModeller.items.clear;
  
  while not qFiltrele.eof do
  begin
     cboxModeller.items.add(qFiltrele.FieldByName('MODELADI').asstring);
     qFiltrele.Next;
  end;

end;

[kazimates]

bu kodla işim halloldu çok teşekkür ederim.