请问如何把数据库的某个字段读进列表？

[gaden007]

请问如何把数据库的某个字段读进列表？
我想把某数据库字段的内容全部读进LISTBOX中，如果内容有相同的话就不加进去，也就是说，如果数据库中有两个“01-001-00”的内容，只读取一个进LISTBOX中。请具体说明方法。和源代码！

[cooling]

去初重复项在sql语句里进行
SELECT DISTINCT Yours FROM yourTable

[MFC2001]

DOConnection1.GetFieldNames('Employee', ListBox1.Items);

[cooling]

可以用ADOQuery连
with ADOQuery1 do begin
close;
sql.Clear;
sql.Add(SELECT DISTINCT Yours FROM yourTable');
try
Open ;
Except
MessageDlg('不能打开数据库',mtWarning, [mbYes], 0);
end; //try
while not ADOQuery1.eof do
begin
ListBox1.Items.AddStrings(Adoquery1.fields[0].asstring);
next;
end;
end;

你试试！

[eagle123]

adodataset1.commandtext:='select distinct * from yourtable'
adodataset1.open;
while not adodataset1.Eof do
begin
listbox1.items.add( adodataset1.FieldByName('备忘录文本').value);
adodataset1.Next ;
end;

[gaden007]

我还是不会。可以把源代码文件，SEND去我EMAIL吗？

[e-mail]
因为我不会用ADOQuery，我昨天才开始学DELPHI的。
请帮帮忙

[zx_wang]

var
qry: TADOQuery;
begin
qry := TADOQuery.Create(Self);
try
qry.Active := False;
qry.SQL.Clear;
qry.SQL.Add('SELECT distinct myfield from table');
qry.Active := True;
while not Qry.EOF do
begin
ListBox1.Items.AddStrings(Adoquery1['myfield']);
Qry.Next;
end;
finally
qry.Free;
end;
end;

[hjhhjh]

可以Query连接
with Query1 do begin
close;
sql.Clear;
sql.Add(SELECT DISTINCT * FROM yourTable');
first;
while not Query1.eof do
begin
ListBox1.Items.AddStrings(query1.fields[0].asstring);
next;
end;
end;