3 в 1

[Steel_rat]

Select
o.*, i.*, k.*, l.*, m.*
From RegDog o, Vivodok i, Rod k, Vladelec l, Zavod m
Where o.Vyazka = i.Nomer and o.NomRod = k.NomRod and o.Vlad = l.Fam and o.Zavod = m.FIO

Я это когда то так делал)

[Steel_rat]

тут по больше БД чем три)

[azat]

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

Select
o.*, i.*, k.*, l.*, m.*
From RegDog o, Vivodok i, Rod k, Vladelec l, Zavod m
Where o.Vyazka = i.Nomer and o.NomRod = k.NomRod and o.Vlad = l.Fam and o.Zavod = m.FIO

Я это когда то так делал)

хмммм.... что это такое было..?
как это теперь с компонентами связать? и если честно не понятно ничего

[фЁдОр]

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

хмммм.... что это такое было..?
как это теперь с компонентами связать? и если честно не понятно ничего

что б попонятнее было напишите какие должны быть поля в вашей таблице, хотя ее таблицей и не назовешь, т.к. Вы просто хотите вывести значения из разных таблиц, разных БД.
Просто напишите из каких БД, таблиц, полей Вы хотите получить результат, а мы уж поможем Вам получить результат.

[Steel_rat]

Ищу нужные данные, в твоем случае это будет например фамилия сотрудника.

потом выгружаю эти данные в вордовский документ с помощью компаненты ekRTF

procedure TPoisk.SpeedButton5Click(Sender: TObject);
begin
createdir(extractfiledir(applicatio n.ExeName)+'\report');
With EKRTF2 do
Begin
OutFile:=CreateFileName('report','R odoslAll');
ExecuteOpen([Query1],SW_SHOW);
End;
Query1.Filter:='';
end;


ниже представлен текс доковского документа)

Список собак с родословной
№ Порода Кличка Дата рождения Дата Регистрации Номер паспорта Пол Окрас Клеймо Заводчик Владелец Отец Мать
\scan(a)\
\a:Key\ \a:Poroda\ \a:Nick\ \a:DataRoj\ \A:DataReg\
\A.NomPas\ \A:Pol\ \A:Okras\ \A:Kleimo\ \A:Zavod\ \A:Vlad\ \A:RoditF\ \A:RoditM\
\endscan\

в моем случае я находил определенную собаку и выгружаю данные о ней с разных таблиц в *.doc

[Domovoy]

МДА что тока не увидешь . Я шалею аш смешно смотреть на всё это
Azat ну ты и заварил кашу!!! Казалось бы ...из мухи получился слоняра