請問各位大大，小弟寫了一段程式去擷取SQL中的資料，但不知該如何把資料一筆一筆寫入DBComboBox，
想請問大大們可以給小弟一點建議或指引嗎？

這是小弟寫的程式碼：
ADOSQL2.Close;
ADOSQL2.SQL.Clear;
ADOSQL2.SQL.Add('Select code_id from SYSM100');
ADOSQL2.SQL.Add('Where Field_id=:P1');
ADOSQL2.Parameters.ParamValues['P1']:='C_CZ';
ADOSQL2.ExecSQL;
ADOSQL2.Open;

現在想把過濾出的資料寫進DBComboBox中~~

請業用搜尋dbcombobox, 我才找第二頁就找到了
http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=55130

1. dbcombobox 應想像成一個dbedit加上一個靜態的listbox的複合元件.
2. 我原先的想法也如同上面的大大一樣, 想用迴圈方式將dataset內的資料填入items;但請問一下, 如果query出來的筆數有上千上萬筆時, 要叫listbox占用多少記憶體, 顯然Borland一定不是這樣想的, 它不可能讓這件事發生的, 否則它應該不是靜態的listbox而是dbgrid等感知元件。
3. 因此listbox應是靜態的選用, 如下:

[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
begin
adoquery1.active := false;
adoquery1.sql:='select * from detail where 姓名 like "%清%"';
adoquery1.active := true;

DBComboBox1.DataSource := datasoruce1;
DBComboBox1.Field := '學歷';
DBComboBox1.Items.Text := '研究所' #13 '大學' #13 '專科' #13 '高中' #13 '國中'; // 靜態給予起始資料
end;

// 使用者選擇更動欄位後
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
adoquery1.Edit;
adoquery1['學歷'] := DBComboBox1.Text;
adoquery1.Post;
end;

[/code]

------
努力會更接近成功

編輯記錄

謝謝兩位大大的解答，我想要的答案在版主PO的文章中，真是抱歉當時都沒看到，再次謝謝各位大大的幫忙，多謝~~