помогите составить SQL запрос!!!!

[MAKSA]

Есть две таблици AGENT(с полями FIO_AGENT, TEL_AG), ARENDA_KVARTIR(с полями INF, FIO_SOBSNVENIK, TEL_SOBSNVENIK, FIO_AGENT).
Мне надо вывести в одну таблицу INF и FIO_SOBSNVENIK, TEL_SOBSNVENIK, если FIO_AGENT='Иванов И. И.', либо INF и FIO_AGENT, TEL_AGENT, если FIO_AGENT<>'Иванов И. И.'.

Объясню для чего это надо: есть риелторская бд по аренде квартир, с ней работают N агентов. Допустим агент прошел автаризацию, ему выводиться список всех квартир(и его и других агентов) причём если это его кв. то он видит контактные данные собственника, а если нет то только контактные данные агента который работает с этим собственником.

[BARNEY]

select INF , FIO_SOBSNVENIK, TEL_SOBSNVENIK 
from ARENDA_KVARTIR
where FIO_AGENT='Иванов И. И.'

либо
select INF ,FIO_AGENT, TEL_AGENT
from AGENT
where FIO_AGENT<>'Иванов И. И.'

если правильно понял вопрост то

[MAKSA]

а как потом эти два запроса свести в одну таблицу????
т.е. будет три столбца:
1 - INF
2 - FIO_SOBSNVENIK либо FIO_AGENT (в зависимости от условия)
3 - TEL_SOBSNVENIK либо TEL_AGENT.

[Wicort]

не, обе выборки, как я понял, нужно в одну таблицу запихнуть. Тогда получится что-то типа этого:

SELECT t_Arenda.INF as Inf, 
           CASE WHEN t_Agent.FIO_AGENT = 'Иванов И. И.' THEN t_Arenda.FIO_SOBSNVENIK ELSE NULL END as FioSobst, 
           CASE WHEN t_Agent.FIO_AGENT = 'Иванов И. И.' THEN t_Arenda.TEL_SOBSNVENIK ELSE NULL END as TelSobst,
           CASE WHEN t_Agent.FIO_AGENT <> 'Иванов И. И.' THEN t_Agent.FIO_AGENT ELSE Null END as FioAgent,
           CASE WHEN t_Agent.FIO_AGENT <> 'Иванов И. И.' THEN t_Agent.TEL_AG ELSE Null END as TelAgent  
FROM AGENT AS t_Agent
INNER JOIN ARENDA_KVARTIR AS t_Arenda
  ON t_Arenda.FIO_AGENT = t_Agent.FIO_AGENT

[Black Fregat]

select INF , FIO_SOBSNVENIK, TEL_SOBSNVENIK 
from ARENDA_KVARTIR
where FIO_AGENT='Иванов И. И.'
union
select AR.INF , AG.FIO_AGENT, AG.TEL_AG 
from ARENDA_KVARTIR AR 
left join AGENT AG ON AR.FIO_AGENT = AG.FIO_AGENT
where AR.FIO_AGENT<>'Иванов И. И.'

[MAKSA]

Спасибо, пока не побавал, но думаю подойдёт.....)))))))))
Товарищи, есть у кого книжки по составлению сложных запросов? Порылся в сети, в основном всё кгнижки описывают простейшие запросы.

[MAKSA]

left join AGENT AG ON AR.FIO_AGENT = AG.FIO_AGENT

Растолкуйте строчку.......

[Власов А.С.]

