Ошибка в SQL-запросе: Token unknown

@comedi · Регистрация: 04.04.2014

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

Вечер добрый. Ошибка в SQL-запросе в делфи. В базе работает, а в делфи нет. Он должен добавлять данные из эдитов в бд а из нее перемещать в дбгрид и отображать как новый объект. но ошибка рода

Delphi

  try
    with f_ned.IBQuery2 do
    begin
      if FNew then
        SQL.Text:=Format('execute procedure PROC_ZHIL(-1, '+
          '%s, %s, %s, %s, ' +
          '%s, %s, %s, %s, ' +
          '%s, %s, %s, %s, %s)',
   [AnsiQuotedStr(f_add_arenda.Edit1.Text, ' '), f_add_arenda.Edit2.Text, AnsiQuotedStr(f_add_arenda.Edit3.Text, ' '), f_add_arenda.Edit4.Text,
    f_add_arenda.Edit5.Text, f_add_arenda.Edit6.Text, AnsiQuotedStr(f_add_arenda.Edit7.Text, ' '), AnsiQuotedStr(f_add_arenda.Edit8.Text, ' '),
    AnsiQuotedStr(f_add_arenda.Edit9.Text, ' '), AnsiQuotedStr(f_add_arenda.Edit10.Text, ' '), AnsiQuotedStr(f_add_arenda.Edit11.Text, ' '),
    f_add_arenda.Edit12.Text, AnsiQuotedStr(f_add_arenda.Edit13.Text, ' ')])
      else
        SQL.Text := Format('execute procedure PROC_ZHIL('+f_ned.IBQuery1.FieldByName('KOD_ZHIL').AsString +
          '%s, %s, %s, %s, ' +
          '%s, %s, %s, %s, ' +
          '%s, %s, %s, %s, %s)',
          [AnsiQuotedStr(f_add_arenda.Edit1.Text, ' '), f_add_arenda.Edit2.Text, AnsiQuotedStr(f_add_arenda.Edit3.Text, ' '),
          f_add_arenda.Edit4.Text, f_add_arenda.Edit5.Text, f_add_arenda.Edit6.Text, AnsiQuotedStr(f_add_arenda.Edit7.Text, ' '),
          AnsiQuotedStr(f_add_arenda.Edit8.Text, ' '), AnsiQuotedStr(f_add_arenda.Edit9.Text, ' '), AnsiQuotedStr(f_add_arenda.Edit10.Text, ' '),
          AnsiQuotedStr(f_add_arenda.Edit11.Text, ' '),f_add_arenda.Edit12.Text, AnsiQuotedStr(f_add_arenda.Edit13.Text, ' ')]);
        Transaction.StartTransaction;
        ExecSQL;
        Transaction.Commit;
        Transaction.Active:=false;
    end;
    f_ned.IBQuery1.Close;
    f_ned.IBQuery1.Open;
  except
  on E: Exception do
  begin
    if f_ned.IBQuery2.Active then
      f_ned.IBQuery2.Transaction.Rollback;
      Application.MessageBox(PChar(E.Message), 'Ошибка', MB_ICONERROR);

Уважаемые подскажите в чем мой косяк

@teleprog · 22.07.2014, 02:12

AnsiQuotedStr(f_add_arenda.Edit1.Text, ' ')

Второй параметр точно пробел должен быть?
Может все-таки там кавычки надо вместо пробела?
AnsiQuotedStr(f_add_arenda.Edit1.Text, '''')?

@comedi · 22.07.2014, 10:08 **[ТС]**

ошибка та же, только программа теперь полностью видит слово Фамилия

Добавлено через 32 минуты
violation of primary or unique key constant pk_zhilie on table zhilie. database page encrypt value corrupt

Добавлено через 5 минут
спасибо, разобрался. тему можно закрыть

@teleprog 177 / 149 / 43 Регистрация: 14.08.2008 Сообщений: 1,290
	22.07.2014, 02:12	2
	AnsiQuotedStr(f_add_arenda.Edit1.Text, ' ') Второй параметр точно пробел должен быть? Может все-таки там кавычки надо вместо пробела? AnsiQuotedStr(f_add_arenda.Edit1.Text, '''')? 1

@comedi 0 / 0 / 1 Регистрация: 04.04.2014 Сообщений: 42
	22.07.2014, 10:08 [ТС]	3
	ошибка та же, только программа теперь полностью видит слово Фамилия Добавлено через 32 минуты violation of primary or unique key constant pk_zhilie on table zhilie. database page encrypt value corrupt Добавлено через 5 минут спасибо, разобрался. тему можно закрыть 0

Опции темы