Объединение двух запросов

[Xakand_2009]

Здравствуйте.

Имеется 2 запроса к одному набору данных в БД MS Access, с фильтром по сотруднику:

  SQL.Add('SELECT Анкета.Фамилия, Анкета.Имя, Анкета.Отчество, Анкета.[Дата занесения]');
  SQL.Add('[Места работы].[Дата поступления], [Места работы].[Место работы], [Места работы].[Дата увольнения], [Места работы].[Причина увольнения]');
  SQL.Add('FROM Анкета INNER JOIN [Места работы]');
  SQL.Add('ON Анкета.КодАнкеты=[Места работы].КодАнкеты');
  SQL.Add('Where Анкета.Фамилия Like '+QuotedStr(ListBox1.Items[ListBox1.ItemIndex]+'%'));

... и по дате занесения в базу:

  SQL.Add('SELECT Анкета.Фамилия, Анкета.Имя, Анкета.Отчество, Анкета.[Дата занесения]');
  SQL.Add('[Места работы].[Дата поступления], [Места работы].[Место работы], [Места работы].[Дата увольнения], [Места работы].[Причина увольнения]');
  SQL.Add('FROM Анкета INNER JOIN [Места работы]');
  SQL.Add('WHERE Анкета.[Дата занесения] between :first_date and  :last_date');
  Parameters.ParamByName('first_date').DataType:=ftDateTime;
  Parameters.ParamByName('last_date').DataType:=ftDateTime;
  Parameters.ParamByName('first_date').Value:=DateTimePicker1.DateTime;
  Parameters.ParamByName('last_date').Value:=DateTimePicker2.DateTime;

Каким образом можно объединить эти запросы, чтобы фильтр осуществлялся сразу по двум параметрам? Спасибо.

[Прик]

  SQL.Add('SELECT Анкета.Фамилия, Анкета.Имя, Анкета.Отчество, Анкета.[Дата занесения]');
  SQL.Add('[Места работы].[Дата поступления], [Места работы].[Место работы],);
  SQL.Add('[Места работы].[Дата увольнения], [Места работы].[Причина увольнения]');
  SQL.Add('FROM Анкета INNER JOIN [Места работы]');
  SQL.Add('ON Анкета.КодАнкеты=[Места работы].КодАнкеты');
  SQL.Add('Where Анкета.Фамилия Like '+QuotedStr(ListBox1.Items[ListBox1.ItemIndex]+'%'));
  SQL.Add('and Анкета.[Дата занесения] between :first_date and  :last_date');

[Xakand_2009]

Сообщение от Прик

  ...
  SQL.Add('Where Анкета.Фамилия Like '+QuotedStr(ListBox1.Items[ListBox1.ItemIndex]+'%'));
  SQL.Add('and Анкета.[Дата занесения] between :first_date and  :last_date');

Совсем забыл про "and" Но исправленный вариант:

with ADOQuery1 do
 begin
  Active:=False;
  SQL.Clear;
  SQL.Add('SELECT Анкета.Фамилия, Анкета.Имя, Анкета.Отчество, Анкета.[Дата занесения]');
  SQL.Add('[Места работы].[Дата поступления], [Места работы].[Место работы],);
  SQL.Add('[Места работы].[Дата увольнения], [Места работы].[Причина увольнения]');
  SQL.Add('FROM Анкета INNER JOIN [Места работы]');
  SQL.Add('ON Анкета.КодАнкеты=[Места работы].КодАнкеты');
  SQL.Add('Where Анкета.Фамилия Like '+QuotedStr(ListBox1.Items[ListBox1.ItemIndex]+'%'));
  SQL.Add('and where Анкета.[Дата занесения] between :first_date and :last_date');
  Parameters.ParamByName('first_date').DataType:=ftDateTime;
  Parameters.ParamByName('last_date').DataType:=ftDateTime;
  Parameters.ParamByName('first_date').Value:=DateTimePicker1.DateTime;
  Parameters.ParamByName('last_date').Value:=DateTimePicker2.DateTime;
  Active:=True;
 end

выдаёт такую ошибку:

Как устранить данную ошибку? Спасибо.

[Аватар]

Два WHERE зачем там?

[Xakand_2009]

Сообщение от Аватар

Два WHERE зачем там?

Действительно! Удалил второе и всё заработало. Спасибо.