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

[S@fer]

Вот держи немного переделал твою программку

[LANDER]

Спасибо тебе. Теперь понял, что редактор полей и вовсе не нужен в моем случае. Просто выбираются Select-ом нужные поля. Благодарю за помощь еще раз.

[LANDER]

Еще одна проблемка: пытаюсь полученный результат данного запроса вывести в верд.

DataModule1.ADOQuery1.Active:=False;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('SELECT [Фирма №1] FROM [base] GROUP BY [Фирма №1] ORDER BY Count([Фирма №1]) DESC');
DataModule1.ADOQuery1.Active:=true;
DataModule1.RequestQuery.Active:=False;
DataModule1.RequestQuery.SQL.Clear;
DataModule1.RequestQuery.SQL.Add('SELECT [Фирма №1] FROM base GROUP BY [Фирма №1] HAVING [Фирма №1]="'+DataModule1.ADOQuery1.Fields[0].AsString+'"');
DataModule1.RequestQuery.Active:=True;
DataModule1.base.Active:=false;
RequestForm.ShowModal;

Вывод делаю так:

w:=CreateOLEObject('Word.application');
w.Documents.Open('C:\Sergey\template.dot');
w.Selection.Start:=0;
w.Selection.End:=0;
w.Selection.Start:=0;
w.Selection.End:=W.Activedocument.Characters.Count;
w.Selection.Find.Text:='$InsertMarker';
w.Selection.Find.Replacement.Text:=DataModule1.base.fields[5].asstring;
w.Selection.Find.Execute(replace:=wdreplaceall);
w.Selection.Start:=0;
w.Selection.End:=0;
w.Visible:=true;

Но в отчет вставляется первая строка поля Фирма №1 (оно же 5) не из нового грида, а из главной базы. Как вывести результат из нового грида где только поле Фирма №1 ???

[S@fer]

Может так

w:=CreateOLEObject('Word.application');
w.Documents.Open('C:\Sergey\template.dot');
w.Selection.Start:=0;
w.Selection.End:=0;
w.Selection.Start:=0;
w.Selection.End:=W.Activedocument.Characters.Count;
w.Selection.Find.Text:='$InsertMarker';
w.Selection.Find.Replacement.Text:=DataModule1.RequestQuery.fields[0].asstring;
w.Selection.Find.Execute(replace:=wdreplaceall);
w.Selection.Start:=0;
w.Selection.End:=0;
w.Visible:=true;