delphi - TSQLQuery 未返回正确数量的记录

Question

我有一个名为 Artist 的表，当前包含四个记录和一个包含以下语句的 TSQLQuery:

SELECT name
FROM Artist

表 Artist 还包含以下记录:

id          name
1           Artist 1
2           Artist 2
3           Artist 3
4           Artist 4

<小时/>

当前记录检索方法:

Query1.Open;
for i := 0 to qArtist.FieldCount -1 do
    with cbArtist.ListBox.ListItems[i] do
        Text := qArtist.Fields[i].AsString;

以前的记录检索方法:

将Query1数据绑定(bind)到ComboBox1。

<小时/>

使用“previous”方法，ComboBox1 将显示 Artist 表中的所有预期记录。但是，当我尝试使用“当前”方法时，Query1 仅从 Artist 表中选择第一条记录，尽管存在其他三个现有值。我在其他查询中尝试了“当前”方法，它们也只返回表的第一个值。

我采用这种新方法的原因是因为我觉得如果我继续使用“以前的”/数据绑定(bind)方法，我能做的事情非常有限，但这不是重点。

那么我该如何解决这个问题呢？即查询只从表中选择第一条记录的问题。

Answer 1

您必须使用Eof和Next迭代记录的方法。

Query1.Open;
 while not Query1.eof do
 begin
  cbArtist.Items.Add(Query1.FieldByName('Artist').AsString);
  Query1.Next;
 end;