Sql запросы в delphi

[dzuga]

Доброго времени суток, у меня возникла необходимость создать SQL запросы для одной из таблиц моей БД. В этой таблице есть поле "дата проверки" мне надо чтоб по запросу выводились те данные до проверки которых осталось меньше месяца. Бд создавал в delphi при помощи Microsoft access 2010. За любую помощь буду очень признателен!

[Stilet]

select * from... where datediff(m,[дата проверки],getdate())<1

По идее.

[dzuga]

К сожалению я даже не знаю куда этот код вписать. У меня в бд таблицы сделаны с помощью adotable, а везде где я читал SQL создается с помощью ado query, это первая моя проблема

[Konstantin_ua]

дайте код посмотреть

[dzuga]

Какой код?

[Konstantin_ua]

Покажите как Вы подключаете BD в программе, и какие компоненты у Вас на форме есть?

[Stilet]

везде где я читал SQL создается с помощью ado query, это первая моя проблема

Тогда для начала замени ADOTable на ADOQuery.
А потом в скажем событии создания формы впиши

with ADOQuery1 do begin
 sql.text:='select * from... where datediff(m,[дата проверки],getdate())<1';
 Activate:=true;
end;

Все остальное настраивается так же как и в Table.
Только учти - редактирование в ADOQuery сложнее чем в Table.

Ой, ну вообще-то нужно сказать что и в Table можно реализовать такую проверку.
У нее есть событие OnFilterRecord, которое можно описать так:

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:=MonthsBetween(DataSet.FieldByName('дата проверки').AsDateTime,now)<1;
end;

Тогда ничего не нужно выбрасывать.
потом кинешь на форму кнопку, в которой напишешь:

 ADOTable1.Filtered:=True;

И твой набор отфильтруется.

Короче вот тее два пути, сам решай куда пойти.

[dzuga]

Сообщение от Stilet

Тогда для начала замени ADOTable на ADOQuery.
А потом в скажем событии создания формы впиши

with ADOQuery1 do begin
 sql.text:='select * from... where datediff(m,[дата проверки],getdate())<1';
 Activate:=true;
end;

Все остальное настраивается так же как и в Table.
Только учти - редактирование в ADOQuery сложнее чем в Table.

Ой, ну вообще-то нужно сказать что и в Table можно реализовать такую проверку.
У нее есть событие OnFilterRecord, которое можно описать так:

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:=MonthsBetween(DataSet.FieldByName('дата проверки').AsDateTime,now)<1;
end;

Тогда ничего не нужно выбрасывать.
потом кинешь на форму кнопку, в которой напишешь:

 ADOTable1.Filtered:=True;

И твой набор отфильтруется.

Короче вот тее два пути, сам решай куда пойти.

Огромное спасибо!!! Очень здорово мне помог! Я уже в adoquery начну делать. Только одна просьба, не мог бы ты по подробнее объяснить код, ибо запросы с числовыми, строковыми типами данных я освоил, а вот по дате что-то никак не пойму. И к сожалению, код который ты скинул первый раз, тоже не очень понял...

[Stilet]

Не понял, что именно объяснить? Что не понятно?

[dzuga]

Сообщение от Stilet

Не понял, что именно объяснить? Что не понятно?

Что тако date diff, что такое m, сто такое getdate и почему меньше одного?