Ошибка "Empty SQL Statement"

[Alginsky]

Есть программа сделано на делфи.(кем то сделан) теперь я почти все исправил. только вот там есть функция "фильтрация"(CheckBox). Подключил базу (по моему основан на InterBase. Формать базы *.GDB) поставил галочку на фильтрацию и ничего не происходит, потом убираю галочку вылазит ошибка "Empty SQL Statement" и все база отключаеться и фиг подключишь. Надо перезагрузить что бы включить базу. Как решить эту проблему помогите??

[Sciv]

Empty SQL Statement

Пустое выражение SQL-запроса. Или попросту - пустой SQL-запрос. Типа как просто слово SELECT вместо SELECT * FROM TABLE ... (возможно, так и есть)

Рассказывайте, как базу подключали (то есть какой путь до сервера писали, до базы). Если возможно - скриншоты чудо-программы в студию.

До того, как галочку на Фильтрацию ставите - все работает или как? Как в идеале должно работать, что фильтровать?

[Alginsky]

Вот его код

procedure Tmainform.FilterCancelClick(Sender: TObject);
begin
       case TablesSelector.TabIndex of
       0:begin
               if FilterCancel.Checked=false then
               begin
                      dtm.awaretypes.Close;
                      dtm.awaretypes.SelectSQL.Clear;
                      dtm.awaretypes.SelectSQL.Add(SQL1);
                      dtm.awaretypes.Open;
                      F1:=false;
                      FilterCancel.Checked:=F1;
               end;
         end;
       1:      if FilterCancel.Checked=false then
               begin
                      dtm.wares.Close;
                      dtm.wares.SelectSQL.Clear;
                      dtm.wares.SelectSQL.Add(SQL2);
                      dtm.wares.Open;
                      F2:=false;
                      FilterCancel.Checked:=F2;
             end;
       2: if FilterCancel.Checked=false then
               begin
                      dtm.clients.Close;
                      dtm.clients.SelectSQL.Clear;
                      dtm.clients.SelectSQL.Add(SQL3);
                      dtm.clients.Open;
                      F3:=false;
                      FilterCancel.Checked:=F3;

               end;
       3:  if FilterCancel.Checked=false then
               begin
                      dtm.sales.Close;
                      dtm.sales.SelectSQL.Clear;
                      dtm.sales.SelectSQL.Add(SQL4);
                      dtm.sales.Open;
                      F4:=false;
                      FilterCancel.Checked:=F4;

               end;

       end;

end;

procedure Tmainform.TablesSelectorChange(Sender: TObject);
begin
       case TablesSelector.TabIndex of
       0:FilterCancel.Checked:=F1;
       1:FilterCancel.Checked:=F2;
       2:FilterCancel.Checked:=F3;
       3:FilterCancel.Checked:=F4;
       end;
end;

[Sciv]

Какой-то на редкость бессмысленный код:

if FilterCancel.Checked=false then
begin
  ...
  F1:=false;
  FilterCancel.Checked:=F1;
end;

и так для каждого case. В итоге же FilterCancel.Checked=false всегда. И нигде не увидел dtm.sales.SelectSQL.Close;, которая должна срабатывать по идее, когда убирается фильтр (т.е. отображаются все записи). Вероятно, истина где-то в этой паре косяков.

Попробуйте этот код закомментить и вставить следующее:

procedure Tmainform.FilterCancelClick(Sender: TObject);
var SQLtext: string;
begin
  case TablesSelector.TabIndex of
    0: SQLText:=SQL1;
    1: SQLText:=SQL2;
    2: SQLText:=SQL3;
    3: SQLText:=SQL4;
  end;

  dtm.awaretypes.Close;

  if FilterCancel.Checked then
    begin
       dtm.awaretypes.SelectSQL.Clear;
       dtm.awaretypes.SelectSQL.Add(SQLText);
       dtm.awaretypes.Open;
    end;

end;

procedure Tmainform.TablesSelectorChange(Sender: TObject);
begin
  FilterCancelClick(Sender);
end;

[Alginsky]

Не получилось. Фильтрация по вкладке вообще работать перестал. База подкючаеться но не показывает данные. А фильтрация по чекбоксу сразу выдает прежднюю ошибку уже когда поставил галочку(((

[Sciv]

Тогда попробуйте вот так:

  if not FilterCancel.Checked then

А еще быстрее будет, если Вы к посту прикрепите архив с проектом и файлом *.gdb

[Alginsky]

изменить все строки if FilterCancel.Checked=false then на if FilterCancel.Checked then??

[Sciv]

Не, в том варианте, который я дал изменить только одну строку - пока. Там дальше смотреть будем.

Либо вернуть старый вариант и трассировать программу с помощью точки останова в этой процедуре - умеете?

[Alginsky]

мне кто то сказал что надо настроить базу что бы она всегда редактировалась. как это? может база не дает разрешения на фильтрацию?

[Alginsky]

Проект светит не хочется могу ли я вам скинуть в эл почту?? или дать ссылку в личку что ли пожалуйста?