Question

delphi中的listbox读取数据库的一个字段

我需要listbox读取数据库的一个字段，在网上找到这个代码
listbox1.Clear;
while not ADOQuery1.Eof do
begin
listbox1.Items.Add(ADOQuery1.fieldbyname(name).AsString);
ADOQuery1.Next;
可能是我自己某个地方海没注意，所以实现在不了，麻烦高手详细讲一下，谢谢
我用的是ACCESS，要读取man表下的name字段

Answer 1

你加下我QQ吧，我帮你解决一下，打字说明白太累了。873001704。注明是问这个问题的。
procedure TForm1.FormShow(Sender: TObject);
begin
qry1.Close;
Qry1.SQL.Clear;
Qry1.SQL.Add('select * from record_employeerecord');
Qry1.Open;
Qry1.First;
while not Qry1.Eof do
begin
lst1.Items.Add(Qry1.fieldbyname('dept').AsString);
Qry1.Next;
end;
end;

Answer 2

listbox1.Items.Add(ADOQuery1.fieldbyname("name").AsString);
------fieldbyname("name")------------
---("name")----.