Ошибка empty sql statement

@GolovoloM · Регистрация: 17.12.2012

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

Доброго времени суток.
Возникла такая проблема:
Имеется две формы. На первой присутствует IBDatabase, IBTransaction1, IBQuery2, Combobox1 и 2. На второй форме IBTransaction2, IBQuery4, Combobox4 и 5.
Для Combobox 1 прописываю следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
 ComboBox2.Items.Clear;
 IBQuery2.SQL.Clear;
 IBQuery2.SQL.Add('select rays.time_hour from station, station_way, way, rays where station.title_st='''+ComboBox1.Items[ComboBox1.itemindex]+''' and station.num_st=station_way.num_st and station_way.num_way=way.num_way and way.num_way=rays.num_way');
 IBQuery2.Active:=False;
 IBQuery2.Active:=True;
 IBQuery2.First;
 while not IBQuery2.Eof do
  begin
   ComboBox2.Items.Add(IBQuery2.fieldbyname('TIME_HOUR').AsString);
   IBQuery2.Next;
  end;
 IBQuery2.Active:=False;
end;

Точно такой же код (Естественно и изменением имён) прописываю на Combobox4 на второй форме.
Проблема в том, что запрос из IBQuery с первой формы выполняется нормально, а со второй формы выдаёт ошибку "Empty SQL Statement".
В чём тут проблема?
В IBQuery.SQL на момент вызова точно находится запрос, но он почему-то "невидимый."

@SAMZ · 03.06.2013, 11:37

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

В IBQuery.SQL на момент вызова точно находится запрос

Нет, он там точно не находится!

@GolovoloM · 03.06.2013, 11:47 **[ТС]**

Проверял следующим образом:

Delphi
1
2
3
4
IBQuery2.SQL.Add('select rays.time_hour from station, station_way, way, rays where station.title_st='''+ComboBox1.Items[ComboBox1.itemindex]+''' and station.num_st=station_way.num_st and station_way.num_way=way.num_way and way.num_way=rays.num_way');
 IBQuery2.Active:=False;
s:=IBQuery2.Text;
 IBQuery2.Active:=True;

s-строка и в неё попадает вышеизложенный запрос.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника 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