Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SQL-запрос [D5, dBase, FoxPro]


Oleg_er ©   (2002-06-04 06:20:00) 

нужно сфоормировать хитрый запрос:
а точнее объединить 3 в одном
select aaa from tbl where q=1
select aaa from tbl where q=2
select aaa from tbl where q=3

tbl
aaa | q
--------
qw | 1
qw | 2
we | 2
sd | 3
sd | 1

и желательно получить такую табличку:

1 | 2 | 3 |
----------------
qw | qw | 0 |
sd | 0 | sd |
0 | we | 0 |
----------------


skiph   (2002-06-04 10:33:00) [1]

Через Иксель надо вручную все заполнять, но можно:
Var Exl:Variant;
begin
Exl:=CreateOLEObject("Excel.Application");//Создаем объект Excel
Exl.WorkBooks.add;// добавляем книжку
XL.visible:=true;// делаем видимым
Что делать дальше. Дальше открываешь сам Иксель, начинаешь записывать макрос и во время записи делаешь те действия, которые ты хочешь промоделировать программно, потом открываешь его и читаешь VBA-команды. Их и используешь, напр, для занесения в ячейку строки Exl.ActiveSheet.Cells[i,j]:=Str1;


Oleg_er   (2002-06-04 06:49:00) [2]

нужно эту табличку в ёксел засунуть
тогда чем пользоваться предпочтительнее???
выше перечисленными reportами не пользовался :-(


fnatali   (2002-06-04 06:29:00) [3]

Запрос
select aaa from tbl where q=1 or q=2 or q=3
Что значит - "получить табличку"? Если нужен отчёт в таком виде, то воспользуйся cross-отчётами во free-report (fast-report),XL-report. Или попробуй Decision-cub


Наверх

Титульная страница Поиск, карта сайта Написать письмо