Как рассчитать возраст sql запрос

[slai]

Всем привет помогите пожалуйста. Как мне сделать так чтобы при вводе цифры (лет) мне в таблице вывело именно тех кому столько лет.
Я делаю вроде правильно но в таблице удаляются последние строки и остается только первая .
Вот код.
Код Delphi

q2.SQL.Text:='select * from owner where DateDiff(year,date_of_birth,GetDate())='
+Edit1.Text+' and family_status ='+char(39)+Combobox1.Text+char(39)
+' and TypeOrg = '+char(39)+Combobox3.Text+char(39)+' and sex='+inttostr(RadioGroup1.Itemindex);
q2.Open;
form2.FormActivate(Sender);
q2.Close;

[Stilet]

Чтобы ответить на вопрос нужно базу иметь.
Напиши просто

q2.SQL.Text:='select * from owner where DateDiff(year,date_of_birth,GetDate())='+Edit1.Text

Сработает?

[Serge_Bliznykov]

погодите-ка.
Ответ на уровне интуиции (ведь Вы не указали свой набор данных и заданные условия):

ведь у Вас в запросе, помимо возраста, ещё туева куча условий отбора (семейный статус, тип_организации, пол...)
вот, видимо, по ним и отбирается первая запись, а остальные не подходят под критерии отбора...

[slai]

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

Чтобы ответить на вопрос нужно базу иметь.
Напиши просто

q2.SQL.Text:='select * from owner where DateDiff(year,date_of_birth,GetDate())='+Edit1.Text

Сработает?

Спасибо, но не работает.

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

погодите-ка.
Ответ на уровне интуиции (ведь Вы не указали свой набор данных и заданные условия):

ведь у Вас в запросе, помимо возраста, ещё туева куча условий отбора (семейный статус, тип_организации, пол...)
вот, видимо, по ним и отбирается первая запись, а остальные не подходят под критерии отбора...

Вот весь код

procedure TForm2.FormActivate(Sender: TObject);
var q:integer;

begin
try
Q2.Open;
except
on e:exception do showmessage(e.Message)
end;
stringgrid2.Visible:=false;
stringgrid2.RowCount:=2;
q:=1;

while not Q2.Eof do
begin
StringGrid2.Cells[0,0]:= 'Фамилия';
StringGrid2.Cells[1,0]:= 'Имя';
StringGrid2.Cells[2,0]:= 'Отчество';
StringGrid2.Cells[3,0]:= 'Домашний телефон';
StringGrid2.Cells[4,0]:= 'Рабочий телефон';
StringGrid2.Cells[5,0]:= 'Мобильный телефон';
StringGrid2.Cells[6,0]:= 'Почта';
StringGrid2.Cells[7,0]:= 'Дата рождения';
StringGrid2.Cells[8,0]:= 'Семейное положение';
StringGrid2.Cells[9,0]:= 'Сфера дефтельности';
StringGrid2.Cells[10,0]:= 'Пол';

stringgrid2.Cells[0,q]:=Q2.fields[0].AsString;
stringgrid2.Cells[1,q]:=Q2.fields[1].AsString;
stringgrid2.Cells[2,q]:=Q2.fields[2].AsString;
stringgrid2.Cells[3,q]:=Q2.fields[3].AsString;
stringgrid2.Cells[4,q]:=Q2.fields[4].AsString;
stringgrid2.Cells[5,q]:=Q2.fields[5].AsString;
stringgrid2.Cells[6,q]:=Q2.fields[6].AsString;
stringgrid2.Cells[7,q]:=Q2.fields[7].AsString;
stringgrid2.Cells[8,q]:=Q2.fields[8].AsString;
stringgrid2.Cells[9,q]:=Q2.fields[9].AsString;
stringgrid2.Cells[10,q]:=Q2.fields[10].AsString;


Q2.Next;
inc(q);
stringgrid2.RowCount:=q+2;
end;
stringgrid2.Visible:=true;
if Q2.Active then Q2.Close;

combobox1.Clear;
Form2.Q2.SQL.Text:='select DISTINCT family_status from owner';
Form2.Q2.Open;
if Form2.Q2.Active then
begin
Form2.Q2.First;
while not q2.Eof do
BEGIN
Form2.ComboBox1.Items.Add(Form2.Q2.FieldByName('family_status').AsString);
Form2.Q2.Next;
END;
q2.Close;
END;

combobox3.Clear;
Form2.Q2.SQL.Text:='select DISTINCT typeorg from owner';
Form2.Q2.Open;
if Form2.Q2.Active then
begin
Form2.Q2.First;
while not q2.Eof do
BEGIN
Form2.ComboBox3.Items.Add(Form2.Q2.FieldByName('typeorg').AsString);
Form2.Q2.Next;
END;
q2.Close;
end;
end;

procedure TForm2.Button1Click(Sender: TObject); 
begin
q2.SQL.Text:='select * from owner where DateDiff(year,date_of_birth,GetDate())='
+Edit1.Text+' and family_status ='+char(39)+Combobox1.Text+char(39)+' and TypeOrg = '
+char(39)+Combobox3.Text+char(39)+' and sex='+inttostr(RadioGroup1.Itemindex);
q2.Open;
form2.FormActivate(Sender);
q2.Close;
end;

end.

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

[Serge_Bliznykov]

Как именно не работает?!
Вы уверены, что вместо своего запроса написали вышеуказанный?
Какие данные в таблице?
я бы рекомендовал Вам сделать маленькую тестовую таблицу, запаковать её и выложить на форум...

[slai]

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

Как именно не работает?!
Вы уверены, что вместо своего запроса написали вышеуказанный?
Какие данные в таблице?
я бы рекомендовал Вам сделать маленькую тестовую таблицу, запаковать её и выложить на форум...

Получается она фильтрует только по годам, а мне надо чтобы при выборе всего Например:Сфера деятельности->Торговля (производство, госслужба и т.д.), Семейное положение -> женат(или не женат ), пол->мужской(женский) фильтровала данные.
Вот данные таблицы:
Фамилия
Имя
Отчество
Домашний телефон
Рабочий телефон
Мобильный телефон
Почта
Дата рождения
Семейное положение
Сфера дефтельности
Пол