Сформировать запрос и отобразить его результат в DBGrid

@jkrnd · Регистрация: 22.12.2015

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

Всем здравствуйте.

При старте программы в DBGrid1 заносятся все записи из таблицы <telefon> базы данных <tel.mdb>, одно из полей таблицы имеет имя <Name> (строка):

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    const String ConnStr = "Provider=%s;Data Source=%s;Mode=%s";
    ADOConnection1->LoginPrompt = false;
    ADOConnection1->ConnectionString = Format (ConnStr, ARRAYOFCONST(("Microsoft.Jet.OLEDB.4.0","tel.mdb", "Share Deny None")));
    ADOQuery1->Connection = ADOConnection1;
    ADOQuery1->SQL->Add("SELECT * FROM [telefon]");
    ADOQuery1->Active = true;
    DataSource1->DataSet = ADOQuery1;
    DBGrid1->DataSource = DataSource1;
}

На форме в Edit1 введён текст с русской буквой 'а'.
Нужно вывести в DBGrid1 только те записи у которых в поле <Name> есть, текст отображённый в Edit1:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString query;
    query = "SELECT * FROM [telefon] WHERE Name LIKE '%+Edit1->Text+%'";
    ADOConnection1->Open();         // Открыли запрос
    ADOQuery1->SQL->Clear();        // Очистили текст запроса
    ADOQuery1->SQL->Add(query);     // Добавили текст запроса
    ADOQuery1->ExecSQL();           // Отправили на выполнение
}

Ничего не происходит. DBGrid1 просто очищается. Разумеется записи, удовлетворяющие нашему условию отбора в таблице есть.

@D1973 · 19.06.2019, 17:12

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

Ничего не происходит.

Давайте разберем построчно...

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

AnsiString query;
query = "SELECT * FROM [telefon] WHERE Name LIKE '%+Edit1->Text+%'";

Во первых - не обязательно две строки, во вторых - у Вас ошибка работы со строками

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

ADOConnection1->Open(); // Открыли запрос

Нет! Это Вы установили соединение с БД. А это делается, как правило один раз при старте программы

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

ADOQuery1->SQL->Clear(); // Очистили текст запроса
ADOQuery1->SQL->Add(query); // Добавили текст запроса

Нет! Совершенно не нужное действие. Если использовать свойство Text - тогда текст запроса будет заменяться полностью без лишней очистки.

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

ADOQuery1->ExecSQL(); // Отправили на выполнение

Нет! Метод ExecSQL() вызывается в том случае, если запрос не возвращает никаких данных, т.е. в случае добавления, изменения и удаления данных. В случае же выборки используется метод Open()
И прежде, чем менять текст запроса - его закрыть нужно.
В итоге получится:

C++
1
2
3
4
ADOQuery1->Close();
String query = "SELECT * FROM telefon WHERE Name LIKE '%" + Edit1->Text + "%'";
ADOQuery1->SQL->Text = query;
ADOQuery1->Open();

@jkrnd · 19.06.2019, 17:22 **[ТС]**

D1973, не подскажете литературу, где об сих действиях можно почитать. Хотелось бы познакомиться с ADO. Например, что означает запись '%"....."%'. Ведь код, который я описал в своём вопросе я нарыл в интернете, а он оказался кривой

@D1973 · 19.06.2019, 18:12

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

что означает запись '%"....."%'

Ну эта запись просто вырвана из контекста... Вот смотрите:
у нас есть запрос (кстати, при использовании однословной латиницы в наименовании таблиц и полей квадратные скобки можно не использовать, если это наименование не является зарезервированным словом в Access):

SQL
1
SELECT * FROM telefon

Это означает, что необходимо выбрать все записи из таблицы telefon.
Если вы хотите ограничить критерий отбора - используетcя конструкция WHERE, где прописывается условие отбора. Например:

SQL
1
SELECT * FROM telefon WHERE Name = 'Вася'

