Как обойтись без DbGrid?

[theYozh]

Как прочитать результат запроса, помещенный в datasource без использования визуальных компонентов?
Можно ли получить данные из datasource, не отображая их на форме через сетку?

[Serge_Bliznykov]

конечно же - можно.
Визуальные компоненты, как ни странно, нужны для визуализации (отображения) данных.
А если Вам отображать данные не нужно, то и визуальные компоненты не нужны...
И тогда Вам и DataSource не нужен.
Вот, пример кода, как можно поместить в label1 количество записей в таблице MyTable..

Query1.Close;
Query1.Text := 'select count(*) as Cnt from MyTable';
Query1.Open;
if Not Query1.IsEmpty then
   Label1.Caption := IntToStr(Query1.FieldByName('Cnt').AsInteger)
else
  Label1.Caption := '#';
Query1.Close;

[theYozh]

22:13

В данном коде query имеет тип Tadoquery?

22:15

И как прочитать результат, если записей вернулось несколько, но все равно уже спасибо)

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[Gorychev]

Без разницы куда и чего выводить, хоть на канву текстом.
привожу код с рабочего приложения. Насколько я помню, заполняет комбобокс списком населенных пунктов

Query.SQL.Text := 'SELECT PUNKT FROM kvart GROUP BY PUNKT';
  Query.Active := true;
  Query.First;
  cmbCity.Update;
  while not Query.Eof do begin
    cmbCity.Items.Add(Query.Fields[0].AsString);
    Query.Next;
  end;

[theYozh]

Структура моей таблицы words:
Key1 | original | labuda
Key1 - ключевое поле, счетчик, остальные поля - текстовые.

Query.SQL.Clear;
Query.SQL.Text:='SELECT original FROM words';
Query.Active := true;
Query.First;
while not Query.Eof do begin
    Memo1.lines.Add(Query.Fields[0].AsString);
    Query.Next;
end;
Query.Active := false;

При попытке выполнить этот код, появляется сообщение:
Query: Field 'Key1' not found.

Не могу понять при чем тут поле Key1 и почему не выполняется запрос.
Помогите разобраться.

[mihali4]

А у вас, видимо, в Query поля явно прописаны.
Проверьте даблкликом по Query - список полей должен быть пустым.

[theYozh]

Да, михалыч, вы оказались правы и раскрыли для меня тайну века огромное спасибо!