Поиск данных

@Dron16 · Регистрация: 03.11.2009

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

Всем привет , я зделал поиск в бд по Фио вот код

DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT *');
DataModule2.ADOQuery1.SQL.Add('FROM tab1');
DataModule2.ADOQuery1.SQL.Add('WHERE ФИО_преподователя like '''+Edit1.Text+'''');
DataModule2.ADOQuery1.Active:=true;

все работает но возникла такая проблема поис происходит только тогда когда ФИО ввожу полность , а хотелось бы еще зделать так чтобы искала инфу даж при введение только 1й буквы.
(например ввожу И и выводет мне все Фамилии где 1я буква И)

@SAMZ · 27.10.2010, 06:16

Для этого используется символ %. Так, если подстрока поиска выглядит так
'И%' то в результирующий набор попадут все записи с фамилиями, начинающимися с 'И'
СОВЕТЫ:
1. Везде, где можно исполйзуй запросы с параметрами. В твоем случае строка с предикатом

Delphi
1
DataModule2.ADOQuery1.SQL.Add('WHERE ФИО_преподователя like :FIO);

и перед открытием такого запроса

Delphi
1
DataModule2.ADOQuery1.SQL.ParamByName('FIO').AsString := 'И%';

или

Delphi
1
DataModule2.ADOQuery1.SQL.ParamByName('FIO').AsString := Edit1.Text + '%';

2. Когда это возможно текст SQL делай статическим, записывая его в свойсьве SQL при разработке
3. Даже, если твоя СУБД позволяет использовать кирилицу при именовании объектов, делать этого не надо. Легче будет дальше жить.

@Sergiuz · 28.10.2010, 00:18

SAMZ, малость ошибся в коде для применение параметров

Delphi
1
DataModule2.ADOQuery1.SQL.ParamByName('FIO').AsString := 'И%';

Правильно писать

Delphi
1
DataModule2.ADOQuery1.ParamByName('FIO').Value := 'И%';

т.е. не нужно писать SQL. а также для назначение параметров у ADO применяется Value а уже для извлечение параметров можно использовать метод as.... (asString, asInteger и т.д.) По крайней мере так в Delphi2010 и DelphiXE

@SAMZ · 28.10.2010, 06:04

Если FIO имеет тип строковый, то
ParamByName('FIO').Value
и
ParamByName('FIO').AsString
эквивалентны как при назначении, так и при извлечении

@Sergiuz · 28.10.2010, 09:32

SAMZ, Никто не спорит кроме компилятора delphi 2010 и delphi xe.

@SAMZ · 28.10.2010, 11:27

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

Никто не спорит кроме компилятора delphi 2010 и delphi xe

А если все же набрать AsString проглатывает или ... Я по старинке с 7-кой работаю, там без проблем.

@Sergiuz · 28.10.2010, 11:38

SAMZ, неа ошибка поэтому я и уточнил компилятор

А так вообще после пару обнов в Delphi стараюсь вообще ADO не юзать. Глюков не обираешся больше сидиш отлавливаеш эти глюки чем пишеш программу

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию 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 и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Dron16 3 / 3 / 0 Регистрация: 03.11.2009 Сообщений: 208

	Поиск данных 26.10.2010, 17:41. Показов 1045. Ответов 6 Метки нет (Все метки) Всем привет , я зделал поиск в бд по Фио вот код DataModule2.ADOQuery1.Active:=false; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('SELECT *'); DataModule2.ADOQuery1.SQL.Add('FROM tab1'); DataModule2.ADOQuery1.SQL.Add('WHERE ФИО_преподователя like '''+Edit1.Text+''''); DataModule2.ADOQuery1.Active:=true; все работает но возникла такая проблема поис происходит только тогда когда ФИО ввожу полность , а хотелось бы еще зделать так чтобы искала инфу даж при введение только 1й буквы. (например ввожу И и выводет мне все Фамилии где 1я буква И) 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	28.10.2010, 06:04
	Если FIO имеет тип строковый, то ParamByName('FIO').Value и ParamByName('FIO').AsString эквивалентны как при назначении, так и при извлечении 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	28.10.2010, 09:32
	SAMZ, Никто не спорит кроме компилятора delphi 2010 и delphi xe. 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	28.10.2010, 11:38
	SAMZ, неа ошибка поэтому я и уточнил компилятор А так вообще после пару обнов в Delphi стараюсь вообще ADO не юзать. Глюков не обираешся больше сидиш отлавливаеш эти глюки чем пишеш программу 0