Тут будут отобраны только те записи, для которых поле Name равно значению Вася. Тут важный момент: если тип поля, по которому ведется отбор, текстовый - значение должно быть обрамлено одинарными кавычками (но это - конкретно для Access. для других СУБД могут использоваться другие ограничители, ` в MySQL, например...), если значение числовое - обрамление кавычками не требуется:

SQL
1
SELECT * FROM telefon WHERE ID = 1

но все это - это отбор по точному совпадению. Если же Вам требуется отбор по частичному совпадению - используется конструкция LIKE. Важным моментом является то, что LIKE применяется только к текстовым полям!!!
Примеры: (таблица содержит 3 записи, в поле Name значения "Иван", "Анна", "панк")

SQL
1
SELECT * FROM telefon WHERE Name LIKE '%ан%'

Отбираются записи, содержащие в поле Name буквосочетание "ан" (Иван, Анна, панк - регистр, по умолчанию, в Access не важен)

SQL
1
SELECT * FROM telefon WHERE Name LIKE 'ан%'

Отбираются записи, начинающиеся с буквосочетания "ан" в поле Name (Анна)

SQL
1
SELECT * FROM telefon WHERE Name LIKE '%ан'

Отбираются записи, заканчивающиеся на буквосочетания "ан" в поле Name (Иван)
Теперь о том, как использовать это дело в своей программе. Пусть Вы вводите нужный критерий отбора в поле ввода Edit1. Тут просто надо помнить, что запросы выполняются посредством компонента ASDOQuery, а свойство SQL->Text этого компонента - ни что иное, как строка типа String. Вот мы и формируем этот запрос посредством конкатенации строк (Edit1->Text - это тоже тот же самый String)

C++
1
String query = "SELECT * FROM telefon WHERE Name LIKE '%" + Edit1->Text + "%'";

либо посредством строки форматирования

C++
1
String query = String().sprints(L"SELECT * FROM telefon WHERE Name LIKE '%%%s%%'", Edit1->Text);

В любом случае Вы можете, при отладке, посмотреть окончательный вариант своего сформированного запроса, прежде чем его выполнять:

C++
1
ShowMessage(ADOQuery1->SQL->Text);

Но правильней всего - генерировать и отлаживать запрос в самой СУБД и только после того, как он будет безошибочно работать - переносить текст этого запроса в свою программу.

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

где об сих действиях можно почитать.

Работа с ADO - у Архангельского более чем нормально раскрыта, а язык SQL - ну тут тоже куча книг, только надо учитывать, что для каждой конкретной СУБД существуют некоторые нюансы, присущие только этой СУБД...

@Bit_Man · 20.06.2019, 03:42

Не по теме:

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

Совершенно не нужное действие

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

String query

Совершенно не нужная переменная :D (сарказм)

@D1973 · 20.06.2019, 04:01

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

Совершенно не нужная переменная

В данном конкретном примере - да, конечно, в общем и целом - не согласен... Зачастую запрос формируется не по одному полю и не по одной таблице, с предварительным анализом передаваемых в запрос данных и т.д. и т.п. В этом случае куда как проще оперировать со строковой переменной, чем постоянно дозаписывать свойство SQL->Text

@jkrnd · 20.06.2019, 06:28 **[ТС]**

D1973, если я хочу искать совпадения и делать выборку по всем полям таблицы, я должен перечислить каждое из полей через OR? Или можно как-то укоротить запрос?

SQL
1
2
3
OR Name LIKE  '...'
OR Address LIKE  '...'
OR Rem LIKE '...'

А как вывести все записи с сортировкой по возрастанию по полю Name? По убыванию по полю Name?

@TrollHammer · 20.06.2019, 06:42

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

по всем полям таблицы,

Тогда не OR а AND

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

возрастанию по полю Name

T-SQL
1
Order By [Name] ASC

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

По убыванию по полю Name

T-SQL
1
Order By [Name] DESC

Добавлено через 4 минуты
jkrnd, Кстати, хорошая практика - создавать запросы непосредственно в БД, там их отлаживать, а уже потом переносить в код. Меньше проблем с ошибками.

Добавлено через 2 минуты
jkrnd, Access SQL https://support.office.com/ru-... dc3e460671

@D1973 · 20.06.2019, 07:08

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

Тогда не OR а AND

При AND у Вас искомое значение должно будет находиться во всех полях одновременно... Так что в данной ситуации - только OR

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

Или можно как-то укоротить запрос?

Да нет, только так... Но только...
1. не совсем понятно зачем искать что-то одновременно в поле Имя и в поле Адрес...
2. Отдельные условия в секции WHERE лучше брать в скобки:

SQL
1
WHERE (Name LIKE  '...') OR (Address LIKE  '...')

@TrollHammer · 20.06.2019, 07:16

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

Так что в данной ситуации - только OR

Немного не сообразил, подумал, что поиск значений во всех полях...

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	19.06.2019, 17:22 [ТС]
	D1973, не подскажете литературу, где об сих действиях можно почитать. Хотелось бы познакомиться с ADO. Например, что означает запись '%"....."%'. Ведь код, который я описал в своём вопросе я нарыл в интернете, а он оказался кривой 0

Сформировать запрос и отобразить его результат в DBGrid

Решение