ADO, записи в таблицу

[User_IR_An]

Помогите, пожалуйста, начинающей.
Проблема, заключается в следующем:
На форме есть dbcombobox, в нем находятся учебные года, например, 2013/2014, так вот нужно вывести в DBGRID все группы которые учатся в этом году, вот примерно как я реализовываю, но не могу вывести именно строку, которая удовлетворяют условию.

 with ADOQuery_gr do
         begin
          open;
              while not EOF do
              begin
                 g_p:=StrToInt(AdoQuery_gr.FieldByName('Год приема').AsString); // сюда заносится данные о годе приема
                 g_v:=StrToInt(AdoQuery_gr.FieldByName('Год выпуска').AsString); //сюда заносятся данные о годе выпуска группы
                 S:=DBComboBox_uch.Text; 
                 S1:=copy(S,1,4);  // начало уч.года
                 S2:=copy(S,6,9);  // конец уч.года
                 uch1:=StrToInt(S1);
                 uch2:=StrToInt(S2);
                 if (uch1>=g_p) and (uch1<g_v) and (uch2>g_p) and (uch2<=g_v) {это условие на выборку, подходящих групп}
                 then
                     //Здесь нужно вывести строку, которая соответствует условию

                  Next;
              end;

        end;

[phomm]

Это лучше делать на стороне базы данных, создав sql-запрос, в котором сразу отфильтруете нужные группы (В большинстве субд есть функция YEAR).
Тогда грид сам заполнится нужными записями (ну, при настройке на отображение этого запроса, ессно).
Либо поставить просто стринггрид и ручками уже в цикле заполнять нужные поля по Вашему методу. Но при этом надо вводить счётчик для строки грида, и при условии что запись не подходит - счётчик не увеличивать и грид не заполнять, а подходит - заполнять, счётчик ессно использовать для адресации строки в TStringGrid.Cells

[Konstantin_ua]

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

Помогите, пожалуйста, начинающей.
Проблема, заключается в следующем:
На форме есть dbcombobox, в нем находятся учебные года, например, 2013/2014, так вот нужно вывести в DBGRID все группы которые учатся в этом году, вот примерно как я реализовываю, но не могу вывести именно строку, которая удовлетворяют условию.

 with ADOQuery_gr do
         begin
          open;
              while not EOF do
              begin
                 g_p:=StrToInt(AdoQuery_gr.FieldByName('Год приема').AsString); // сюда заносится данные о годе приема
                 g_v:=StrToInt(AdoQuery_gr.FieldByName('Год выпуска').AsString); //сюда заносятся данные о годе выпуска группы
                 S:=DBComboBox_uch.Text; 
                 S1:=copy(S,1,4);  // начало уч.года
                 S2:=copy(S,6,9);  // конец уч.года
                 uch1:=StrToInt(S1);
                 uch2:=StrToInt(S2);
                 if (uch1>=g_p) and (uch1<g_v) and (uch2>g_p) and (uch2<=g_v) {это условие на выборку, подходящих групп}
                 then
                     //Здесь нужно вывести строку, которая соответствует условию

                  Next;
              end;

        end;

Я не профессионал, но думаю как то так

  S:=DBComboBox_uch.Text; 
 S1:=copy(S,1,4);  // начало уч.года
 S2:=copy(S,6,9);  // конец уч.года
 try
    with ADOQuery_gr do
     begin
		SQL.Clear;     
        SQL.Add('SELECT * FROM Name_Table WHERE (God_vstupa  BETWEEN P1 AND  P2) AND (God_vupuska<=p2 ) AND (God_vupuska>=p1 ) ');
		Parameters.ParamByName('p1').Value:=StrToInt(s1);  
		Parameters.ParamByName('p2').Value:=StrToInt(s2);	
		ExecSQL;

     end;
   finally

   end;

меняешь только Name_Table на имя твоей таблицы и God_vstupa, God_vupuska на имя полей в таблице

[xxbesoxx]

Что бы не повторят код ! На все форуме есть примеры! набейте в google Фильтрация по дате delphi надо параметризированны запрос и использовать компонент DateTimePicker1

[User_IR_An]

Спасибо, все получилось, изменили только содержание запроса.

SQL.Add('SELECT * FROM Группы WHERE (P1>=Год_приема ) AND (P1<Год_выпуска ) AND (P2>Год_приема ) AND (P2<=Год_выпуска ) ');