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

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

как выбрать данные? [D6, XP]


начинающий ©   (2008-08-21 11:36:00) 

как выбрать данные с определённого диапазона дат? с 1 по 30 число?
Использую clientdataset, за один день получилось выбрать а как выбрать данные с 1 число по 30 незнаю? как можно это сделать?


Loginov Dmitry   (2008-08-21 20:21:00) [1]

> как выбрать данные с определённого диапазона дат? с 1 по
> 30 число?
> Использую clientdataset, за один день получилось выбрать
> а как выбрать данные с 1 число по 30 незнаю? как можно это
> сделать?


Во-первых, clientdataset поддерживает операцию BETWEEN в фильтре.
Во-вторых, если clientdataset подключен к базе через какой-нибудь TXXXQuery, то можно должным образом сформировать SELECT-запрос.


Vlad Oshin   (2008-08-21 11:50:00) [2]

excel:=createoleobject('Excel.Application');
excel.workbooks.add;
dm.DataModule1.magazine.First;
for i:=1 to dm.DataModule1.magazine.RecordCount do //wile not(eof(magazine)) do лучше begin    // end; где?
 Excel.ActiveWorkBook.WorkSheets[1].Cells[2+i, 2]:=dm.DataModule1.magazinentopg.Value;
 Excel.ActiveWorkBook.WorkSheets[1].Cells[2+i, 3]:=dm.DataModule1.jurnalitogo.Value;
 dm.DataModule1.magazine.Next;
 excel.visible :=true;


Vlad Oshin   (2008-08-21 11:46:00) [3]

до этого
как они в набор попали?


Сергей М.   (2008-08-21 11:43:00) [4]


> код корявый конечно


Не то что корявый, вообще ни в какую дырку не годится и совсем не по теме)


deadteachers   (2008-08-21 11:41:00) [5]


> > за один день получилось выбрать
>
> как?
>

excel:=createoleobject('Excel.Application');
excel.workbooks.add;
dm.DataModule1.magazine.First;
for i:=1 to dm.DataModule1.magazine.RecordCount do begin
Excel.ActiveWorkBook.WorkSheets[1].Cells[2+i, 2]:=dm.DataModule1.magazinentopg.Value;
Excel.ActiveWorkBook.WorkSheets[1].Cells[2+i, 3]:=dm.DataModule1.jurnalitogo.Value;
dm.DataModule1.magazine.Next;
excel.visible :=true;

код корявый конечно


Vlad Oshin   (2008-08-21 11:38:00) [6]


> за один день получилось выбрать

как?


Наверх

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