Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2009, 06:25   #1
antoni
Пользователь
 
Регистрация: 01.08.2008
Сообщений: 32
Печаль ADOQuery

Люди помогите !!!!! есть datamodule1 в нем ADOQuery, в ADOQuery есть запрос

SELECT base.smp, base.fio, base.data_roj, spr_pol.pol, t_city.name, t_city.vid, t_street.name, base.hous, base.phone, spr_prof.prof, diag.data_snim, diag.opis,
spr_diag.diag
FROM base INNER JOIN
spr_pol ON base.pol = spr_pol.id_pol INNER JOIN
t_city ON base.rayon = t_city.id_city INNER JOIN
t_street ON base.street = t_street.id_street INNER JOIN
spr_prof ON base.prof = spr_prof.id_prof INNER JOIN
diag ON base.id_base = diag.id_diag INNER JOIN
spr_diag ON diag.spr_diag = spr_diag.id_diag

на форме есть два поля edit1 и edit2 то есть начальная и конечная дата

как можно отфильтровать все записи за период от-до по полю data_snim
люди если у когото есть мысли пожалуйста напишите подробнее как это делается!
antoni вне форума Ответить с цитированием
Старый 18.06.2009, 07:34   #2
S@fer
Форумчанин
 
Аватар для S@fer
 
Регистрация: 29.01.2009
Сообщений: 411
По умолчанию

Добавь к этому запросу в конец условие, на подобие этого
Код:
WHERE (([data_snim]>=#'+Edit1.text+'#) AND ([data_snim]<=#'+Edit2.text+'#))
S@fer вне форума Ответить с цитированием
Старый 19.06.2009, 06:06   #3
antoni
Пользователь
 
Регистрация: 01.08.2008
Сообщений: 32
По умолчанию

Цитата:
Сообщение от S@fer Посмотреть сообщение
Добавь к этому запросу в конец условие, на подобие этого
Код:
WHERE (([data_snim]>=#'+Edit1.text+'#) AND ([data_snim]<=#'+Edit2.text+'#))
А можно по подробнее??? пожалуйста!
antoni вне форума Ответить с цитированием
Старый 19.06.2009, 07:49   #4
S@fer
Форумчанин
 
Аватар для S@fer
 
Регистрация: 29.01.2009
Сообщений: 411
По умолчанию

Код:
ADOQuery.Active:=False;
ADOQuery.sql.Clear;
adoQuery.SQL.ADD('SELECT base.smp, base.fio, base.data_roj, spr_pol.pol, t_city.name, t_city.vid,');
adoQuery.SQL.ADD('t_street.name, base.hous, base.phone, spr_prof.prof, diag.data_snim, diag.opis, spr_diag.diag');
adoQuery.SQL.ADD('FROM base INNER JOIN spr_pol ON base.pol = spr_pol.id_pol INNER JOIN t_city ON');
adoQuery.SQL.ADD('base.rayon = t_city.id_city INNER JOIN t_street ON base.street = t_street.id_street ');
adoQuery.SQL.ADD('INNER JOIN spr_prof ON base.prof = spr_prof.id_prof INNER JOIN diag ON ');
adoQuery.SQL.ADD('base.id_base = diag.id_diag INNER JOIN spr_diag ON diag.spr_diag = spr_diag.id_diag');
adoQuery.SQL.ADD(' WHERE (([data_snim]>=#'+Edit1.text+'#) AND ([data_snim]<=#'+Edit2.text+'#))');
AdoQuery.Active:=True;
S@fer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AdoQuery lenuxoid БД в Delphi 6 25.03.2010 18:24
AdoQuery Stanislav БД в Delphi 34 26.06.2009 22:09
ADOQuery Только_Учусь Помощь студентам 2 16.07.2008 00:31
ADOQuery Roof БД в Delphi 2 12.07.2008 18:08
adoquery Toxa БД в Delphi 10 12.02.2007 20:07