В чем ошибка

@Demon666_2017 · Регистрация: 29.09.2017

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

Подскажите пожалуйста в чем ошибка пишет что несоответствие типов данных в выражении условия отбора
Вот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Tfposity.DBLookupComboBox1Click(Sender: TObject);
begin
FDM.ADOQuery1.SQL.Text:='select postav.Наименование, tovar.Наименование,'+
' количество, цена, ед_измерения from sity, tovar, postav,post_tovar'+
' where sity.Код_города=postav.Код_города and tovar.Код_товара=post_tovar.Код_товара'
+' and postav.Код_поставщика=post_tovar.Код_поставщика and sity.Наименование= '
+FDM.ADOQuerysity.FieldByName('Код_города').AsString;
 FDM.ADOQuery1.ExecSQL;
FDM.ADOQueryposity.Close;
FDM.ADOQueryposity.Open;
end;

база access там проверял запрос все четко и ровно работает

@qwertehok · 21.05.2018, 20:40

потому что Код_города это строка, а строка должна быть в кавычках

Delphi
1
+QuotedStr(FDM.ADOQuerysity.FieldByName('Код_города').AsString);

@D1973 · 21.05.2018, 20:43

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

FDM.ADOQuery1.ExecSQL;

??? Почему??? У Вас же запрос на получение данных!!!

Добавлено через 1 минуту
И кроме того, каждое отдельное условие в секции WHERE должно быть в скобки взято...

@Demon666_2017 · 21.05.2018, 21:25 **[ТС]**

да точно совсем забыл)))
но почему то условие перестало работать т.е. показывает все значения из таблицы

@qwertehok · 21.05.2018, 22:04

без кода это тебе никто не скажет

можешь сделать
FDM.ADOQuery1.SQL.SaveToFile()
(уже после того как сформируешь запрос)
и выполнить его в СУБД

@Demon666_2017 · 21.05.2018, 22:31 **[ТС]**

Я код выше кидал. В СУБД проверял все работает норм
Вот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Tfposity.DBLookupComboBox1Click(Sender: TObject);
begin
FDM.ADOQuery1.SQL.Text:='select postav.Наименование, tovar.Наименование,'+
' количество, цена, ед_измерения from sity, tovar, postav,post_tovar'+
' where sity.Код_города=postav.Код_города and tovar.Код_товара=post_tovar.Код_товара'
+' and postav.Код_поставщика=post_tovar.Код_поставщика and sity.Наименование= '
+QuotedStr(FDM.ADOQuerysity.FieldByName('Код_города').AsString);
 FDM.ADOQuery1.ExecSQL;
FDM.ADOQueryposity.Close;
FDM.ADOQueryposity.Open;
end;
 
procedure Tfposity.FormActivate(Sender: TObject);
begin
fdm.ADOQuerytovar.Open;
fdm.ADOQuerysity.Open;
fdm.ADOQueryposttovar.Open;
fdm.ADOQuerypost.Open;
end;

@qwertehok · 21.05.2018, 22:47

тебе написали что ExecSQL не надо тут использовать
и я спрашивал работает ли запрос в аксессе, если работает значит что то у тебя на форме кривое

@Demon666_2017 · 21.05.2018, 23:09 **[ТС]**

Я просто хочу найти ошибку в программе ! Вот проект, может вы увидите ошибку я просто в упор ее не вижу

@D1973 · 22.05.2018, 04:38

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

Я просто хочу найти ошибку в программе

Вот я Вам нашел одну. И это даже проект не открывая...

Вряд ли у кого-то, окромя Вас, имеется такой вот путь... У меня дык и диска D: нету вообще...

@D1973 · 22.05.2018, 05:04

А собственно, что Вы хотите увидеть? ADOQuery1, для которого Вы формируете текст запроса все равно нигде не фигурирует.
Но даже если на это внимание не обращать, то что Вы хотите получить своим запросом? Кроме непонятного текста запроса - других ошибок в программе нет, она компилируется и работает...

@Demon666_2017 · 22.05.2018, 08:01 **[ТС]**

Я хочу получить список приходных товаров по выбранному городу
Вот так:

