Чудеса SQL

[nactyx]

Всем доброго времени суток.

Имеется вот такой код:

    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('declare @prod varchar(255) set @prod = :parm1');
      ADOQuery1.Parameters.ParamByName('parm1').Value := AStr;
      SQL.Add('select _id, _product');
      SQL.Add('from vwObjects');
      SQL.Add('where _product = @prod');
      Open;
    end;

В случае, когда AStr = '1-01-0002/0 2016' - результат имеется.
В случае, когда AStr = '3-01-8613/0 2016' - результата нет.

Но весь прикол в том, что если вручную в БД используя оба этих значения - результат будет для обоих.

В чем может быть проблема?

[Аватар]

Наверно не в чудесах, а в корявостях программы. Не? И зачем declare, set? Параметр можно прямо в запросе задать

[nactyx]

Сообщение от Аватар

Параметр можно прямо в запросе задать

Как именно можно изменить код? Я уже с этими вариациями запутался.

И что за корявость такая может быть: строка передается в нужном виде, но в одном случае результат есть, а в другом - нет. Куда копать?

[Аватар]

  ADOQuery1.SQL.Text:='select _id, _product from vwObjects where _product = :parm1';
  ADOQuery1.Parameters.ParamByName('parm1').Value := AStr;

Корявость какая не знаю, нет полного кода

[nactyx]

Копируется столбец из Excel, активным делаем нашу программу и по нажатию на ctrl + v на форму в грид добавляются значения из Excel. _product - это AStr, _id - из БД подтягивается для дальнейших действий.

procedure TfRepLoadStans.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  S: string;
  I, N: Integer;
  AStr: String;
begin
  if Msg.CharCode = Ord('V') then
  if (GetKeyState(VK_CONTROL) < 0) then
    begin
      Handled := True;
  if (Clipboard.HasFormat(CF_TEXT)) and (Clipboard.AsText <> '') then
  begin
    s := Clipboard.AsText;
    s := StringReplace(s, #$D#$A, '!', [rfReplaceAll]);
    n := 1;
    i := 1;
    while i <= length(s) do
    begin
      if (s[i] = '!') and (s[i+1] <> '!') then
      begin
        AStr := copy(s, n, i-n);
        if AStr[Length(AStr)] = '!' then AStr := copy(AStr, 1, Length(AStr)-1);


    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      ADOQuery1.SQL.Text := 'select _id, _product from vwObjects where _product = :parm1';
      ADOQuery1.Parameters.ParamByName('parm1').Value := AStr;
      Open;
    end;
        AddOrder2(ADOQuery1.FieldByName('_id').AsString, AStr);
        n := i+1;
        inc(i);
      end
      else
        inc(i);
    end;
  end
  else
    MessageDlg('В буфере обмена ничего нет', mtInformation, [mbOK], 0);
    end;
end;

Процедура AddOrder2:

procedure TfRepLoadStans.AddOrder2(a, b: string);
var
  order, orderName : string;
  I, J : Integer;
begin
  if(not ADOQuery1.IsEmpty) then
  begin
    order := a;
    orderName := b;
    SetLength (OrderMas, Length(OrderMas) + 1);
    I := 0;
    while (I<Length(OrderMas)) do
    begin
      if OrderMas[I] = order then
      begin
        I := Length(OrderMas);
        raise Exception.Create('Этот заказ уже выбран!');
      end;
      I := I + 1;
    end;
    OrderMas[Length(OrderMas)-1] := order;
    if (ADOQuery2.IsEmpty) then
    with ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('create table #tmp15 (orderNO VarChar(255), orderName VarChar(255))');
      SQL.Add('insert into #tmp15 values(''' + order + ''' ,''' + orderName + ''')');
      SQL.Add('select * from #tmp15');
      Open;
      cxButton4.Enabled := True;
      cxButton5.Enabled := True;
    end
    else
    with ADOQuery2 do
    begin
     SQL.Clear;
     SQL.Add('insert into #tmp15 values(''' + order + ''' ,''' + orderName + ''')');
     SQL.Add('select * from #tmp15');                                                              // and (_id <> '')
     Open;
    end;
    with ADOQuery1 do
    begin
      SQL.Text := SQLText;
      for J := 1 to Length(OrderMas) do
      begin
        SQL.Add('and (_id <> ''' + OrderMas[J-1] + ''')');
        cxTextEdit1PropertiesChange(nil);
      end;
    end;
  end
end;

[evg_m]

    else begin
     ADOQuery2.SQL.Clear;
     ADOQuery2.SQL.Add('insert into #tmp15 values(''' + order + ''' ,''' + orderName + ''')');
     ADOQuery2.SQL.Add('select * from #tmp15');                                                              // and (_id <> '')
     ADOQuery2.Open;//НЕ ОКАЗЫВАЕТ ВЛИЯНИЯ так как ОН УЖЕ ОТКРЫТ (забыли закрыть ДО )
    end;

как результат имеем СТАРЫЙ набор данных (от предыдущего вызова)

[nactyx]

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

    else begin
     ADOQuery2.SQL.Clear;
     ADOQuery2.SQL.Add('insert into #tmp15 values(''' + order + ''' ,''' + orderName + ''')');
     ADOQuery2.SQL.Add('select * from #tmp15');                                                              // and (_id <> '')
     ADOQuery2.Open;//НЕ ОКАЗЫВАЕТ ВЛИЯНИЯ так как ОН УЖЕ ОТКРЫТ (забыли закрыть ДО )
    end;

как результат имеем СТАРЫЙ набор данных (от предыдущего вызова)

Допустим в этом проблема. Тогда почему отдельно один работает, отдельно второй не работает? Не смотря на этот кусок кода. Потому что когда только одно значение (одна ячейка) - в это место даже не попадает компилятор. Так что проблема остается. Я уже голову сломал почему. Одно работает, второе нет. Непосредственно в БД работают оба.

[nactyx]

Почему здесь _ID находит:

А в программе _ID не может найти