SQL-запрос (поиск)

[Серёга Русич]

Добрый вечер! Народ, подскажите пожалуйста, как отсортировть (оставить в DBGrid'е) записи, у которых значение поля Sled_Vstrecha равно сегодняшней дате (DateToStr(Now))?

ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.ExecSQL;
DataSource1.Enabled:=False;
DataSource1.Enabled:=True;

Код вроде как правильный и ошибок не выдаёт, но визуально в DBGride ничего не происходит

[Sparkman]

Сообщение от Серёга Русич

Добрый вечер! Народ, подскажите пожалуйста, как отсортировть (оставить в DBGrid'е) записи, у которых значение поля Sled_Vstrecha равно сегодняшней дате (DateToStr(Now))?

ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.ExecSQL;
DataSource1.Enabled:=False;
DataSource1.Enabled:=True;

Код вроде как правильный и ошибок не выдаёт, но визуально в DBGride ничего не происходит

DataSource1.Enabled:=False;
ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.ExecSQL;
DataSource1.Enabled:=True;

[artemavd]

DataSource1.Enabled:=False;
ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.Open;
DataSource1.Enabled:=True;

[Серёга Русич]

Неа, не помогает(

[Серёга Русич]

Запрос на добавление записи работает нормально, в принципе всё тоже самое:

Form1.AdoQuery1.SQl.Text:='INSERT INTO Clients (Data_Vstrechi, Tipa_Object, Address, Rab_Tel, Sot_Tel, FIO, Rezult, Sled_Vstrecha, Prim) VALUES ('#39+Form2.Edit1.Text+#39','#39+Form2.Edit2.Text+#39','#39+Form2.Edit3.Text+#39','#39+Form2.Edit4.Text+#39','#39+Form2.Edit5.Text+#39','#39+Form2.Edit6.Text+#39','#39+R+#39','#39+Form2.Edit8.Text+#39','#39+Form2.Edit9.Text+#39')';
Form1.AdoQuery1.ExecSQL;
Form1.ADOTable1.Active:=False;
Form1.ADOTable1.Active:=True;

[Sparkman]

Сообщение от Серёга Русич

Неа, не помогает(

ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.ExecSQL;
ADOQuery1.Active := true;
DataSource1.Enabled:=False;
DataSource1.Enabled:=True;

[Serge_Bliznykov]

1) запросы на изменение данных (DELETE FROM ... / INSERT INTO ... / UPDATE ... )
выполняются через метод датасета .ExecSQL;
эти запросы не возвращают набор данных

2) запросы на получение набора данных (SELECT .. FROM )
выполняются через метод .Open;
(или, что полностью то же самое установление свойства .Active := true; )
ExecSQL в данном случае не только бесполезен - он ВРЕДЕН!.

3) для ввода даты лучше использовать не Edit - а специальный компонент - TDateTimePicker

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

[Серёга Русич]

ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha Like'+#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.ExecSQL;
ADOQuery1.Active := true;
DataSource1.Enabled:=False;
DataSource1.Enabled:=True;

Тот же результат, даже если вместо ExecSQL стоит Open
Кстати, Edit1.Text стоял временно, для тестирования. Сейчас стоит DateToStr(Now). Но сути дело это не меняет. Я даже поле с датой в аксесе в текстовый формат перевёл

[Серёга Русич]

Может я пришлю Вам программу, а Вы посмотрите?

[Serge_Bliznykov]

Может я пришлю Вам программу, а Вы посмотрите?

насколько я понимаю, у Вас уже есть права на прикрепление вложений к вашим сообщениям ("расширенный режим" - "Управление вложениями").
Ну, либо выложите проект на любой бесплатный файлообемнник, а сюда ссылку на скачивание.
Только не забудьте приложить небольшую текстовую БД и исходники запаковать в архив. EXE файл включать в архив совсем не обязательно!

и ещё. не пишите несколько коротких сообщений друг за другом.
Это запрещено правилами форума.
Есть что добавить - нажимайте на своём крайнем сообщении "Правка" и дописывайте/изменяйте текст.


ДОБАВЛЕНО

Пока Вы не выложили архив.
Какая у Вас СУБД?
И скажите, поле Sled_Vstrecha в БД какого типа? Строковое? Или Date (DateTime) ?
и в таблице Clients есть записи, где Sled_Vstrecha имеет значение 13.05.2011 (сегодняшнее число) ?!

я бы для начала попробовал так:

ADOQuery1.sql.Text:='SELECT * FROM Clients WHERE Sled_Vstrecha = :PDATE1';
ADOQuery1.Parameters.ParamByName('PDATE1').Value := Trunc(Now);
ADOQuery1.Open;

А всё это (что ниже) не нужно:
DataSource1.Enabled:=False;
DataSource1.Enabled:=True;