Delphi의 ComboBox에 데이터베이스에 필드 추가

// var GridName:TcxGridDBTableView;
with   GridName.DataController.DataSource.DataSet do 
For   J:=0   to   GridName.Columncount-1   do
                begin
                feildName:= Trim(GridName.Columns[J].DataBinding.FieldName);
combobox1.Items.Add(feildName);
                                end;
end; 

with   dataset   do
begin
    first;
    while   not   eof   do
    begin
        combobox.items.add.asString);
        next;
    end;
end;
이 코드를 다시 Form의 Create나 Show에 넣어서 실행하면 돼요.
with   dataset   do
begin
    first;
    while   not   eof   do
    begin
        combobox.items.add.asString);
        next;
    end;
end;
이 코드를 다시 Form의 Create나 Show에 넣어서 실행하면 돼요.
 
adoquery1.Active:=false;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from A');
  adoquery1.Active:=true;
  adoquery1.First;
while not adoquery1.Eof do
  begin
   combobox1.Items.Add(adoquery1.fieldByName('C').AsString);
   adoquery1.Next;
  end;

adoquery1.First;
while not adoquery1.Eof do
begin
  combobox1.Items.Add(adoquery1.FieldByName('  ').AsString);
  adoquery1.Next;
end;
combobox1.ItemIndex := 0; 

with   dataset   do
begin
    first;
    while   not   eof   do
    begin
        combobox.items.add.asString);
        next;
    end;
end;
이 코드를 다시 Form의 Create나 Show에 넣어서 실행하면 돼요.
=============================================================
1.Form에 ComboBox1, ADOQuery1, ADOconnection1을 추가(안 돼)
2. 데이터베이스를 잘 연결하면 남산고도(nsgtao)의 데이터베이스에는 시계biao1이 있고 필드name이 있습니다.
3. 다음 프로그램을 실행하면 ComboBox1에서name 아래에 대응하는 동작이 나타납니다
procedure TForm1.ComboBox1DropDown(Sender: TObject);vari : integer;beginComboBox1.Clear;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('Select name from biao1');ADOQuery1.Open;if ADOQuery1.RecordCount>0 thenbegin    for i:=0 to ADOQuery1.RecordCount-1 do    begin      ComboBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);      ADOQuery1.Next;    end;end;end;
2008년 1월 4일 업데이트 데이터베이스에 필드 추가 ComboBox
procedure TForm1.FormCreate(Sender: TObject);vari : integer;beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from biao1');ADOQuery1.Open;Combobox3.Clear;for i:=0 to ADOQuery1.FieldCount-1 dobegin    ADOQuery1.First;    combobox3.Items.Add(ADOQuery1.Fields[i].FieldName);    ADOQuery1.Next;end;Combobox3.ItemIndex := 0;end;
2008.01.15 다시 추가, 원문 붙여넣기//메인 창에ADOconnection1, ADOQuery1, DataSource1 및 데이터 테이블을 설치하고 구성 요소 속성 설정 완료->OK!unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
typeTForm1 = class(TForm)    ComboBox1: TComboBox;    ADOConnection1: TADOConnection;    ADOQuery1: TADOQuery;    ComboBox2: TComboBox;    DBGrid1: TDBGrid;    DataSource1: TDataSource;    procedure FormCreate(Sender: TObject);    procedure ComboBox1Change(Sender: TObject);private    { Private declarations }public    { Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);vari : integer;beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from biao1');ADOQuery1.Open;
//Combobox1*****Combobox1.Clear;if ADOQuery1.RecordCount>0 thenbegin    ADOQuery1.First;end;for i:=0 to ADOQuery1.RecordCount-1 dobegin   //ADOQuery1.First;    ComboBox1.Items.Add(ADOQuery1.Fields[i].FieldName);    ADOQuery1.Next;end;Combobox1.ItemIndex := 0;
//Combobox2*****Combobox2.Clear;if ADOQuery1.RecordCount>0 thenbegin    ADOQuery1.First;end;for i:=0 to ADOQuery1.RecordCount-1 dobegin   //ADOQuery1.First;    ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);    ADOQuery1.Next;end;Combobox2.ItemIndex := 0;
end;//ComboBox1이 바뀔 때 ComboBox2가 바뀔 때 procedure TForm 1.ComboBox1Change(Sender: TObject);vari : integer;beginCombobox2.Clear;if ADOQuery1.RecordCount>0 thenbegin    ADOQuery1.First;end;for i:=0 to ADOQuery1.RecordCount-1 dobegin   //ADOQuery1.First;    ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);    ADOQuery1.Next;   
end;Combobox2.ItemIndex := 0;end;end