Başlangıç > Kodlar > Delphi ile tablonun istenilen alanının bir combox’a doldurulması

Delphi ile tablonun istenilen alanının bir combox’a doldurulması

Herhangi bir tablonun istediğimiz bir alanını tek bir satırla istediğimiz bir Combobox'a doldurabiliriz..

Procedure TForm1.ComboDoldur(Kutu : TComboBox;TblName, Alan: String);
var
qCombo : TQuery;
begin
qCombo:=TQuery.Create(self);
qCombo.Close;
qCombo.SQL.Clear;
qCombo.SQL.Text:='Select '+alan+' From '+TblName+Sart;
qCombo.open;
if qCombo.RecordCount>0 then
begin
qCombo.First;
Repeat
Kutu.Items.Add(qCombo.FieldByName(alan).AsString);
qCombo.Next;
until qCombo.Eof;
end;
qCombo.Free;
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: