Ошибка SQL запроса , в базе работает, а через IBQuery в Delphi ошибка

@ev1lzhenko · Регистрация: 11.12.2016

В Combobox загружены имена организаций.
Нужно выполнить запрос на вывод всех полей таблицы организаций при выборе имени в Combobox.
При выборе имени в комбобоксе выполняется следующее:

Delphi

1
2
3

IBQuery1.SQL.Text:='select *from organizaciya where naimenovanie='+Combobox1.Text;
ibquery1.Open;
ibquery1.Close;

Ошибка SQL запроса , в базе работает, а через IBQuery в Delphi ошибка

Что не так?

@YuryK · 14.12.2016, 14:14

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

T-SQL

1	select *from organizaciya where naimenovanie=какое-то наименование

а должно

T-SQL

1	select *from organizaciya where naimenovanie='какое-то наименование'

найди 2 отличия

P.S. хотя такая ошибка должна вызывать другое исключение. Ты уверен, что ошибка именно в этих строках?

@ev1lzhenko · 14.12.2016, 14:22 **[ТС]**

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

Ты уверен, что ошибка именно в этих строках?

Да,именно в этих строках.Если их закомментить, то ничего не происходит.

То что написали вы, это так бы выглядел запрос если писать его в IBExpert. И там я эти запросы проверял и они работают.
А как написать через Ibquery в Delphi? Вроде ведь все по логике верно пишу.. после "=" пишу значение текста Combobox.

@krapotkin · 14.12.2016, 14:27

вы не читаете ?
строковое значение должно быть внутри апострофов
у вас их нет, поэтому не работает
включить апостроф в строку можно удвоением
то же самое будет если заключить текстовую переменную в AnsiQuotedChar(Combobox1.Text, '''');

@YuryK · 14.12.2016, 14:27

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

Вроде ведь все по логике верно пишу

писать надо по правилам синтаксиса, а не по логике.
Не веришь? напиши

Delphi

1	IBQuery1.SQL.Text:='select *from organizaciya where naimenovanie='''+Combobox1.Text + '''';

и убедись, что так лучше.

P.S. плохо будет, если в тексте Combobox1 встретится одинарный апостроф '

@qwertehok · 14.12.2016, 16:13

Delphi

1	query.sql.text:='select * from T where ID='+QuotedStr(Combobox.Text);

Добавлено через 44 секунды

Delphi

1 2	query.sql.text:='select * from T where ID=:id'; query.Params[0].asString:=Combobox.Text;

Ошибка SQL запроса , в базе работает, а через IBQuery в Delphi ошибка

Решение

Решение

@ev1lzhenko 0 / 0 / 0 Регистрация: 11.12.2016 Сообщений: 42
	14.12.2016, 14:22 [ТС]	3
	Сообщение от YuryK Ты уверен, что ошибка именно в этих строках? Да,именно в этих строках.Если их закомментить, то ничего не происходит. То что написали вы, это так бы выглядел запрос если писать его в IBExpert. И там я эти запросы проверял и они работают. А как написать через Ibquery в Delphi? Вроде ведь все по логике верно пишу.. после "=" пишу значение текста Combobox. 0

@krapotkin 5027 / 3920 / 1296 Регистрация: 14.04.2014 Сообщений: 18,034 Записей в блоге: 18
	14.12.2016, 14:27	4
	Сообщение было отмечено ev1lzhenko как решение Решение вы не читаете ? строковое значение должно быть внутри апострофов у вас их нет, поэтому не работает включить апостроф в строку можно удвоением то же самое будет если заключить текстовую переменную в AnsiQuotedChar(Combobox1.Text, ''''); 1

Опции темы