И у меня вопрос вот листинг кода
procedure TForm2.Button1Click(Sender: TObject);
var k:boolean;
m:string;
begin
ProgressBar1.Position:=0;
for i:=ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position:=ProgressBar1 .Position+1;
Sleep(30);
Label5.Caption:='Идет поиск данных ' +IntToStr(ProgressBar1.Position)+ '%';
Application.ProcessMessages;
end;
ProgressBar1.Position:=0;
Label5.Caption:='';
k:=false;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select *');
ADOQuery1.SQL.Add('FROM Свод');
if CheckBox1.Checked then
begin
if not(k) then ADOQuery1.SQL.Add('where Сельсовет='+chr(39)+DBLookupComboBo x3.Text+chr(39)) else ADOQuery1.SQL.Add(' and Сельсовет='+chr(39)+DBLookupComboBo x3.Text+chr(39)) ;
k:=true;
end;
if CheckBox2.Checked then
begin
if not(k) then ADOQuery1.SQL.Add('where КБК='+chr(39)+DBLookupComboBox4.Tex t+chr(39)) else ADOQuery1.SQL.Add(' and КБК='+chr(39)+DBLookupComboBox4.Tex t+chr(39)) ;
k:=true;
end;
if CheckBox3.Checked then
begin
if not(k) then
begin
if (edit1.text<>'') and (edit2.text<>'') then ADOQuery1.SQL.Add('where Дата>=#'+edit1.Text+'# and Дата<=#'+edit2.Text+'#');
end
else
begin
if (edit1.text<>'') and (edit2.text<>'') then ADOQuery1.SQL.Add('and Дата>=#'+edit1.Text+'# and Дата<=#'+edit2.Text+'#');
end;
k:=true;
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;

и вот
procedure TForm2.Button3Click(Sender: TObject);
var k:boolean;
m:string;
begin
ProgressBar1.Position:=0;
for i:=ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position:=ProgressBar1 .Position+1;
Sleep(30);
Label5.Caption:='Идет подсчет данных ' +IntToStr(ProgressBar1.Position)+ '%';
Application.ProcessMessages;
end;
ProgressBar1.Position:=0;
Label5.Caption:='';

k:=false;
ADOQuery2.Active:=false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select Sum([Свод].[Сумма]) AS [Sum - Сумма]');
ADOQuery2.SQL.Add('FROM Свод');
if CheckBox1.Checked then
begin
if not(k) then ADOQuery2.SQL.Add('where Сельсовет='+chr(39)+DBLookupComboBo x3.Text+chr(39)) else ADOQuery2.SQL.Add(' and Сельсовет='+chr(39)+DBLookupComboBo x3.Text+chr(39)) ;
k:=true;
end;
if CheckBox2.Checked then
begin
if not(k) then ADOQuery2.SQL.Add('where КБК='+chr(39)+DBLookupComboBox4.Tex t+chr(39)) else ADOQuery2.SQL.Add(' and КБК='+chr(39)+DBLookupComboBox4.Tex t+chr(39)) ;
k:=true;
end;
if CheckBox3.Checked then
begin
if not(k) then
begin
if (edit1.text<>'') and (edit2.text<>'') then ADOQuery2.SQL.Add('where Дата>=#'+edit1.Text+'# and Дата<=#'+edit2.Text+'#');
end
else
begin
if (edit1.text<>'') and (edit2.text<>'') then ADOQuery2.SQL.Add('and Дата>=#'+edit1.Text+'# and Дата<=#'+edit2.Text+'#');
end;
k:=true;
end;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
end;
а как обеденить в один

[Evgeniy26]

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

Спасибо, пока не побавал, но думаю подойдёт.....)))))))))
Товарищи, есть у кого книжки по составлению сложных запросов? Порылся в сети, в основном всё кгнижки описывают простейшие запросы.

Книга. Запросы разной сложности. Лично мне понравилась.

[Wicort]

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

left join AGENT AG ON AR.FIO_AGENT = AG.FIO_AGENT

Растолкуйте строчку.......

Это 2 таблицы сопоставляются по некоторым условиям. В данном случае к таблице ARENDA_KVARTIR стыкуем таблицу AGENT. само условие идет после ON.
LEFT означает, что главная таблица - ARENDA_KVARTIR. Т.е. из нее попадут все записи и к ним относящиеся из правой таблицы (из правой могут не все отобраться).
Так же существуют конструкции RIGHT JOIN и INNER JOIN.
В первой, соответственно, главная таблица - правая. Во втором случае отберутся только те записи, которые полностью удовлетворяют условию и в левой и в правой таблице.