[РЕШЕНО]: Где ошибка в запросе?

[edsjeka]

И так
ADOQuery2.SQL.Text:='Select * From SprRabot Where SprRabot.Rabota='+SRabota;
и так
ADOQuery2.SQL.Add('Select * From SprRabot Where SprRabot.Rabota='+SRabota);
выбивается одинаковая ошибка синтаксиса: пропущен оператор в выражении запроса? Что здесь не так?

Решение:
http://www.programmersforum.ru/showp...1&postcount=15

[Iron Monk]

ADOQuery2.SQL.Add('Select * From SprRabot Where Rabota='''+SRabota+'''');

[Аватар]

Rabota символьное поле? Тогда значение переменной SRabota нужно закавычить

[evg_m]

попробуйте выполнить любой из ниже приведенных запросов и сравните результаты со своими.

выбивается одинаковая ошибка синтаксиса: пропущен оператор в выражении запроса? Что здесь не так?

select * from sprRabot where sprRabot.rabota =
select * from sprRabot where sprRabot.Rabota =уборка мусора

QuotedStr(....)

[edsjeka]

Сообщение от Iron Monk

ADOQuery2.SQL.Add('Select * From SprRabot Where Rabota='''+SRabota+'''');

Спасибо, именно так работает.

Еще одна ошибка вылетает когда пытаюсь добавить записи в БД:

ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, IDkart, IDRab)');

вернее уже после этого, когда делается:

ADOQuery1.Active:=true;

Выдается ошибка, что переменные IDkart и IDrab не имеют значения по умолчанию.

Вот мой код

procedure TFMRabotaLazKartridgi.DBGrid1ColExit(Sender: TObject);
 var I,IDrab:integer;
     SRabota: string;
begin
if DBGrid1.SelectedField.FieldName='Raboti'
    then
       begin

          Memo1.Clear;   
             ADOQuery1.Active:=false;                                             // отключение таблицы Cartridg_Raboti
          for I:= 0 to CheckListBox1.Items.Count - 1 do                     // цикл по CheckListBox1
         begin
          if CheckListBox1.Checked[i] then                                       // если работа отмечена, то
             begin
               SRabota:=CheckListBox1.Items[i];                               // SRabota присваивается текстовое значение работы из CheckListBox1
               ADOQuery2.Active:=false;                                          // отключает запрос из SprRabot
               ADOQuery2.SQL.Clear;                                              // обнуляется запрос
               ADOQuery2.SQL.Add('Select * From SprRabot Where Rabota='''+SRabota+'''');                              //выбор из справочника работ, такого значения, которое соответствует SRabota, т.е. которое выбрано в CheckListBox1
               ADOQuery2.Active:=true;                                                      //активируется запрос для вывода записи соответствующей значению работы из CheckListBox1
              IDrab:=ADOQuery2.FieldValues['IDRabot'];                                      // IDrab присваивается значение ID работ выбранного из справочника работ
              Memo1.Lines.Add(CheckListBox1.Items[i]);
              ADOQuery1.SQL.Clear;                                                             //обнуление запроса по Cartridg_Raboti
              ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, IDkart, IDRab)');       // вставка в промежуточную таблицу значения ID картриджа и ID работы

             end;
         end;
       CheckListBox1.Visible:=false;                                                 // скрытие CheckListBox1
       ADOQuery1.Active:=true;                                                       // активация запроса из Cartridg_Raboti для просмотра в предпросмотровой dbgrid
       end;
end;

[Iron Monk]

ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, '+IDkart+','+ IDRab+')');

И далее - ADOQuery1.ExecSQL;

[edsjeka]

Сообщение от Iron Monk

ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, '+IDkart+','+ IDRab+')');

И далее - ADOQuery1.ExecSQL;

Получается несовпадение типов IDkart типа int и поле типа int, а когда IDkart в одинарных кавычках, получается несовпадение string и int.


А что означают плюсы после и перед кавычками?

[Dvoishnik]

Сообщение от Iron Monk

ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, '+IDkart+','+ IDRab+')');

И далее - ADOQuery1.ExecSQL;

что то мне подсказывает что нечего не выйдет...

[edsjeka]

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

что то мне подсказывает что нечего не выйдет...

В смысле, я такой безнадежный?

[Dvoishnik]

Вам не совсем правильно подсказали

ADOQuery1.SQL.Add('Insert Into Cartridg_Raboti Values (0, '+IntToStr(IDkart)+','+ IntToStr(IDRab)+')');

а плюсы обозначают.. не поверите сложение!