Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > > DELPHI Paradox 5.x Выборка за промижуток дат и в

Автор: Ripperr 22.12.2008, 15:36

Надо произвести выборку за период дат дата1-дата2 с последующим введением ограничения датавремя1 -датавремя2.
Парадокс связан через ADO MicroSoftJEt

Код

SELECT CallDate, UserName, Duration, PhoneNumber, Country, ROUND(SumMoney,2) AS SumMoney FROM Statist WHERE  CallDate + CallBegin >= :firstDate AND CallDate + CallBegin <= :secodDate


form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(query1);
form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:=SplitString(datetostr(form1.DateTimePicker1.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',2)+' 00:00:00';
form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:=SplitString(datetostr(form1.DateTimePicker2.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',2)+' 23:00:00';
form1.ADOQuery1.ExecSQL;
form1.ADOQuery1.Active:=true;

неработает результат пусто

значения праметра

Код

firstDate
'01/01/2008 00:00:00'

Код

secodDate
'12/22/2008 23:00:00'

я уже незнаю что с этим делать стою на одном месте уже голова болит с MSSQL, MySQL, Access некогда таких боков небыло. smile

Автор: pseud 22.12.2008, 15:53

такая штука в SQL Explorer отрабатывает нормально?

Код


SELECT 
  CallDate, 
  UserName, 
  Duration, 
  PhoneNumber, 
  Country, 
  ROUND(SumMoney,2) AS SumMoney 
FROM 
  Statist 
WHERE  
  CallDate + CallBegin >= '01/01/2008 00:00:00' 
  AND CallDate + CallBegin <= '12/22/2008 23:00:00'

а лучше такая

Код


SELECT 
  CallDate, 
  UserName, 
  Duration, 
  PhoneNumber, 
  Country, 
  ROUND(SumMoney,2) AS SumMoney 
FROM 
  Statist 
WHERE  
  CallDate + CallBegin >= '01.01.2008 00:00:00' 
  AND CallDate + CallBegin <= '12.22.2008 23:00:00'

Автор: Ripperr 22.12.2008, 16:41

Если оба запроса вставить на пряму в адокювери результат пусто

Код


SELECT 
  CallDate, 
  UserName, 
  Duration, 
  PhoneNumber, 
  Country, 
  ROUND(SumMoney,2) AS SumMoney 
FROM 
  Statist 
WHERE  
  CallDate >= '01/01/2008' 
  AND CallDate <= '12/22/2008'

если так то говорит "несоотведствие типов в выражении условий отбора"

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

Автор: pseud 22.12.2008, 17:36

CallDate и CallBegin - это кто?

Автор: Ripperr 22.12.2008, 17:57

Это поле дата и время
отдельные

Автор: pseud 22.12.2008, 19:34

а так?

Код


SELECT 
  CallDate, 
  UserName, 
  Duration, 
  PhoneNumber, 
  Country, 
  ROUND(SumMoney,2) AS SumMoney 
FROM 
  Statist 
WHERE  
  (CallDate BETWEEN  '01.01.2008'  AND '12.22.2008')
  AND
  (CallBegin BETWEEN '00:00:00' AND '23:00:00')

Автор: Ripperr 22.12.2008, 20:11

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

Тут походу особеность что это Paradox и ADO. .. надо поробовать через BDE хотя я ранше некогда им не пользовался...

Драйвер подключения для адо соствален так :

Код


Provider=Microsoft.Jet.OLEDB.4.0;
Password="";
User ID=Admin;
Data Source=C:\Tarificator\Phone Inspector\Database;
Mode=Share Deny None;
Extended Properties=Paradox 5.x;
Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";
Jet OLEDB:Database Password="";
Jet OLEDB:Engine Type=82;
Jet OLEDB:Database Locking Mode=0;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False

Автор: Akella 22.12.2008, 20:14

Цитата(Ripperr @ 22.12.2008, 15:36

)

form1.ADOQuery1.ExecSQL;
form1.ADOQuery1.Active:=true;

когда народ начнёт различать Exec и Open?

Добавлено через 7 минут и 45 секунд
Ripperr, запомни, если твой запрос должен что-то тебе вернуть, показать, например, в гриде, или тебе нужна навигация по записям полученного набора данных, то

Код


form1.ADOQuery1.Active:=true;

или

Код


form1.ADOQuery1.Open;

затем нужно закрывать

Код


form1.ADOQuery1.Close;

Если тебе нужно выполнить, например, хранимую процедуру, или вставить/обновить запись, то

Код


form1.ADOQuery1.ExecSQL;

в этом случае уже закрывать не нужно, т.к. закрывать нечего, ты послал запрос серверу БЕЗ получения данных.

Добавлено через 12 минут и 8 секунд
http://citforum.univ.kiev.ua/programming/application/glava2_2.shtml

Добавлено через 13 минут и 38 секунд
http://www.citforum.ru/programming/32less/les37.shtml

Цитата

Open или ExecSQL?

После того, как составлен SQL запрос, есть два различных способа выполнить его. Если Вы хотите получить курсор, то нужно вызывать Open. Если выражение SQL не подразумевает возвращение курсора, то нужно вызывать ExecSQL. Например, если происходит вставка, удаление или обновление данных (т.е. SQL запросы INSERT, DELETE, UPDATE), то нужно вызывать ExecSQL. Тоже самое можно сказать по-другому: Open вызывается при запросе типа SELECT, а ExecSQL - во всех остальных случаях...... читай дальше

Автор: pseud 23.12.2008, 12:08

Цитата(Ripperr @ 22.12.2008, 20:11

)

Тут походу особеность что это Paradox и ADO.

никогда не пользовал парадокс/АДО
бде мой последний запрос съедает запросто

Автор: Ripperr 23.12.2008, 15:05

Цитата(pseud @ 23.12.2008, 12:08)

Цитата(Ripperr @ 22.12.2008, 20:11

)

Тут походу особеность что это Paradox и ADO.

никогда не пользовал парадокс/АДО
бде мой последний запрос съедает запросто

Я копирую твой запрост просто а ADOQuery

если так как оно у тебя написано говорит несоотведствие типов

если возле дат и врмени убрать кавыки говорит что неопределены параметры если убрать даты то запрос выполняется без ощибки но результат пустота....

Автор: Ripperr 23.12.2008, 19:34

Запрос сейчас который скармливается ADO выглядит так

Код


SELECT 
               CallDate, UserName, Duration, PhoneNumber, Country, ROUND(SumMoney,2) AS SumMoney 
FROM 
               Statist 
WHERE  
               CallDate + CallBegin >= :firstDate AND CallDate + CallBegin <= :secodDate

код адо

Код


form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(query1);
form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:=''+SplitString(datetostr(form1.DateTimePicker1.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',2)+' 00:00:00''';
form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:=''+SplitString(datetostr(form1.DateTimePicker2.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',2)+' 23:00:00''';
form1.ADOQuery1.Active:=true;
form1.ADOQuery1.Close;

Результат пустота не ощибки не данных....

Автор: Akella 23.12.2008, 20:07

Цитата(Ripperr @ 23.12.2008, 19:34

)

form1.ADOQuery1.Active:=true;
form1.ADOQuery1.Close;

я просто под столом...

Ripperr, ты перед этим всем этим ИЗУЧИ хоть маломальски методы компонент, а ты ты так и будешь тыкаться по форумам как слепой котёнок.
Что такое Close, что такое Active, что такое Open хотябы smile

Автор: Ripperr 23.12.2008, 23:18

Цитата(Akella @ 22.12.2008, 20:14

)

Ripperr, запомни, если твой запрос должен что-то тебе вернуть, показать, например, в гриде, или тебе нужна навигация по записям полученного набора данных, то
Выделить всёкод Pascal/Delphi
1:

form1.ADOQuery1.Active:=true;

или
Выделить всёкод Pascal/Delphi
1:

form1.ADOQuery1.Open;

затем нужно закрывать
Выделить всёкод Pascal/Delphi
1:

form1.ADOQuery1.Close;

я просто прочитал что тут было написано

Добавлено через 4 минуты и 49 секунд
Ты меня направляеш в книжки а я ищю решение чтобы знать в чем прикол. Я ранше с этим не сталкивался всегда когда запрос выполнялся в SQL редакторе в такойже форме он работал и в ADO а тут непонятно что.

Автор: pseud 24.12.2008, 10:17

Ripperr, пояняю смех Акеллы:

Код


ADOQuery1.Active:=true;
ADOQuery1.Close;

это тоже самое, что и

Код


ADOQuery1.Active := True;
ADOQuery1.Active := False;

Код


ADOQuery1.Open;
ADOQuery1.Close;

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

Автор: Ripperr 24.12.2008, 13:06

В исправленом варианте тоже пустота... Неощибки не результата просто пустая таблица.......

Код


Для "SELECT * FROM Statist WHERE  CallDate <= :firstDate AND CallDate =>  :secodDate"

Пишет Ощибка синтаксиса пропущен оператор в выражении запроса...

где

Код


form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(query1);
form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:='01/01/2008';
form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:='12/31/2008';
form1.ADOQuery1.Active:=true;

Автор: Akella 24.12.2008, 19:22

Ripperr, подсказываю:

Код


form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(query1);
form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:='01/01/2008';
form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:='12/31/2008';

ShowMessage(form1.ADOQuery1.SelectSQL.TEXT); // чтобы увидеть реальный запрос, ну или дебаггером смотри, что ты серверу отдаёшь

form1.ADOQuery1.Active:=true;

во вторых это: '01/01/2008';, а с чего ты взял, что так нужно передавать дату?

я бы сделал так

Код

form1.ADOQuery1.Parameters.ParamByName('firstDate').Value := StrToDate('01/01/2008');

а у сервера точно формат даты такой, как ты передаёшь?

ну сам запрос попробовать переделать с использованием скобок

Код

SELECT * FROM Statist WHERE (CallDate <= :firstDate) AND (CallDate => :secodDate)

Добавлено через 56 секунд

Цитата(Ripperr @ 24.12.2008, 13:06

)

form1.ADOQuery1.SQL.Add(query1);

ну и откуда нам знать, что у тебя в query1?

Автор: Ripperr 26.12.2008, 05:02

Код


ShowMessage(form1.ADOQuery1.SelectSQL.TEXT);

такой вещи нет есть

Код


ShowMessage(form1.ADOQuery1.SQL.TEXT);

оно показывает то что надо

http://ipicture.ru/Gallery/Viewfull/10789680.html

а вот что мы имеем

http://ipicture.ru/Gallery/Viewfull/10789685.html

так мы передаем параметры

http://ipicture.ru/Gallery/Viewfull/10789694.html

запрос загнали просто в компонент ADOquery

В винде формат через точку а от единственый пока рабочий вариант выглядит так

http://ipicture.ru/Gallery/Viewfull/10789788.html

ток как сюда припоять диапазон времени если поле в котором хранится время CallBegin

Автор: Akella 26.12.2008, 12:09

Цитата(Ripperr @ 26.12.2008, 05:02

)

оно показывает то что надо

по идее там должны быть подставлены реальные значения вместо имён параметров

Добавлено @ 12:12
у ADOQuery должно быть свойство CheckParams, помоему, нет дельфи под рукой, не могу проверить
CheckParams должно быть установлено в True

Автор: Ripperr 26.12.2008, 15:12

Но в рабочем варианте тоже показывает имя параметра но при этом все работает.

Автор: Ripperr 29.12.2008, 03:57

Есть еще какието мысли на эту тему....

Или возможно как-то объеденить 3 запроса в 1 ? типо три запроса одна результирующая таблица ?

Автор: Ripperr 7.1.2009, 18:17

тема все еще актуална получилось выберать инфу за период дата1-дата2 но некак не могу наложиить ограничения по времени...

Автор: Akella 8.1.2009, 11:30

Не знаю, есть ли в парадоксе 5 CAST, а то можно было бы из полей firstDate и secodDate выделять на лету время.

Автор: Ripperr 9.1.2009, 05:17

дайп правильный синтаксис я попробую

Автор: Akella 9.1.2009, 10:54

неужели в гугле трудно набрать: select cast?

Добавлено через 2 минуты и 17 секунд

Код

select CAST(fromDate AS TIME) from TABLE

Хотя я не уверен, что в парадоксе такое прокатит.

Возможно прийдётся в дельфи, в наборах данных создавать калькулируемые поля, где будет храниться только время и с помощью их фильтровать данные

Автор: Ripperr 9.1.2009, 16:40

Так стой в поле дата там ж токо дата откудо оно будет брать время время у меня отдельно поле `Calltime`

Автор: Akella 9.1.2009, 19:52

Тогда никак, просто столку меня сбило несколько сообщений

Цитата(pseud @ 22.12.2008, 15:53

)

CallDate + CallBegin >= '01/01/2008 00:00:00'
AND CallDate + CallBegin <= '12/22/2008 23:00:00'

Цитата(pseud @ 22.12.2008, 15:53

)

CallDate + CallBegin >= '01.01.2008 00:00:00'
AND CallDate + CallBegin <= '12.22.2008 23:00:00'

Цитата(pseud @ 22.12.2008, 19:34

)

(CallDate BETWEEN  '01.01.2008'  AND '12.22.2008')
  AND
  (CallBegin BETWEEN '00:00:00' AND '23:00:00')

Автор: Ripperr 9.1.2009, 23:13

Я попробую еще раз но походу оно у меня не работает просто пустота...

И так в делфе непонятно что творится сново говорит что не может найти параметры

попробовал запрос напрямую засунуть в DataBase Tour

и так что мы имеем

Код


SELECT * FROM Statist WHERE  CallDate + CallBegin >= '01.01.2008 00:00:00' AND CallDate + CallBegin <= '12.22.2008 23:00:00'

Type missmach in expression

Код


SELECT *
FROM Statist
WHERE  (CallDate BETWEEN  '01/01/2008'  AND '12/22/2008')
  AND
  (CallBegin BETWEEN  '00:00' AND '12:00' )

это работает но не то что мне надо оно выводит данные за 01/01/2008 до 12/22/2008 с ограничением с 00:00 до 12:00
на каждый день а мне надо ограничить токо граничне данные тоесть с 01/01/2008 00:00 по 12/22/2008 12:00 ток вопрос что надо поправить в синтаксисе

Код


SELECT *
FROM Statist
WHERE  (CallDate BETWEEN  '11/19/2008'  AND '11/19/2008')
  AND
  (CallBegin BETWEEN  '12:00' AND '23:59' )
UNION
SELECT *
FROM Statist
WHERE  (CallDate BETWEEN  '11/20/2008'  AND '11/20/2008')
UNION
SELECT *
FROM Statist
WHERE  (CallDate BETWEEN  '11/21/2008'  AND '11/21/2008')
  AND
  (CallBegin BETWEEN  '00:00' AND '12:00' )

вот приблезительно что мне надо но он сильно нагружен текстом а я хотел запрос чтобы генирировался автоматически тут придется поморочится и что самое удевительное похоже что оно работает Пробовал INTERSECT И MINUS Paradox такого не знает =(

мыла мысль сделать исколечение 2х периодов до и после и вывести оставшыйся тобиш искомый

Автор: pseud 10.1.2009, 12:18

а так?

Код


SELECT * FROM Statist WHERE  CallDate + CallBegin >= '01/01/2008 00:00' AND CallDate + CallBegin <= '12/22/2008 23:59'

Автор: Ripperr 10.1.2009, 18:28

В делфе пустота

Код


query1:='SELECT * FROM Statist WHERE  CallDate + CallBegin >= ''01/01/2008 00:00'' AND CallDate + CallBegin <= ''12/22/2008 23:59'''; 
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Text:=query1;
form3.ADOQuery1.Active:=True;

результат пустота

В DataBase Tour type missmatch in expression

Да и еще одно если мой запрос вставить в Delphi то оно говорит что внешняя таблица не имеет проедпологаемый формат что это значит.

Автор: pseud 10.1.2009, 19:13

Цитата(Ripperr @ 10.1.2009, 18:28

)

Да и еще одно если мой запрос вставить в Delphi

в дельфи - это как?

ну а такой запрос хоть отрабатывает?

Код


SELECT 
  * 
FROM 
  Statist 
WHERE  
  CallDate + CallBegin >= '01/01/2008' 
  AND CallDate + CallBegin <= '12/22/2008'

Добавлено через 6 минут и 43 секунды

------
и вот еще попробуй:

Код


SELECT 
  * 
FROM 
  Statist 
WHERE  
  CallDate + CallBegin >= '01/01/2008 0:00:00 AM' 
  AND CallDate + CallBegin <= '12/22/2008 11:59:59 PM'

Автор: Akella 10.1.2009, 22:13

Цитата(Ripperr @ 9.1.2009, 23:13

)

CallBegin >= '01.01.2008 00:00:00'

Цитата(Ripperr @ 9.1.2009, 23:13

)

CallBegin <= '12.22.2008 23:00:00'

Цитата(Ripperr @ 9.1.2009, 23:13

)

Type missmach in expression

ты ж сам меня упрекал, что не хранится в поле время smile

Добавлено через 40 секунд

Цитата(Ripperr @ 9.1.2009, 23:13

)

WHERE CallDate + CallBegin >=

сомневаюсь, что так правильно

Добавлено через 1 минуту и 40 секунд
Я уже запутался, что у тебя там в полях и какие типы smile

Добавлено через 2 минуты и 48 секунд

Цитата(pseud @ 10.1.2009, 19:13

)

в дельфи - это как?

вот так видимо

Цитата(Ripperr @ 10.1.2009, 18:28

)

query1:='SELECT * FROM Statist WHERE CallDate + CallBegin >= ''01/01/2008 00:00'' AND CallDate + CallBegin <= ''12/22/2008 23:59''';

Автор: Ripperr 11.1.2009, 03:31

Цитата(pseud @ 10.1.2009, 19:13)

Код


SELECT 
  * 
FROM 
  Statist 
WHERE  
  CallDate + CallBegin >= '01/01/2008' 
  AND CallDate + CallBegin <= '12/22/2008'

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

Автор: pseud 12.1.2009, 10:09

Цитата(Ripperr @ 11.1.2009, 03:31

)

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

т.е. таки показывает? отбирает? может все таки CallDate + CallBegin - переосмыслить?

Автор: Ripperr 12.1.2009, 12:35

чтото выбирает но несовсем коректо пишу с 1 по 3 в реальности отбражает с 2 по 3

Автор: pseud 12.1.2009, 13:13

Цитата(Ripperr @ 12.1.2009, 12:35

)

чтото выбирает но несовсем коректо пишу с 1 по 3 в реальности отбражает с 2 по 3

ты про числа или про время?

Автор: Ripperr 12.1.2009, 20:37

Числа в запросе с 1/01/2009 по 3/01/2009 а в результате с 2 по 3 щас выложу сурс...

http://upload.com.ua/get/900643896/

запросы добавляй просто в ADOQuery и отредактируй путь к базе в Adoconnection

Автор: pseud 13.1.2009, 10:49

Цитата(Ripperr @ 12.1.2009, 20:37

)

http://upload.com.ua/get/900643896/

upload.com.ua
не хватило меня на просмотр ссылок на сомнительные ресурсы, не гарантирующий таки загруку.
залей плиз на ifolder.ru

Автор: Akella 13.1.2009, 13:01

pseud, нормально там всё качается

Автор: pseud 13.1.2009, 14:47

первые грабли ADO
в твой TADOQuery ввел запрос без параметров:

Код


SELECT 
      CallDate
     , CallBegin
     , UserName
     , Duration
     , PhoneNumber
     , Country
  FROM Statist
 WHERE CallDate + CallBegin >= '01.01.1990'
  AND CallDate + CallBegin <= '01.01.2050'

получил интересную картину по CallBegin (который якобы просто Time)
http://ipicture.ru/

Автор: pseud 13.1.2009, 15:41

с параметрами - НЕ РАБОТАЕТ
копать здесь:
во-первых не

Код


SELECT 
  CallDate
  , CallBegin
  , UserName
  , Duration
  , PhoneNumber
  , Country
FROM 
  Statist
WHERE 
  CallDate + CallBegin >= ':firstDate'
  AND CallDate + CallBegin <= ':secondDate'

Код


SELECT 
  CallDate
  , CallBegin
  , UserName
  , Duration
  , PhoneNumber
  , Country
FROM 
  Statist
WHERE 
  CallDate + CallBegin >= :firstDate
  AND CallDate + CallBegin <= :secondDate

кликаем в дизайне в Parameters и видим что наши параметры типа
DataType = ftFixedChar
даже если руками ставим ftDate(ftDateTime)
все-равно лажа. ПУСТО.
Parameters.ParseSQL(SQL.Text,True) - возвращает на местах наших параметров ?

РЕШЕНИЕ:

Код


procedure TMainForm.UpdateSourceActionExecute(Sender: TObject);
const
  S_SQL = 'SELECT' + #13#10 +
          '  CallDate' + #13#10 +
          '  , CallBegin' + #13#10 +
          '  , UserName' + #13#10 +
          '  , Duration' + #13#10 +
          '  , PhoneNumber' + #13#10 +
          '  , Country' + #13#10 +
          'FROM' + #13#10 +
          '  Statist' + #13#10 +
          'WHERE' + #13#10 +
          '  CallDate + CallBegin >= %d' + #13#10 +
          '  AND CallDate + CallBegin <= %g';
var
  c: Char;
begin
  with MainDataModule.TestQuery do
  begin
    Active := False;
    c := DecimalSeparator;
    try
      DecimalSeparator := '.';
      SQL.Text := Format(S_SQL, [Trunc(StartDate.Date), Trunc(EndDate.Date) + 1 - 1/(24*60*60*1000)]);
      ShowMessage(SQL.Text);
    finally
      DecimalSeparator := c;
    end;
    Active := True;
  end;
end;

выводы - с парадоксом следует работать через бде (правда его придется ставить на все машины)

Автор: Ripperr 13.1.2009, 20:54

О спасибо болшое я поробую просто я с таким сталкнулся первый раз и с бде некогда не работал.... Спасибо за основательный подход

Автор: Ripperr 14.1.2009, 04:30

А как всетаки быть с временем мне надо ограничивать типо с 1.01.09 12:00 по 10.01.09 12:00

Автор: pseud 14.1.2009, 13:13

замени строки

Код


          '  CallDate + CallBegin >= %g' + #13#10 +
          '  AND CallDate + CallBegin <= %g';

Код


      SQL.Text := Format(S_SQL, [Trunc(StartDate.Date) + Frac(StartTime.Time), Trunc(EndDate.Date) + Frac(EndTime.Time)]);

StartTime и EndTime - контролы для ввода времени

Автор: Ripperr 14.1.2009, 15:45

Спс шас попробую а что значит "#13#10 "

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

Так у меня было ранше ....

Код


function QueryGeneration(query:string): string;
{разбивка строки, пустые строки НЕ добавляются}
var
ifbegin: Bool;
day_from, month_from, year_from, day_to, month_to, year_to :integer;
begin
ifbegin:=False;
// если надо искать по дате
if ifbegin=False  then  ifbegin:=True else query:=query+' AND ';   //Первый запрос ?
query:=query+' CallDate BETWEEN :firstDate AND :secodDate';
//query:=query+' CallDate <= :firstDate AND CallDate =>  :secodDate';

// если надо искать по времени
if form1.CheckBox2.Checked=TRUE then
begin
if ifbegin=False then  ifbegin:=True else query:=query+' AND ';   //Первый запрос ?
end;

// если надо искать в Группе
if form1.ComboBox1.Text <> 'Все группы' then
begin
if ifbegin=False then  ifbegin:=True else query:=query+' AND ';   //Первый запрос ?
query:=query+' Groups='''+form1.ComboBox1.Text+''' ';
end;
// если надо искать Определенного Абонента
if form1.ComboBox2.Text <> 'Все абоненты' then
begin
if ifbegin=False then  ifbegin:=True else query:=query+' AND ';   //Первый запрос ?
query:=query+' USERname='''+form1.ComboBox2.Text+''' ';
end;

// если надо искать Определенную Гор. линию
if form1.ComboBox3.Text <> 'Все гор. линии' then
begin
if ifbegin=False then  ifbegin:=True else query:=query+' AND ';   //Первый запрос ?
query:=query+' TEL='''+form1.ComboBox3.Text+''' ';
end;
 result:=query;
end;

Код


procedure TForm1.Image5Click(Sender: TObject);
var
query1: string;
query2: string;
a,b: string;
begin
// Базовый запрос
//query1:=QueryGeneration('SELECT CallDate, UserName, Duration, PhoneNumber, Country, ROUND(SumMoney,2) AS SumMoney FROM Statist WHERE ');
query2:=QueryGeneration('SELECT ROUND(SUM(SumMoney),2) AS Total FROM Statist WHERE ');
query1:=QueryGeneration('SELECT CallDate, UserName, Duration, PhoneNumber, Country, ROUND(SumMoney,2) AS SumMoney FROM Statist WHERE ');
form1.Memo1.Text:=query1;

//ВЫПОЛНЕНИЕ ЗАПРОСА
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(query1);
form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:=' '+SplitString(datetostr(form1.DateTimePicker1.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',2)+'';
form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:=' '+SplitString(datetostr(form1.DateTimePicker2.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',2)+'';
//form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:='01/01/2008';
//form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:='12/31/2008';
form1.ADOQuery1.Active:=true;
//ShowMessage(form1.ADOQuery1.sql.GetText);
//--ВЫПОЛНЕНИЕ ЗАПРОСА



//КАЛЬКУЛЯЦИЯ СУММЫ
DataModule3.ADOQuery1.SQL.Clear;
DataModule3.ADOQuery1.SQL.Add(query2);
DataModule3.ADOQuery1.Parameters.ParamByName('firstDate').Value:=' '+SplitString(datetostr(form1.DateTimePicker1.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker1.Date),'.',2)+'';
DataModule3.ADOQuery1.Parameters.ParamByName('secodDate').Value:=' '+SplitString(datetostr(form1.DateTimePicker2.Date),'.',1)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',0)+'/'+SplitString(datetostr(form1.DateTimePicker2.Date),'.',2)+'';
//form1.ADOQuery1.Parameters.ParamByName('firstDate').Value:='01/01/2008';
//form1.ADOQuery1.Parameters.ParamByName('secodDate').Value:='12/31/2008';
DataModule3.ADOQuery1.Active:=true;
form1.Label20.Caption:=DataModule3.ADOQuery1.Fields.FieldByName('Total').Asstring;
//--КАЛЬКУЛЯЦИЯ СУММЫ
end;

Автор: pseud 14.1.2009, 16:28

Цитата(Ripperr @ 14.1.2009, 15:45

)

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

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

Автор: Ripperr 14.1.2009, 19:33

похоже я уже тебя достал =) ладно буду мучать мозг...