Comboboxa Veritabanından Bilgi Alma

[gunes20000]

Kolay gelsin
Form1 e bir combobox koydum.
Form2 deki table1 deki tanim alanındaki girilen verileri bu comboboxa tıkladığımızda görmek istiyorum.
yardımcı olabilirseniz sevinirim.

[yhackup]

--Form2 deki table1 deki tanim alanındaki girilen verileri -- bu veriler databasede mi tutuluyor

[gunes20000]

evet marka isimli bir veritabanında tutuluyor

[yhackup]

Form1 create veya show 'da databaseden kayıtları çekip döngü ile comboboxa ekleyebilirsin.

Kod: Tümünü seç

  
  try
    myq.Close;
    myq.SQL.Clear;
    myq.SQL.Add('SELECT Firma FROM uzak WHERE durum="Aktif" order by Firma');
    myq.Open;
    while not myq.Eof do
    begin
      ComboBox1.Items.Add(myq.FieldByName('Firma').AsString);
      myq.Next;
    end;
  finally
    myq.Free;
  end;

[gunes20000]

Verdiğiniz Kodu uyguladığımda hata verdi. benim daha önce kullandığım kodu aşağıya yazıyorum. bu kodu combobox ın onchange olayına yazdım ama veriyi bir türlü getiremedim. hatamın nerede olduğunu söylerseniz sevinirim. kolay gelsin..

Query1.Close;
Query1.DatabaseName:=form2.Table1.DatabaseName;
Query1.SQL.Text:='select * from marka where Tanim="'+ComboBox1.Text+'"';
Query1.Open;
While Not Query1.Eof do
begin
ComboBox1.Items.Add(Query1.FieldByNAme('Marka').AsString);
Query1.Next;
end;

[yhackup]

Verdiğiniz Kodu uyguladığımda hata verdi. benim daha önce kullandığım kodu aşağıya yazıyorum. bu kodu combobox ın onchange olayına yazdım ama veriyi bir türlü getiremedim. hatamın nerede olduğunu söylerseniz sevinirim. kolay gelsin..

Query1.Close;
Query1.DatabaseName:=form2.Table1.DatabaseName;
Query1.SQL.Text:='select * from marka where Tanim="'+ComboBox1.Text+'"';
Query1.Open;
While Not Query1.Eof do
begin
ComboBox1.Items.Add(Query1.FieldByNAme('Marka').AsString);
Query1.Next;
end;

onchange olmaz ki ama her değişiklikte neden yeniden yükletiyorsun ki,
nerede nasıl bir hata alıyorsun yukarıdaki kodda

[gunes20000]

Hata dan kastım bu kod ile bilginin comboboxa gelmesi lazım ama getiremiyorum. nedenini bulamadım bir türlü, o bakımdan.

[gunes20000]

Sorunumu Farklı Bir Şekilde Çözdüm. Yardımlarınız için teşekkürler.

ComboBox1.Items.Clear;
form2.table1.First;
while not form2.table1.Eof do
begin
ComboBox1.Items.Add(form2.Table1Tanim.value);
form2.table1.Next;

[yhackup]

Sorunumu Farklı Bir Şekilde Çözdüm. Yardımlarınız için teşekkürler.

ComboBox1.Items.Clear;
form2.table1.First;
while not form2.table1.Eof do
begin
ComboBox1.Items.Add(form2.Table1Tanim.value);
form2.table1.Next;

form2 sürekli açık mı ?