Посмотрите ошибку

[Steil]

Написал код:
procedure TForm2.Button7Click(Sender: TObject);
begin
with dm.Query9 do begin
with SQL do begin
Clear;
Add( 'Select Kod_tovara, Kod_firmy FROM (Tovar INNER JOIN Zakaz_tovar ON Zakaz_tovar.Kod_zakaza = Zakaz_tovar.Kod_zakaza) INNER JOIN Zakaz_firma ON Zakaz_tovar.Kod_zakaza = Zakaz_firma.Kod_zakaza WHERE Zakaz_firma.Kod_firmy = ');
Add( inttostr(dm.Firma.FieldValues['Kod_firmy']) );
end;
Active := true;
ExecSQL;
end;
DBGrid3.DataSource := DM.DataSource7;
end;
вроде как всё правильно, но какого то хера вылетает ошибка:First chance exception at $75D49617. Exception class EDBEngineError with message 'Key violation.
[Microsoft][Драйвер ODBC Microsoft Access] Не поддерживается выражение объединения.'. Process Project5.exe (4536)
и указывает на ExecSQL;
Объясните в чём проблема???

[vovk]

ну для начала не помешало бы воздержатся от ненормативной лексики.

потом
1)

'Select Kod_tovara, Kod_firmy FROM (Tovar INNER JOIN Zakaz_tovar ON Zakaz_tovar.Kod_zakaza = Zakaz_tovar.Kod_zakaza) INNER JOIN Zakaz_firma ON Zakaz_tovar.Kod_zakaza = Zakaz_firma.Kod_zakaza

Не находите странным соединение таблиц? чтото вы поле одной таблицы указываете ..
далше
2)

Add( inttostr(dm.Firma.FieldValues['Kod_firmy']) );

возможно и нормально.. не могу судить, описание таблиц невидел..
3)
ещё

Active := true;
ExecSQL;

и к чему тут ExecSQL ? не мешало бы сказать что за компонент Query9
это TQuery? в общем Active := true; равносильно Open и для TQuery используется для открытия набора данных, т.е запроса возвращающего набор данных, ExecSQL в этом компоненте применяется для запросов изменяюих табдлицы, то есть UPDATE, DELETE, CREATE , но не SELECT.
Для ADOQuery это тоже будет верно.

[vovk]

повтор, удалите пожалуйста

[Steil]

Верно, тут я хоел написать так:
'Select Kod_tovara, Kod_firmy FROM (Tovar INNER JOIN Zakaz_tovar ON Tovar.Kod_zakaza = Zakaz_tovar.Kod_zakaza) INNER JOIN Zakaz_firma ON Zakaz_tovar.Kod_zakaza = Zakaz_firma.Kod_zakaza

Использую TQuery, но я незнал что ExecSQL; не испльзуется для select..

Прикрепил базу..

[vovk]

ну скорее Tovar.Kod_tovara = Zakaz_tovar.Kod_tovara
вроде тогда должно работать, единственное поле Kod_tovara может относится к 2 таблицам, нужно уточнить либо Tovar.Kod_tovara, или Zakaz_tovar.Kod_tovara

[Stilet]

Мат в эфире.
Неформатирование поста.
Закрываю за нарушения