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, верно?

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

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