ADOQuery, как с ним работать?

@funduk17 · Регистрация: 20.05.2013

Студворк — интернет-сервис помощи студентам

Слабо знаком с делфи, но нужно создать клиент серверную программу! В общем столкнулся с той проблемой, что не могу понять как именно прописывать SQL запросы через ADOQuery. В моём конкретном случае:
На SQL сервере лежит база, в ней таблицы Connect, Klient, Service и др.
В Делфи создал DataModul (DM), на ней расположил ADOConnection1 в которой связал базу с клиентской частью. У меня есть таблицы которые стоит мне отображать полностью, я воспользовался ADOTable и DATASource, всё вышло, Грид отображает таблицу.
Но в некоторых Гридах мне нужно будет отобразить Столбики с разных таблиц в базе, или наоборот всего пару полей с одной таблицы, понял что нужно ADOQuery. Но вот проблема, где именно и как нужно прописать запрос чтобы Грид его отобразил?
Пробывал так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TConnect.BitBtn1Click(Sender: TObject);
begin
        with unit12.DM.ADOConnect do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM Connect ');
        ExecSQL;
        Unit12.DM.ADOConnect.Active :=false;
        Unit12.DM.ADOConnect.Active :=true;
      end;
end;

и так

Delphi
1
2
3
4
5
6
7
procedure TConnect.BitBtn1Click(Sender: TObject);
begin
  DM.ADOConnect.Active := False;
  DM.ADOConnect.SQL.Clear;
  DM.ADOConnect.SQL.Add('SELECT * FROM Connect ');
  DM.ADOConnect.Active := True;  
end;

DM - DataModul (Unit12), на котором нахотядся мои ADOQuery, DATASource и т.д.
ADOConnect - это имя моего ADOQuery.

Ещё пробывал так: в свойствах моего ADOConnect нашёл строку SQl, там прописал запрос, но ничего не изменилось, Грид не реагирует не так, не так!
В чём моя глупая ошибка?

@FIL · 24.05.2015, 22:57

Этого должно быть достаточно:

Delphi
1
2
3
4
5
procedure TConnect.BitBtn1Click(Sender: TObject);
begin
  DM.ADOConnect.SQL.Text := 'SELECT * FROM Connect ';
  DM.ADOConnect.Open;  
end;

При этом ADOQuery должен быть связан с соответствующим DataSource, а тот, в свою очередь, с Гридом.

@funduk17 · 24.05.2015, 23:10 **[ТС]**

Этого должно быть достаточно:
Код Delphi

1 procedure TConnect.BitBtn1Click(Sender: TObject);
2 begin
3 DM.ADOConnect.SQL.Text := 'SELECT * FROM Connect ';
4 DM.ADOConnect.Open;
5 end;

При этом ADOQuery должен быть связан с соответствующим DataSource, а тот, в свою очередь, с Гридом.

Приложил скрин, что связал как нужно! Ведь с ADOTable работает, но с ADOQuery не выходит!
Грид по прежнему пустой.
И что делать с полем SQl в свойствах ADOQuery? оставить пустым?

@FIL · 24.05.2015, 23:27

DataConnect с Гридом связан?

Сообщение от funduk17

что делать с полем SQl

Запрос туда можно прописать в дизайнере, либо, как в моем примере, кодом.
Если прописать в дизайнере и выставить св-во Active, то данные должны сразу появиться в Гриде.

@funduk17 · 24.05.2015, 23:36 **[ТС]**

DataConnect с Гридом связан?

Да, конечно.
Прописал в дизайнере, не помогло, грид по прежнему пустой, в базе или ADOConnection ошибок точно нету, ведь ADOTable работает нормально!

@funduk17 · 25.05.2015, 00:00 **[ТС]**

Заработало!!! Дело в том что пока я эксперементировал и пытался решить проблему в трее обьектов я в ручную в Гриде создал столбик, из-за этого он не хотел отображать запрос!

Можно тогда ещё пару мелких вопросов чтобы я не создавал новые темы?
1) У меня свойство Active в ADOQuery постоянно само меняется на False, так и должно быть? Или стоит при открытии формы просто прописать DM.ADOConnect.Active := True; , чтобы это больше не беспокоило!?
2) До сих пор не понял что означает приставка Т к компонентам, или это что-то системное и мне в коде не нужно будет вводить имена с этой приставкой? и можно просто о ней забыть?

@northener · 25.05.2015, 01:47

Сообщение от funduk17

Или стоит при открытии формы просто прописать DM.ADOConnect.Active := True;

Однозначно стоит. При чём стоит выбрать самый правильный момент, когда это нужно выполнить.

Сообщение от funduk17

До сих пор не понял что означает приставка Т к компонентам, или это что-то системное и мне в коде не нужно будет вводить имена с этой приставкой? и можно просто о ней забыть?

Купи/скачай учебник. Обычно в любом учебнике рассказывается про общепринятые правила формирования имён.
В данном случае, если имя начинается с T, значит это имя класса.

@funduk17 · 25.05.2015, 04:30 **[ТС]**

Сообщение от northener

Цитата Сообщение от funduk17 Посмотреть сообщение
Или стоит при открытии формы просто прописать DM.ADOConnect.Active := True;
Однозначно стоит. При чём стоит выбрать самый правильный момент, когда это нужно выполнить.

То есть насколько я понял этой функцией мы обновляем отображающуюся таблицу! Когда я буду через свою программу не только просматривать базу, а вносить в ней коректировки и заполнять, нужно будет ставить False потом снова True, верно?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@funduk17 41 / 4 / 4 Регистрация: 20.05.2013 Сообщений: 67
	25.05.2015, 00:00 [ТС]
	Заработало!!! Дело в том что пока я эксперементировал и пытался решить проблему в трее обьектов я в ручную в Гриде создал столбик, из-за этого он не хотел отображать запрос! Можно тогда ещё пару мелких вопросов чтобы я не создавал новые темы? 1) У меня свойство Active в ADOQuery постоянно само меняется на False, так и должно быть? Или стоит при открытии формы просто прописать DM.ADOConnect.Active := True; , чтобы это больше не беспокоило!? 2) До сих пор не понял что означает приставка Т к компонентам, или это что-то системное и мне в коде не нужно будет вводить имена с этой приставкой? и можно просто о ней забыть? 0