从adoquery获取数据到stringlist

时间:2012-05-25 06:53:45

标签: delphi

好的我有一个应该返回所有问题编号的查询。我想要的是获取返回的每个问题编号并将其添加到字符串列表中。

ADOQuery1.SQL.Clear;
SQLQuery := 'SELECT issue FROM Comics WHERE SeriesName = '+Quotedstr(SeriesName)+' AND Volume = '+quotedstr(VolumeNumber);

ADOQuery1.SQL.Add(SQLQuery);
ADOQuery1.Active := true;

所以,一旦我得到了这个,将结果放入字符串列表的最佳方法是什么。我尝试过使用ADOQuery1.GetFieldList(issuelist,'issue');,但是想要tlist而不是tstringlist不确定这是否真的重要,或者我是否做得正确。

1 个答案:

答案 0 :(得分:8)

您不想使用GetFieldList。这将返回数据集中的字段对象列表。你需要做这样的事情:

ADOQuery1.Open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  issuelist.Add(ADOQuery1.FieldByName('issue').AsString);
  ADOQuery1.Next;
end;