DELPHI Заполните Listbox с результатами ADO Query

Question

читают все связанные темы, но решение не найдено, чтобы помочь мне с Delphi.

Проще говоря, у меня есть таблица MySQL, называемая Story, и я хочу извлечь определенные поля из этого - и, следовательно, заполнить список.

Из других сообщений, я использовал следующие ...

adoqMenu.Close; 
adoqMenu.SQL.Text := 'SELECT StoryID, Story Description, Completion Date FROM Story'; 
try 
    adoqMenu.Open; 
    ListBox1.Items.Clear; 
    while not adoqMenu.Eof do 
    begin 
    ListBox1.Items.Add(adoqMenu.Fields[0].AsString); 
    adoqMenu.Next; 
    end; 
finally 
    adoqMenu.Close; 
end; 

Это только дает мне первое поле ... ГРР. Вполне просто, как я могу изменить это, чтобы поля, указанные в предложении SELECT, отображались в списке как есть?

Благодаря

Answer 1

вы видите только одно поле, потому что вы только чтение из одного поля (adoqMenu.Fields[0]). Просто зачитывает другие поля, а также:

adoqMenu.Close; 
adoqMenu.SQL.Text := 'SELECT StoryID, Story Description, Completion Date FROM Story'; 
adoqMenu.Open; 
try 
    ListBox1.Items.Clear; 

    while not adoqMenu.Eof do 
    begin 
    Value1 := adoqMenu.Fields[0].AsString; 
    Value2 := adoqMenu.Fields[1].AsString; 
    Value3 := adoqMenu.Fields[2].AsString; 

    // use Values as needed. Format the ListBox text however 
    // you want to show all three values... 
    ListBox1.Items.Add(...); 

    adoqMenu.Next; 
    end; 
finally 
    adoqMenu.Close; 
end; 

В зависимости от реальных потребностей (которые вы не объяснить), мульти-колонки TListView в режиме vsReport может быть лучшим выбором, чем TListBox:

adoqMenu.Close; 
adoqMenu.SQL.Text := 'SELECT StoryID, Story Description, Completion Date FROM Story'; 
adoqMenu.Open; 
try 
    ListView1.Items.Clear; 

    while not adoqMenu.Eof do 
    begin 
    Item := ListView1.Items.Add; 
    Item.Caption := adoqMenu.Fields[0].AsString; 
    Item.SubItems.Add(adoqMenu.Fields[1].AsString); 
    Item.SubItems.Add(adoqMenu.Fields[2].AsString); 
    adoqMenu.Next; 
    end; 
finally 
    adoqMenu.Close; 
end;