Question

DELPHI中如何将数据库中数据显示在LISTBOX中?

请给详细代码,,谢谢了

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
var
s:string;
begin
ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'select * from 表名';
ADOQuery1.Active := True;
ListBox1.Items.Clear;
while not ADOQuery1.Eof do begin
s := Format('%10s',Trim(ADOQuery1.FieldValues['字段名1']));
s := s + Format('%6s',Trim(ADOQuery1.FieldValues['字段名2']));
// ...
s := s + Format('%12s',Trim(ADOQuery1.FieldValues['字段名n']));
ListBox1.Items.Add(s);
ADOQuery1.Next;
end;
ADOQuery1.Active := False;
end;

Answer 2

DataSet.First;
while not DataSet.Eof do
begin
ListBox.Items.Add(DataSet.FieldByName('Name').AsString);
DataSet.Next;
end;

Answer 3

while not DataSet.Eof do
begin
ListBox.Items.Add(DataSet.FieldByName('Name').AsString);
DataSet.Next;
end;

--这是最简单的数据显示了

Answer 4

上面的代码够多了，不多说了。