Помощь с Delphi БД sql запрос .

[Mishka_M]

Добрый день . нужна помощь .
Нужно чтоб в главном окне программы в Grid , отображались только занятия на сегодняшний день .
Выполнил все привязки datasource , adoquery. не могу понять что прописать в запросе sql, чтоб отображались только определенные дни , согласно сегодняшнему дню недели .
Пробовал что то вроде

select * from baza were day = dayofweek('dddd',Now)

или

select * from baza were day = dayofweek(Now)

но не прокатывает
1231231231.jpg
1122333.jpg

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
  Vcl.StdCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, Data.Win.ADODB;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
       label1.Caption:=TimeToStr(GetTime);
       label2.Caption:=DateToStr(Date);
       label4.Caption:=FormatDateTime('dddd',Now);
end;

end.

[Serge_Bliznykov]

а что у Вас хранится в таблице baza мы должны угадать?

[Sciv]

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

а что у Вас хранится в таблице baza мы должны угадать?

Ещё бы разобраться, о каком из SQL идёт речь.

[Mishka_M]

Я тоже люблю стебаться над неопытностью )
Эмм база , надеюсь вас это интересует
231231.jpg
sql ado.queery.
-41144124124121214.jpg
если есть варианты как вывести нужную информацию , то я большое ухо , а нашем случае глаз ,заранее спасибо за помощь )

[Sciv]

Начнём с того, что в большинстве SQL-ей функции определения дня недели возвращают номер этого дня, а не явное значение. Кроме того, я не стебался ни капли, когда уточнял, какая именно СУБД. В Акцессе для получения номера дня недели используется функция weekday (https://www.techonthenet.com/access/...te/weekday.php).

Если выполнить в Акцессе простой запрос:

SELECT weekday(Now(), 1) AS WD

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

Для преобразования номера в человеческое название используется функция format (https://www.techonthenet.com/access/...ate/format.php)

SELECT format( weekday(Now(), 1), "dddd") AS WD

вернёт "Среда"

Таким образом, чтобы получить текущий день недели, Ваш запрос должен выглядеть так:

SELECT * FROM [baza]
WHERE [Day] = format( weekday(Now(), 1), "dddd")

[Black Fregat]

Я удивляюсь, что это как-то работает.. В Access вроде есть функция Weekday, а DayOfWeek - это Delphi. Тут надо понимать механику: Delphi формирует запрос, но выполняет его Access. Так что функции Delphi допустимы только при динамическом формировании запроса, а в момент выполнения в нём должны быть только функции Access.

И, на мой взгляд, Вы сильно усложняете себе жизнь, храня в базе название дня недели, а не его номер. Та же Weekday возвращает номер.

[Sciv]

а DayOfWeek - это Delphi

Вроде бы ещё Мускуль, точно не помню

[Mishka_M]

Спасибо все работает.
Всем откликнувшимся спасибо за помощь.
Sciv в особенности.