ADOQuery

[Alessiy]

Пожалуйста, подскажите, что тут не так?..

procedure TForm1.Button2Click(Sender: TObject);
begin
if edit2.Text = '' then begin ShowMessage('Введите название фирмы');
end else begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM Автомобили WHERE Страна = (SELECT Страна FROM Фирма WHERE Название_фирмы = (''+edit2.text+''))');
ADOQuery2.Active:=True; end;
end;

Пишет, что нет значения по умолчанию...(((



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Gulik]

С ковычками у тебя напутано на первый взгляд

   if edit1.Text = '' then begin
      ShowMessage('Введите название фирмы');
   end
   else begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM Автомобили WHERE Страна = (SELECT Страна FROM Фирма WHERE Название_фирмы = '''+edit1.text+''')');
      ADOQuery1.Active:=True;
   end;

[Alessiy]

Теперь ошибки нет, но результат тоже не выводится...
Может как-то не правильно воспринимается: Название_фирмы = '''+edit1.text+''' ?..
Числовые значения - нормально, строковые - ни как...

[SERG1980]

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

Теперь ошибки нет, но результат тоже не выводится...
Может как-то не правильно воспринимается: Название_фирмы = '''+edit1.text+''' ?..
Числовые значения - нормально, строковые - ни как...

А датасет у вас на квери переведён (DataSource.DataSet:=Query)
на счёт кавычек
можно так

"'+edit1.text+"' ?..

или

+QuotedStr(edit1.text)

т.е

ADOQuery1.SQL.Add('SELECT * FROM Автомобили WHERE Страна = (SELECT Страна FROM Фирма WHERE Название_фирмы = '+QuotedStr(edit1.text)+')');

[Alessiy]

Люди, спасибо Вам огромное за помощь!.. Всё работает!..)))