Sql запрос в delphi

@smaxim92 · Регистрация: 28.05.2014

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

Здравствуйте, у меня такая проблема. У меня в бд в Access есть запрос на выборку из разных связанных таблиц. Вот код запроса в access

SQL
1
2
3
SELECT Преподаватели.Номер_преподавателя, Преподаватели.Фамилия, Преподаватели.Имя, Преподаватели.Отчество, УМКД.Индекс_дисциплины, Дисциплины.Название_дисциплины, УМКД.Год_создания, Специальности.Название_специальности, [Виды УМКД].Название_вида
FROM (Специальности INNER JOIN (Преподаватели INNER JOIN (Дисциплины INNER JOIN УМКД ON Дисциплины.Индекс_дисциплины = УМКД.Индекс_дисциплины) ON Преподаватели.Номер_преподавателя = УМКД.Номер_преподавателя) ON Специальности.Шифр_специальности = Дисциплины.Шифр_специальности) INNER JOIN [Виды УМКД] ON УМКД.Номер_УМКД = [Виды УМКД].Номер_УМКД
WHERE (((Преподаватели.Номер_преподавателя)=[Введите номер преподавателя]));

С помощью него происходит выборка информации по номеру преподавателя. Т.к. в делфи sql запросы немного преобразуются, я со своим практически нулевым уровнем знания его преобразовал. Вот код в делфи:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm5.Button1Click(Sender: TObject);
begin
form5.ADOQuery1.SQL.Clear;
form5.ADOQuery1.SQL.Text:=
'SELECT [Преподаватели].Номер_преподавателя, [Преподаватели].Фамилия, '+
'[Преподаватели].Имя, [Преподаватели].Отчество, [УМКД].Индекс_дисциплины, '+
'[Дисциплины].Название_дисциплины, [УМКД].Год_создания, '+
'[Специальности].Название_специальности '+
'FROM [Специальности], [Преподаватели], [УМКД], [Дисциплины], [Виды УМКД] '+
'WHERE [Дисциплины].Индекс_дисциплины = [УМКД].Индекс_дисциплины, '+
'[Преподаватели].Номер_преподавателя = [УМКД].Номер_преподавателя, '+
'[Специальности].Шифр_специальности = [Дисциплины].Шифр_специальности';
form5.ADOQuery1.Active:=True;
end;

написал его пока без введения номера преподавателя. Я не знаю где я ошибся но постоянно вылезают ошибки разного рода. Сейчас вылезает ошибка (во вложении). Помогите пожалуйста реализовать этот запрос и подскажите как реализовать ввод номера преподавателя. На форме расположены компоненты Button1 и DBGrid1 (который подключен к БД MS Access через ADOConnection1, ADOQuery1, DataSource1).

@FIL · 28.05.2014, 12:43

В строках 10, 11 запятые на and замени.

@smaxim92 · 28.05.2014, 13:16 **[ТС]**

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

В строках 10, 11 запятые на and замени.

Огромное спасибо, запрос заработал, теперь другая проблема, добавил еще один столбец в запрос (Название_вида) и он пишет ошибку.
вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
'SELECT [Преподаватели].Номер_преподавателя, [Преподаватели].Фамилия, '+
'[Преподаватели].Имя, [Преподаватели].Отчество, [УМКД].Индекс_дисциплины, '+
'[Дисциплины].Название_дисциплины, [УМКД].Год_создания, '+
'[Специальности].Название_специальности, '+
'[Виды_УМКД].Название_вида '+
'FROM [Специальности], [Преподаватели], [УМКД], [Дисциплины], [Виды УМКД] '+
'WHERE [Дисциплины].Индекс_дисциплины = [УМКД].Индекс_дисциплины and '+
'[Преподаватели].Номер_преподавателя = [УМКД].Номер_преподавателя and '+
'[Специальности].Шифр_специальности = [Дисциплины].Шифр_специальности and '+
'[Виды_УМКД].Номер_УМКД = [УМКД].Номер_УМКД';

и как реализовать ввод номера преподавателя через Edit?

@FIL · 28.05.2014, 15:18

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

он пишет ошибку

В строке 6 [Виды УМКД] без нижнего подчеркивания, в других местах - с ним.

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

и как реализовать ввод номера преподавателя через Edit?

Примерно так:

Delphi
1
2
...
'[Специальности].Шифр_специальности  = ' + Edit.Text + ' and ' +

или через параметры.

@smaxim92 · 28.05.2014, 15:24 **[ТС]**

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

Примерно так:
Код Delphi
1
2
...
'[Специальности].Шифр_специальности *= ' + Edit.Text + ' and ' +
или через параметры.

спасибо, через параметр реализовал

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	28.05.2014, 12:43
	В строках 10, 11 запятые на and замени. 0