Поиск в БД

[Baistep]

Код: Выделить всё

st:= inputBox ('Поиск', 'Введите имя или фамилию','');
  if st<> '' then
  begin
  Adoquery1.Filtered:=false;
  Adoquery1.Filter:='name Like ''%'+st+'%''';
  Adoquery1.Filtered:=true;
  if Adoquery1.RecordCount=0 then
  begin
  Adoquery1.Filtered:=false;
  ShowMessage ('В БД нет записей удовлетворяющих запросу')
  end;
  end;

Это поиск по имени и фамилии помогите переделать под поиск по году. Плз

[vada]

А что дашь?

[Padre_Mortius]

Учимся пользоваться тегом code

[Baistep]

спасибо скажу)

[vada]

Спасибо не катит. Ты же как не знал, так и дальше знать не будешь.
Почитай книжки, и увидишь как это просто по году искать.

[Baistep]

я читал и в нете искал там везде по дате 12.12.2011 а мне надо по году 2011 прост

[Brainenjii]

Блин, чувак! Мне как раз нужен поиск по дате 12.12.2011!!! Весь инет перерыл - нигде не нашёл! Поделись ссылкой, а?!

[ViTality]

я читал и в нете искал там везде по дате 12.12.2011 а мне надо по году 2011 прост

ну дык и ищи даты в необходимом тебе диапазоне

[wofs]

... а мне надо по году 2011 прост

например сформировать запрос так (подставив свои Table1, поля для выборки и поле вместо "Дата"):

Код: Выделить всё

FindQuery.SQL.Add('SELECT * FROM Table1 WHERE Дата BETWEEN '+QuotedStr('01.01.'+YearText.Text) AND QuotedStr('31.12.'+YearText.Text)+';');

[Baistep]

Я переделал но чтот не пашет (( чё не так ?
ADOQuery.SQL.Add('SELECT * FROM contacts WHERE data BETWEEN '+QuotedStr('01.01.'+Edit1.Text) AND QuotedStr('31.12.'+Edit1.text.Text)+';');

[Jargar]

Я переделал но чтот не пашет (( чё не так ?
ADOQuery.SQL.Add('SELECT * FROM contacts WHERE data BETWEEN '+QuotedStr('01.01.'+Edit1.Text) AND QuotedStr('31.12.'+Edit1.text.Text)+';');

Edit1.text.Text <-------- наверное по этому

[Baistep]

нет это я видел уже

[v-t-l]

Видно, раз Add первым в списке autocompletion у SQL, то его и надо использовать?

Код: Выделить всё

ADOQuery.SQL.Text:='SELECT * FROM contacts WHERE data BETWEEN '+QuotedStr('01.01.'+Edit1.Text)+' AND '+QuotedStr('31.12.'+Edit1.Text);

или хотя бы

Код: Выделить всё

ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('SELECT * FROM contacts WHERE data BETWEEN '+QuotedStr('01.01.'+Edit1.Text)+' AND '+QuotedStr('31.12.'+Edit1.Text));

[Baistep]

всё без проблем компилируется а ничего не ижет прост пустую таблицу кажеть(((

[v-t-l]

Код: Выделить всё

ADOQuery.Open;