ÐÂÊÖÎÊÌ⣬ÈçºÎÓôúÂëɸѡAccessµÄ¼Ç¼µ½ListBox£¿

ÒѾ­ÔÚform1ÖÐÊÖ¶¯ÅäÖúÍÁ¬½ÓºÃÁËMDBÊý¾Ý¿â£¬ÔÚform1ÖÐÓиöListbox1¿Ø¼þ£¬Óиö°´Å¥£¬µã»÷°´Å¥£¬°ÑAccesµÄ¼Ç¼¶Á³öÀ´£¬·ÅÈëµ½Listbox1£¬ÇëÎÊÔõô¸ã£¿

---

¹©²Î¿¼£º
Delphi(Pascal) code:

with adoquery1 do begin
close;sql.clear;
sql.add('select distinct F01 from aTableName order by F01');
open;
while not eof do begin
listbox1.items.add(fieldByName('F01').asstring);
next;
end;
end;

---

adoquery1.first;Õâ¸öÒ²µÃ¼ÓÉÏ°É

---

1Â¥µÄ¿ÉÒÔʵÏÖ£¬¾ÍÊÇ´úÂë²»Õ¦¸ö¹æ·¶£¬ÐÂÊÖҪעÒ⣬Ñø³ÉºÃµÄÏ°¹ß¡£

---

ÒýÓÃ

¹©²Î¿¼£º
Delphi(Pascal) codewith adoquery1dobegin
close;sql.clear;
sql.add('select distinct F01 from aTableName order by F01');
open;whilenot eofdobegin
listbox1.items.add(fieldByName('F01').asstring);
next;end;end;

ÎҾ͸ÄÒ»ÏÂ1Â¥Ðֵܵİɣ¬¶ÔÐÂÊÖÓеãÓðɡ£

begin
  ListBox1.Clear;
  with ADOQuery1 do begin
    SQL.Text := 'select distinct F01 from aTableName order by F01';
    Open;
    while not Eof do begin
      ListBox1.Items.Add(FieldByName('F01').AsString);
      Next;
    end;
    Close;
&nbs