Add all Filds в Query

[-=pasha=-]

Добрый день. Подскажи пожалуйста можно ли реализовать мои задумки... Есть БД в аксессе подключена в делфи через ADO. Нужно в ADOQuery довавить(создать поля). Мышкой я могу это сделать. А программно это как-то реализовать можно?

[Ev[G]eN]

в Delphi нет ни4его невозможного)

[-=pasha=-]

В таком случае как это это сделать?

[Serge_Bliznykov]

можно. А Вам зачем?!
Дело в том, что если поля не вытащены в DesingTime в запрос - то вытягиваются те поля, которые есть в запросе в RunTime (ну, грубо говоря, что в данный момент запрос вернёт - то и вытягивается).
И после этого можно обращаться к этим полям (в т.ч. по имени поля).

[-=pasha=-]

Ну у меня ситуация такая.На форме есть панелька на ней чекбоксы с названиями полей. Что отметил, то тянется в запрос. На основании этого запроса формируется отчет через fastreport. Все клево отчет формируется, только вот название полей в отчет тянется по английски. Если добавлять поля через диспетчер объектов, то у меня ошибка вылазит при формировании запроса.

[asmodey1]

Все клево отчет формируется, только вот название полей в отчет тянется по английски

Вывод результата запроса дает поля в том порядке, в котором они перечислены в запросе.
Допустим, если результат отображаем в DBGrid, то мы спокойно можем, например, для самого первого поля с табличным именем "Number" назначить название в гриде по-русски:

DBGrid1.Columns[0].Title.Caption:='Номер';

Кто мешает сделать аналогично и для рипорта ?

[Serge_Bliznykov]

основании этого запроса формируется отчет через fastreport

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

по сути, попробуйте, должно сработать:

with DataSet do
    begin
        with FieldDefs.AddFieldDef do
            begin
                DataType := ftFloat;
                Name := 'MARK_WEIGHT';
            end;
        with FieldDefs.AddFieldDef do
            begin
                DataType := ftString;
                Name := 'MARK_NAME';
                Size := 30;
            end;
     .....
end;

кстати, а если Вы добавляете руками в запрос одно поле. Потом CheckBox'ом выбираете только одно это поле - всё нормально работает? и название поля по русски в отчёте?!

[-=pasha=-]

procedure TForm12.Button1Click(Sender: TObject);
Var sql,ss:string;
    i,k,k1:integer;
begin
sql:='SELECT ';

  Memo1.Clear;
  //Считаем кол-во отмеченых чекбоксов на форме
  k:=0  ;
  for i := 0 to Form12.ComponentCount - 1 do
  begin
    if Form12.Components[i] is TCheckBox then
    begin
      if (Form12.Components[i] as TCheckBox).Checked = true then
      begin
        Inc(k);
       // Memo1.Lines.Add((Form12.Components[i] as TCheckBox).Caption+' = true');

      end;
    end;
  end;

 //Заносим поля в select
 k1:=0;
  for i := 0 to Form12.ComponentCount - 1 do
  begin
    if Form12.Components[i] is TCheckBox then
    begin
      if (Form12.Components[i] as TCheckBox).Checked = true then
      begin
        inc(k1);
        if k1<k then
        begin
          ss:= (Form12.Components[i] as TCheckBox).Name;
          //zamena(ss, '_', '.');
          sql:=sql+zamena(ss, '_', '.')+',' ;

        end;
        if k1=k then
        begin
          ss:= (Form12.Components[i] as TCheckBox).Name;
          //zamena(ss, '_', '.');
          sql:=sql+zamena(ss, '_', '.')+' ' ;
        end;
      end;
    end;
  end;
Memo1.Lines.Add('k= '+ IntToStr(k));
Memo1.Lines.Add('sql= '+sql);
//ss:='fz_fam';
Memo1.Lines.Add('zamena= '+zamena(ss, '_', '.'));
peremen;
sql:=sql+'FROM 2fiz_lica AS fz INNER JOIN 1ychet AS y ON fz.id_fiz_lica = y.id_fiz_lica';
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sql);
ADOQuery1.Active:=True;
 frxReport1.ShowReport;
 {frReport1.ShowReport;
 frReport1.ShowPreparedReport;  }
end;

Вот так у меня формируется запрос.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

понятно. ну, очень легко переделать этот алгоритм под один проход.
да и с if k1<k then .. if k1=k then Вы зря намудрили - там же буквально просится такой упрощённый вариант:

      if (Form12.Components[i] as TCheckBox).Checked = true then
      begin
        inc(k1);
        ss:= (Form12.Components[i] as TCheckBox).Name;
        if k1<k then
          sql:=sql+zamena(ss, '_', '.')+',' 
        else
          sql:=sql+zamena(ss, '_', '.')+' ' ;
      end;

но это всё лирика.
А теперь расскажите, что у Вас в frxReport1.frx ?
Какие там поля?
p.s. если frxReport1 - не является секретным - запакуйте его в архив и выложите на форум... Любопытно взглянуть...

[vovk]

Не совсем проблема понятна, псевдонимы для названий полей легко назначать в запросе или в TfrxDBDataset, что программно, что в дизайнере это особых пробем не вызывает. Легче всего завести дополнительную таблицу в базе где будет указыватся имя таблицы, имя поля, и имя для отображения, кажется подобное делает FIBPlus