DateTimePicker1.Date

@shilovec5377 · Регистрация: 26.05.2011

Author24 — интернет-сервис помощи студентам

Помогите плиз. Я выбираю в таблице даты в диапазоне от DateTimePicker1 по DateTimePicker2.
Мне необходимо если нет записи в этом диапазоне то выводило сообщение, сообщение выводит, но при этом таблица становится пустой. Подскажите как сделать, чтобы она не становилась пустой.
Вот код в ADOQuery2.

SQL

1
2
3

SELECT * 
FROM читатели
WHERE [дата записи] BETWEEN :Dat1 AND :Dat2

Вот мой код под кнопкой.

Delphi

begin
  ADOQuery2.Close;
  ADOQuery2.Parameters.ParamByName('Dat1').Value:= DateTimePicker1.Date;
  ADOQuery2.Parameters.ParamByName('Dat2').Value:= DateTimePicker2.Date;
  ADOQuery2.Active:= True;
  DBGrid1.DataSource:= dataSource2;
  if ADOQuery2.RecordCount = 0 then ShowMessage('Записей за данный период нет!!!');
end;

@Страдалецъ · 16.11.2011, 12:59

Можно просто окатывать назад, т.е. выполнить повторно запрос, но уже с другими параметрами для дат.
Можно делать запрос, а ограничение потом уже накладывать через фильтр вместо параметров.

@shilovec5377 · 16.11.2011, 14:25 **[ТС]**

Сообщение от Страдалецъ

Можно просто окатывать назад

что это значит

Добавлено через 50 минут
Подскажите как сделать, чтобы таблица не становилась пустой.

@MsGuns · 16.11.2011, 14:35

Если Вы желаете, чтобы отображаемые в сетке данные не изменялись в случае если по указанному диапазону не найдено информации, используйте два TADOQuery:
- ADOQuery2 используется для отображения, т.е. грид ссылается на него
- ADOQuery1 используется для поиска, результаты его не отображаются

Сначала выполняется выборка с помощью ADOQuery1, а по ее результатам либо переоткрывается отображаемый запрос либо выдается сообщение:

Delphi

function TForm1.CheckQueryResult(DateFrom,DateTo: TDateTime): integer;
begin
  with ADOQuery1 do
    begin
     if Active then Close;
     SQL.Text := 'select count(A.*) from ('+ADOQuery2.SQL.Text+') A';
     Parameters.ParamByName(..).Value := DateFrom;
     Parameters.ParamByName(..).Value := DateTo;
     Open;
     result := RecordCount;
     Close;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckQueryResult(DateTimePicker1.Date,DateTimePicker2.Date)>0 then
    with ADOQuery2 do
      begin
        if Active then Close;
        Parameters.ParamByName(..).Value := DateFrom;
        Parameters.ParamByName(..).Value := DateTo;
        Open;
     end
  else 
      ShowMessage('В указанном периоде не найдено ни одной записи БД');  
end;

Добавлено через 3 минуты
Вместо

Delphi

1	result := RecordCount

надо конечно

Delphi

1	result := Fields[0].AsInteger;

@shilovec5377 · 21.11.2011, 14:40 **[ТС]**

Подскажите плиз

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

CheckQueryResult

это объект или что?

@MsGuns · 21.11.2011, 16:14

Это функция, которую я написал и ОБОЗВАЛ таким именем.
Для примера

@shilovec5377 · 21.11.2011, 19:27 **[ТС]**

помогите с функцией выдает ошибки. Я не знаю что это за ошибки и как их исправить.

@MsGuns · 22.11.2011, 11:33

ADOQuery1 - это как бы компонент TADOQuery, который в примере выполняет функцию Вашего ADOQuery2. Вам надо просто подставить свои имена вместо скопипастенных.
Вы действительно так тупы или прикидываетесь ?

Добавлено через 3 минуты
Т.е. Вам нужно добавить в проект еще одну комопненту TADOQuery, присвоить ей любое имя, после чего это имя указать в функции
Да, при этом не забудьте св-ву Connection присвоить то же значение, что и у ADOQuery2

Добавлено через 4 минуты
Впрочем...
Вот этот код будет работать безо добавления компоненты

Delphi

function TForm1.CheckQueryResult(DateFrom,DateTo: TDateTime): integer;
begin
  result := -1;   
  with TADOQuery.Create(nil) do
   try
     Connection := ADOQuery2.Connection;
     SQL.Text := 'select count(A.*) from ('+ADOQuery2.SQL.Text+') A';
     Parameters.ParamByName(..).Value := DateFrom;
     Parameters.ParamByName(..).Value := DateTo;
     try
       Open;
       result := RecordCount;
       Close;
     except
     end;
   finally
     Free;
   end;
end;

@shilovec5377 · 22.11.2011, 23:16 **[ТС]**

посмотри плиз мой проект.

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	16.11.2011, 12:59	2
	Можно просто окатывать назад, т.е. выполнить повторно запрос, но уже с другими параметрами для дат. Можно делать запрос, а ограничение потом уже накладывать через фильтр вместо параметров. 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	16.11.2011, 14:25 [ТС]	3
	Сообщение от Страдалецъ Можно просто окатывать назад что это значит Добавлено через 50 минут Подскажите как сделать, чтобы таблица не становилась пустой. 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	21.11.2011, 14:40 [ТС]	5
	Подскажите плиз Сообщение от MsGuns CheckQueryResult это объект или что? 0

@MsGuns 1496 / 1238 / 244 Регистрация: 04.04.2011 Сообщений: 4,362
	21.11.2011, 16:14	6
	Это функция, которую я написал и ОБОЗВАЛ таким именем. Для примера 1

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	21.11.2011, 19:27 [ТС]	7
	помогите с функцией выдает ошибки. Я не знаю что это за ошибки и как их исправить. Миниатюры 0

	22.11.2011, 23:16