SQL-запрос на поиск

[LANDER]

1. Ребят, такая ситуация: необходимо реализовать поиск фирм по введенному пользывателем в Edit году. Не знаю как вытащить из даты сам год. А простой запрос при вводе в эдит полной даты выглядит так (Дата - название поля в базе данных, base - название базы, формат даты 00.00.0000):

procedure TSearchForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.FindQuery.Active:=false ;
DataModule1.FindQuery.SQL.Clear;
DataModule1.FindQuery.SQL.Add('SELE CT *');
DataModule1.FindQuery.SQL.Add('FROM base');
DataModule1.FindQuery.SQL.Add('WHER E Дата LIKE '''+FindEdit.Text+'''');
DataModule1.FindQuery.Active:=true;
Close;
end;

Как сделать так, чтобы при поиске вводился только год?

2. Вторая проблема такого рода. Все таже база данных скриншот которой ниже. Необходимо вывести фирму, которая чаще всего выступала в роли истца. Буду очень благодарен за помощь!

[mihali4]

1. Что-то типа:

DataModule1.FindQuery.SQL.Add('WHERE Дата BETWEEN '+QuotedStr('01.01.'+FindEdit.Text) AND QuotedStr('31.12.'+FindEdit.Text));

[S@fer]

1. Можно написать так

DataModule1.FindQuery.SQL.Add('WHERE (Year(Дата) ='+FindEdit.Text+'));

2. нужно создать еще одно поле которое будет считать количество вхождений записи

SELECT Таблица1.istec, Count(Таблица1.istec) AS [Count-istec]
FROM Таблица1
GROUP BY Таблица1.istec
ORDER BY Count(Таблица1.istec) DESC;

Этот код сортирует вхождение исца по убыванию, первый будет который чаще всех входил, и т.д.

[LANDER]

Так, с поиском вы помогли за что вам спасибо! А вот со вторым всеравно проблема. Есть ли еще какие-нибудь способы?

DataModule1.FindQuery.SQL.Add('WHER E (Year(Дата) ='+FindEdit.Text+')');

[S@fer]

А вот со вторым всеравно проблема

В чем конкретно проблема?
Как пробуете сделать?
Чем не устривает приведенный мною запрос?

[LANDER]

Принцип работы не могу понять, так как SQL не владею вовсе. Возможно ли както просто сделать проверку на max Истец? Ваш запрос я так понимаю должен выглядить следующим образом в моем случае?

procedure TForm1.Button8Click(Sender: TObject);
begin
DataModule1.RequestQuery.Active:=fa lse;
DataModule1.RequestQuery.SQL.Clear;
DataModule1.RequestQuery.SQL.Add('S ELECT base.Истец, Count(base.Истец) as [Count-Истец]');
DataModule1.RequestQuery.SQL.Add('F ROM base');
DataModule1.RequestQuery.SQL.Add('G roup by base.Истец');
DataModule1.RequestQuery.SQL.Add('O rder by Count(base.Истец) Desc');
DataModule1.RequestQuery.Active:=tr ue;
RequestForm.ShowModal;
end;

[S@fer]

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

Да
Если нужно вывести только того исца у кого больше всех записей,то можно сделать следующее
Кидаем на форму еще один Query в его свойстве SQL пишем

SELECT base.Истец, Count(base.Истец) as [Count-Истец] FROM base Group by base.Истец Order by Count(base.Истец) Desc

затем в Query который связан с dbgrid прописываем следующий запрос

procedure TForm1.Button8Click(Sender: TObject);
begin
DataModule1.Query1.Active:=True;
DataModule1.Query1.First;

DataModule1.RequestQuery.Active:=False;
DataModule1.RequestQuery.SQL.Clear;
DataModule1.RequestQuery.SQL.Add('SELECT * FROM base');
DataModule1.RequestQuery.SQL.Add('WHERE Истец="'+DataModule1.Query1.Fields[0].AsString+'"');
DataModule1.RequestQuery.Active:=true;
RequestForm.ShowModal;
end;

[mihali4]

Да ну вас совсем...
А вложенные запросы с объединением по одной таблице - не слышали?
Зачем еще один Query-то?
Обзовите таблицу в одном случае BASE1, а для вложенной выборки - BASE2...

[LANDER]

Ну сдесь или я чтото не пойму или вы чтото упустили. Смотрите, RequestQuery также должен содержать в свойстве SQL строки иначе я не смогу добавить необходимые поля для связи. Цитирую: "затем в Query который связан с dbgrid прописываем следующий запрос" - это же сам запрос по клику на кнопку. Также? Но все же я пробывал в SQL свойство RequestQuery прописывать код что для Button8. Результат конечно же ошибка.

[LANDER]

Если нужно вывести только того исца у кого больше всех записей

Ну вывести в грид нужно не истца, а фирму. Мне еще сделали намек на такое. Насколько я понял этот запрос выводит две колонки где в первой фирма, а во второй сколько раз данная фирма была истецом, но как теперь используя этот запрос сделать вывод фирмы, которая чаще всего была истецом? Задание судя по всему упростилось, но опять же я и с этим застрял. И опять мучу вас с надеждой на помощь.

ADOQuery1 с запросом:

Select Фирма Count (Фирма);
from base;
Group by Фирма;