SQL
1
2
3
4
SELECT postav.Наименование AS Поставвщик, tovar.Наименование AS Товар, количество, цена, ед_измерения
FROM sity, tovar, postav,post_tovar
WHERE sity.Код_города=postav.Код_города AND tovar.Код_товара=post_tovar.Код_товара AND postav.Код_поставщика=post_tovar.Код_поставщика
 AND sity.Наименование="Железноводск"

И хочу видеть результат

@krapotkin · 22.05.2018, 08:52

а почему в условии если Наименование города =Код города
это одно и то же у вас ?

@Demon666_2017 · 22.05.2018, 14:37 **[ТС]**

Получается я из combobox выбираю наименование города и в таблице должны появиться сведенья о наименовании поставщика и товары которые он поставил
QuotedStr(FDM.ADOQuerysity.FieldByName(' Код_города').AsString) берем первичный ключ из таблицы города

Добавлено через 1 минуту
в прошлой программе все тоже самое писал только база была другая и все отлично работает

@krapotkin · 22.05.2018, 15:23

если работает, то все хорошо

@Demon666_2017 · 22.05.2018, 15:31 **[ТС]**

Даже если в условие поставить sityКод_города то все ровно выдает все

Добавлено через 43 секунды
В том то и дело что не работает

Добавлено через 6 минут

Условие блин не работает!!!!
,

@krapotkin · 22.05.2018, 15:36

поэтому блин и не надо писать "а вот у меня там работает и все хорошо"
работает - сделайте как там
не работает, значит не как там
либо делайте как там, либо ищите ошибку

я вам задал конкретный вопрос
"почему вы сравниваете наименование города с кодом города"
вы мне в ответ про другую базу затираете

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию 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 На первой гифке отладочные линии отключены, а на второй включены:. . .

@Demon666_2017 0 / 0 / 0 Регистрация: 29.09.2017 Сообщений: 167
	21.05.2018, 21:25 [ТС]
	да точно совсем забыл))) но почему то условие перестало работать т.е. показывает все значения из таблицы 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	21.05.2018, 22:04
	без кода это тебе никто не скажет можешь сделать FDM.ADOQuery1.SQL.SaveToFile() (уже после того как сформируешь запрос) и выполнить его в СУБД 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	21.05.2018, 22:47
	тебе написали что ExecSQL не надо тут использовать и я спрашивал работает ли запрос в аксессе, если работает значит что то у тебя на форме кривое 0

@D1973 Модератор 9923 / 6459 / 2457 Регистрация: 21.01.2014 Сообщений: 27,409 Записей в блоге: 3
	22.05.2018, 05:04
	А собственно, что Вы хотите увидеть? ADOQuery1, для которого Вы формируете текст запроса все равно нигде не фигурирует. Но даже если на это внимание не обращать, то что Вы хотите получить своим запросом? Кроме непонятного текста запроса - других ошибок в программе нет, она компилируется и работает... 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	22.05.2018, 08:52
	а почему в условии если Наименование города =Код города это одно и то же у вас ? 0

@Demon666_2017 0 / 0 / 0 Регистрация: 29.09.2017 Сообщений: 167
	22.05.2018, 14:37 [ТС]
	Получается я из combobox выбираю наименование города и в таблице должны появиться сведенья о наименовании поставщика и товары которые он поставил QuotedStr(FDM.ADOQuerysity.FieldByName(' Код_города').AsString) берем первичный ключ из таблицы города Добавлено через 1 минуту в прошлой программе все тоже самое писал только база была другая и все отлично работает 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	22.05.2018, 15:23
	если работает, то все хорошо 0

@Demon666_2017 0 / 0 / 0 Регистрация: 29.09.2017 Сообщений: 167
	22.05.2018, 15:31 [ТС]
	Даже если в условие поставить sityКод_города то все ровно выдает все Добавлено через 43 секунды В том то и дело что не работает Добавлено через 6 минут Условие блин не работает!!!! , 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	22.05.2018, 15:36
	поэтому блин и не надо писать "а вот у меня там работает и все хорошо" работает - сделайте как там не работает, значит не как там либо делайте как там, либо ищите ошибку я вам задал конкретный вопрос "почему вы сравниваете наименование города с кодом города" вы мне в ответ про другую базу затираете 0