VPF::запрос по дате, времени и IP - Форум программистов

Martisha

Дата 9.12.2008, 09:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Доброго дня всем!
Подскажите как можно сделать запрос из бд по дате, времени и IP адресу?
Эти значения должны вводиться пользователем в MaskEdit-ы

pseud

Дата 9.12.2008, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

Martisha, что за база, что в базе, какие мысли есть.
хотя ответы на эти вопросы все равно не объяснят, что конкретно надо.

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Martisha

Дата 9.12.2008, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Цитата(pseud @ 9.12.2008, 11:11

)

что за база

Oracle

Цитата(pseud @ 9.12.2008, 11:11

)

хотя ответы на эти вопросы все равно не объяснят, что конкретно надо.

да, сложно объяснить так..думаю еще сама поробую, потом код если что выложу для поправок

pseud

Дата 9.12.2008, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

Цитата(Martisha @ 9.12.2008, 11:43

)

думаю еще сама поробую, потом код если что выложу для поправок

ок

Цитата(Martisha @ 9.12.2008, 09:36

)

Эти значения должны вводиться пользователем в MaskEdit-ы

у меня аллергия на етот контрол.

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Martisha

Дата 9.12.2008, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Цитата(pseud @ 9.12.2008, 12:39

)

меня аллергия на етот контрол.

есть еще варианты?

Akella

Дата 9.12.2008, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Martisha, ты когда создавала тему, читала, то что обведено красным?
user posted image

УЖЕ И ЖИРНЫМ ВАМ ВЫДЕЛЯЮТ - КАК ПАСТЕНКУ ГАРОХАМ smile

Добавлено через 24 секунды
НУЖНО БУДЕТ СКОРО ТАКИМ ШРИФТОМ ПИСАТЬ

Добавлено через 4 минуты и 21 секунду
примерно так:

Код


TQuery.sql.text := 'select id, name from table1 where date1 = ' + DateToString(DateTimePicker1.Date) + ' time1 = ' + TimeToString(DateTimePicker2.Time) + ' ip = ' + QuotedStr(MaskEdit1.text)

Martisha

Дата 9.12.2008, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Цитата(Akella @ 9.12.2008, 12:58

)

НУЖНО БУДЕТ СКОРО ТАКИМ ШРИФТОМ ПИСАТЬ

да уж, проглядела как то

Добавлено через 41 секунду
ну, поэтому инаписала это:

Цитата(Martisha @ 9.12.2008, 11:43

)

еще сама поробую, потом код если что выложу для поправок

Akella

Дата 9.12.2008, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Давай, выкладывай, посмотрим. smile

Martisha

Дата 9.12.2008, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Цитата(Akella @ 9.12.2008, 13:27

)

Давай, выкладывай, посмотрим.

как только получится, сразу же smile

Martisha

Дата 10.12.2008, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

в общем, использую Oracle, Delphi7, подключаюсь к базе с помощью ODAC
в базе находится информация: статистика исходящего/входящего траффика интернета:
нужно для удобства просмотра этой статистики, чтобы пользователь мог ввести период получения этой статистики(она приходит раз в час), т.е. дату и время и при желании конкретный IP адрес..все отображается в dbGrid
вот собственно форма с выборкой:

user posted image

для ввода дат и времени думаю использовать MaskEdit, при нажатии 'просмотр статистики', появляется другая форма, на которой располагается dbGrid и должен отображаться результат

Это сообщение отредактировал(а) Martisha - 10.12.2008, 11:07

Martisha

Дата 10.12.2008, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

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

Код


procedure TForm1.Button1Click(Sender: TObject);
Var dv1,dv2:String;
begin
  dv1:=Form1.MaskEdit1.Text+Form1.MaskEdit3.Text;
  dv2:=Form1.MaskEdit2.Text+Form1.MaskEdit4.Text;
    Form1.OraQuery2.Close;
    Form1.OraQuery2.SQL.Clear;
    Form1.ORAQuery2.SQL.Add('SELECT *'+
                      'FROM traffic'+
                      'WHERE datetime<='+chr(39)+dv2+chr(39)+'AND datetime>='+chr(39)+dv1+chr(39));
    Form1.OraQuery2.Open;
