[ННС]

Вот посмотрите пожалуйста, где у меня ошибка

[Страдалецъ]

Если вы хотите, чтобы я нашел ошибку, то мне необходимо видеть весь код и хотя-бы кусочек БД, а так я синтаксических ошибок не нашел, ваши выкрутасы с DataSet недолжны влиять на результат.
Как ошибка звучит, когда он на SQL ругается и в какой строке это происходит.

[ННС]

Выкладывать всю программу мне бы не хотелось. Да и программа не маленькая. Там сразу не разберетесь, что к чему, хотя если вы такой знаток. Аськи у меня нет. А ругается вот

DataModule3.AdoQuery2.SQL.Text:= SQL + 'where Data=:Date';

пишет Undeclared identifier:'SQL'
Сейчас пробую все по новому написать в этом запросе. Посмотрю, что получится

[Страдалецъ]

Ну вы даете. Я же для удобства придумал строковую переменную SQL . Ее же необходимо описать в начале модуля и желательно инициализировать:

Код:

...
Var SQL: String;
begin
 SQL := '';
...
end;

и кстати там у меня пробельчик стоит перед where. Без него у вас могут слипнуться операторы и снова получите ошибку.

[ННС]

я не ас в программировании, а только учусь, я думала об этом, но что-то заклинило у меня на этом запросе

[ННС]

а сейчас вот, что пишет ADOQUERY2: Parameter 'Date'not found' Process stopped. Use Step or Run to continue

[Страдалецъ]

Что-то не так делаете. Теперь как у вас процедура выглядит?

[Rokuell]

Можешь посмотреть пример простенькой базы - недавно сделанная лаба по ИТ.
Там есть сортировка и выборка по дате ( сделано через параметры )

[ННС]

Вы такие умные!!! Мне до вас как до луны пешком.

[Страдалецъ]

Похвала, конечно приятна, но я так понимаю задача нерешена

[Rokuell]

Нуу, 384 тыс. км это пожалуй много, а вот за 2-3 года до моего уровня подняться сможешь уж точно.

Насчёт базы: сам столкнулся недавно с ошибкой, что SQL-запрос не хочет выполняться, если дата записана непосредственно в текст запроса, причём формат даты в запросе и в базе совпадали.
Пришлось передавать дату как параметр.

[ННС]

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

Похвала, конечно приятна, но я так понимаю задача нерешена

вы правы, задача не решена. на сегодня оставляю, а завтра опять начну. Ведь самое обидное, что это все что мне осталось сделать из этой программы.

[Страдалецъ]

Ну что-же желаю успехов, а я видимо завтра здесь не появлюсь.

[ННС]

а насчет подняться до вашего уровня, не знаю. Сейчас меня обстоятельства вынуждают, а вот закончу институт и сомневаюсь, что буду дальше изучать это. Время покажет. Я ведь учусь заочно. И нам из преподавателей никто не помогает, сами доходим своими мозгами, а то, что не получается вот обратилась за помощью. Главное сейчас вот это добить.

[ННС]

Здравствуйте! Вот опять пришла за помощью. Пыталась сделать опять запрос. по другой таблице, но это в принципе не имеет никакого значения. Сам результат важен. Когда выбираю конкретную дату вообще никак не реагирует

procedure TForm11.Button1Click(Sender: TObject);
  var
   SQL: String;
begin
    if (RadioButton1.Checked=true) then
 begin
    DataModule3.DataSource8.DataSet:=DataModule3.Predupregdenija;  //выбираем период все
 end;
    if (RadioButton2.Checked=true) then
 begin
     DataModule3.AdoQuery9.Active := False;
     SQL := 'SELECT format(Data,"dd.mm.yyyy") as Data,Nomer_predupregdenija,Puti,Nasanie_uchastka,Nom_km_n,Nom_pk_n,Nom_km_k,Nom_pk_k,Vrema_nach_rabot,Vrema_konc_rabot from Predupregdenija';
     SQL := SQL + ' where Data=:Date';
     DataModule3.AdoQuery9.SQL.Text := SQL;
     DataModule3.AdoQuery9.Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime
     //DataModule3.AdoQuery9.Active:=true;
      end;
  if (RadioButton3.Checked) then
 begin
  DataModule3.AdoQuery9.Active:=false;
  DataModule3.AdoQuery9.SQL.Text:='SELECT * FROM Predupregdenija WHERE (DATA>= :D1) AND (DATA<=:D2)'; //выбираем период с какого по какое число
  DataModule3.AdoQuery9.Parameters.ParamByName('D1').Value:=DateTimePicker2.DateTime;
  DataModule3.AdoQuery9.Parameters.ParamByName('D2').Value:=DateTimePicker3.DateTime;
  DataModule3.DataSource8.DataSet:=DataModule3.AdoQuery9;
  DataModule3.AdoQuery9.Active:=true;

 end;
 end;

Посмотрите пожалуйста, где опять я накуролесила