Удаление строки из таблице

SQL во всех проявлениях - от ANSI-92 до TSQL.

Модераторы: Yurich, Absurd

Ответить
qwerty2009
Сообщения: 15
Зарегистрирован: 04 фев 2009, 13:48

При удалении строки выдает ошибку. [Error] U_DeleteZayavki.pas(39): ')' expected but identifier 'aud1' found
что не так??? подскажите пожалуйста. :)

Код: Выделить всё

procedure TDelete_zayavki.Button1Click(Sender: TObject);
var aud1:string;
begin
  aud1:=Edit2.Text;
  AbsQueryDelete.SQL.Clear;
  ABSQueryDelete.SQL.Add('DELETE FROM Zayavka WHERE aud='aud1'');
  AbsQueryDelete.Active:=true;
end;
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Синтаксическая ошибка Pascal при компиляции.
Чтобы вставить в текст одну одинарную кавычку, ее надо писать 2 раза;

Add('DELETE FROM Zayavka WHERE aud=''aud1''');
qwerty2009
Сообщения: 15
Зарегистрирован: 04 фев 2009, 13:48

Теперь вот такая ошибка выскакивает: Error Creating table handle- Native error:20001'. Какая-то исключительная ситуация я так понимаю???

Код: Выделить всё

procedure TDelete_zayavki.Button1Click(Sender: TObject);
var date1,aud1:string; ssql:string;
begin
  date1:=Edit1.Text;
  aud1:=Edit2.Text;
  AbsQueryDelete.SQL.Clear;
  ABSQueryDelete.SQL.Add('DELETE FROM Zayavka WHERE aud=''aud1''');
  AbsQueryDelete.Active:=true;
end;
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
самое интересное что он всеравно удаляет данную строку....
Спасибо, уже разобрался...
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

AbsQuery теоретически должен позволять либо просто выполнять запрос, либо выполнять запрос и фетчить полученный рекордсет. Второй режим работы нужен для селектов, а первый как раз для остальных DML-команд.
Может быть в этом дело.
Какое-то свойство по идее должно за это отвечать.
Ответить