Form2.Show();
end;

MaskEdit-ы складываю потому что в базе дата и время у меня в одном поле

Это сообщение отредактировал(а) Martisha - 10.12.2008, 13:27

Akella

Дата 10.12.2008, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Martisha @ 10.12.2008, 13:26

)

MaskEdit-ы складываю потому что в базе дата и время у меня в одном поле

кинь на форму DateTimePicker вместо MaskEdit`ов, я ж тебе не зря код написал с использованием DateTimePicker`ов

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

Цитата(Martisha @ 10.12.2008, 13:26

)

ошибка вылазит

щас мы откроем свои чакры, достанем бубны и отгадаем текст ошибки, ты не уходи, погоди немного, ок?

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

Цитата(Martisha @ 10.12.2008, 13:26

)

'FROM traffic'+

где пробел перед from?

ты бы оттестировала запрос вначале НЕ в дельфи

Добавлено через 8 минут и 31 секунду

Цитата(Martisha @ 10.12.2008, 13:26

)

WHERE datetime

где пробел перед where?
твой запрос выглядит так для сервера:
SELECT *FROM trafficWHERE datetime......

Добавлено через 9 минут и 58 секунд
Можешь так сделать, чтобы увидеть текст запроса:

после

Цитата(Martisha @ 10.12.2008, 13:26

)

orm1.OraQuery2.SQL.Clear;
    Form1.ORAQuery2.SQL.Add('SELECT *'+
                      'FROM traffic'+
                      'WHERE datetime<='+chr(39)+dv2+chr(39)+'AND datetime>='+chr(39)+dv1+chr(39));

поставь вывод сообщения

Код


ShowMessage(Form1.ORAQuery2.SQL.TEXT);

и увидишь текст запроса

Martisha

Дата 10.12.2008, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

ошибка такая:
'ORA-00933: SQL command not properly ended'

Цитата(Akella @ 10.12.2008, 14:28

)

где пробел перед from?

Цитата(Akella @ 10.12.2008, 14:28

)

где пробел перед where?

Код


Form1.ORAQuery2.SQL.Add('SELECT *'+''+
                      'FROM traffic'+''+
                      'WHERE datetime<='+chr(39)+dv2+chr(39)+'AND datetime>='+chr(39)+dv1+chr(39));

Цитата(Akella @ 10.12.2008, 14:28

)

ты бы оттестировала запрос вначале НЕ в дельфи

а где?

Цитата(Akella @ 10.12.2008, 14:28

)

кинь на форму DateTimePicker вместо MaskEdit`ов, я ж тебе не зря код написал с использованием DateTimePicker`ов

сейчас попробую, вчера не получилось что то

Цитата(Akella @ 10.12.2008, 14:28

)

ты не уходи, погоди немного, ок?

ок, до пяти я тут еще.. smile

Данкинг

Дата 10.12.2008, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Martisha @ 10.12.2008, 14:47

)

а где?

В Pl/Sql, вероятно. smile

Добавлено через 1 минуту и 29 секунд

Цитата(Akella @ 10.12.2008, 14:28

)

кинь на форму DateTimePicker вместо MaskEdit`ов,

Вот это золотые слова, кстати: зачем здесь нужны MaskEdit'ы ?! smile

--------------------

There's nothing left but silent epitaphs.

Martisha

Дата 10.12.2008, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

Цитата(Данкинг @ 10.12.2008, 15:19

)

зачем здесь нужны MaskEdit'ы ?!

посоветовали smile

впрочем поменяла уже на DateTimePicker

Цитата(Данкинг @ 10.12.2008, 15:19

)

В Pl/Sql, вероятно.

я так и подумала smile

Добавлено через 1 минуту и 24 секунды
только не совсем понимаю как это осуществить

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »