Запись даты через DBedit

[Scorpuha]

не хочется плодить темы, спрошу тут:
вот запрос

DataModule2.ADOQuery1.SQL.Clear;

      DataModule2.ADOQuery1.SQL.Text := 'select * from Attestat where Data_pereatestat  Between Form7.DateTimePicker1.Date and Form7.DateTimePicker1.Date'; 

   DataModule2.ADOQuery1.ExecSQL;

при выполнении выдает ошибку Form7.DateTimePicker1.Date не имеет значения по умолчанию. Подскажите в чем засада?

[Аватар]

А вы запрос

select * from Attestat where Data_pereatestat  Between Form7.DateTimePicker1.Date and Form7.DateTimePicker1.Date

в Access выполните и глаза мигом раскроются

[Scorpuha]

просит ввести значение для Form7.DateTimePicker1.Date. ввожу и все отрабатывает

[Аватар]

В Accese заменили. Хорошо. А в программе кто будет вместо этой чепухи нормальные значения подставлять?

[Scorpuha]

что не так я делаю?

[xxbesoxx]

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

не хочется плодить темы, спрошу тут:
вот запрос

DataModule2.ADOQuery1.SQL.Clear;

      DataModule2.ADOQuery1.SQL.Text := 'select * from Attestat where Data_pereatestat  Between Form7.DateTimePicker1.Date and Form7.DateTimePicker1.Date'; 

   DataModule2.ADOQuery1.ExecSQL;

при выполнении выдает ошибку Form7.DateTimePicker1.Date не имеет значения по умолчанию. Подскажите в чем засада?

1. Почитайте пожалуйста SQL по Between А у тебя только DateTimePicker1 и нету второе DateTimePicker как будит работать Between ?

 // 1Ошибка у тебя здесь
where Data_pereatestat  Between Form7.DateTimePicker1.Date and Form7.DateTimePicker1.Date';

2. Что такой DataModule2.ADOQuery1.ExecSQL; Вы не сохраняйте в БД ! Вы фильтруйте уже существующие данных и надо открыть после фильтр . вот так

DataModule2.ADOQuery1.Open;

Если вы хотите выбрать период . На пример C: 12.01.2014 По: 25.01.2014 Тогда это должен работать так . Добавляйте DateTimePicker2 и выбираем диапазон даты

// Uses ---> StrUtils

DataModule2.ADOQuery1.Active := False;
 DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Text:='select * from Attestat where Data_pereatestat between #'+
   AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', Form7.DateTimePicker1.Date),'.','/')
    +'# and #'+AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', Form7.DateTimePicker2),'.','/')+'#';
    DataModule2.ADOQuery1.Active:=True;
  if DataModule2.ADOQuery1.FieldByName('Data_pereatestat').AsString = '' then
Application.MessageBox('Данных на это период не найдено','Ошибка ввода данных', MB_ICONERROR);

[Scorpuha]

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

1. Почитайте пожалуйста SQL по Between А у тебя только DateTimePicker1 и нету второе DateTimePicker как будит работать Between ?

 // 1Ошибка у тебя здесь
where Data_pereatestat  Between Form7.DateTimePicker1.Date and Form7.DateTimePicker1.Date';

да действительно опечатался, заменил на Form7.DateTimePicker2.Date и все равно такая же ошибка

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

// Uses ---> StrUtils

DataModule2.ADOQuery1.Active := False;
 DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Text:='select * from Attestat where Data_pereatestat between #'+
   AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', Form7.DateTimePicker1.Date),'.','/')
    +'# and #'+AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', Form7.DateTimePicker2),'.','/')+'#';
    DataModule2.ADOQuery1.Active:=True;
  if DataModule2.ADOQuery1.FieldByName('Data_pereatestat').AsString = '' then
Application.MessageBox('Данных на это период не найдено','Ошибка ввода данных', MB_ICONERROR);

ваш код работает, наберусь наглости, как этот код применить к DbGrid, что в в нем оторбражались данные по фильтру из запроса

[Scorpuha]

пока сделал другим способом и только на текущую дату

       datamodule2.Attestat.Filtered:=false;
      datamodule2.Attestat.Filter := '[Data_pereatestat]='+DateToSTr(Now);
       datamodule2.Attestat.Filtered:=true;

[xxbesoxx]

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

да действительно опечатался, заменил на Form7.DateTimePicker2.Date и все равно такая же ошибка



ваш код работает, наберусь наглости, как этот код применить к DbGrid, что в в нем оторбражались данные по фильтру из запроса

Друг DbGrid Это просто для отображения данных . У DbGrid есть свойства DataSource и подключайте ваши DataSource1

[Scorpuha]

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