Как добавить все поля в таблицу с кода

[tarakan1983]

Из книги "Библия для программиста в среде Delphi" Фленов Михаил

Дважды щёлкни по компоненту AdoTable и перед тобой появиться окно редактирования полей базы данных. Пока что оно пустое и суда нужно добавить все поля базы данных. Для этого щёлкни в нём правой кнопкой мыши и в появившемся меню выбери пункт Add All Field (Добавить все поля). Окно автоматически заполниться именами полей

Вопроос: Как это можно проделать в программном коде? т.е. по нажатию на button1 я могу присвоить adoTable имя таблицы, свойтво Connection и т.п. а как добавить все поля из подключенной таблицы.
Надеюсь объяснил понятно.

[Stilet]

Ну можно в цикле подобавлять:

ADOTable1.Fields.Add(ADOTable2.Fields[i]);

Я примерно смысл имею ввиду. Код не проверял.

[tarakan1983]

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

Ну можно в цикле подобавлять:

ADOTable1.Fields.Add(ADOTable2.Fields[i]);

Я примерно смысл имею ввиду. Код не проверял.

Цикл не обязательно, мне нужно из таблицы 2 поля, заранее известных
Пробую так

ADOTable1.Fields.Add(id,name);

ругается на название полей, пробовал названия в кавычках, говорит несовместимость типов string и Tfields

[Stilet]

Хм...
Я бы посмотрел в сторону SQL но хозяин барин.
Поле нужно сначала создать

Вот краткий курс из Delphi World^

procedure TForm1.Button1Click(Sender: TObject);
var
f: TField;
i: integer;
begin
Table1.Close;
for i := 0 to Table1.FieldDefs.Count - 1 do
Table1.FieldDefs.Items[i].CreateField(Table1);
f := TStringField.Create(Table1);
f.Name := 'Table1CalcField';
f.FieldName := 'CalcField';
f.DisplayLabel := 'CalcField';
f.Calculated := True;
f.DataSet := Table1;
Table1.Open;
end;

Зайди на http://delphiworld.narod.ru/_all_articles_.html
Там в разделе Поля найдеш ответы на свой вопрос.

[tarakan1983]

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

Хм...
Я бы посмотрел в сторону SQL но хозяин барин.
Поле нужно сначала создать

Вот краткий курс из Delphi World^


Зайди на http://delphiworld.narod.ru/_all_articles_.html
Там в разделе Поля найдеш ответы на свой вопрос.

Понял, спасибо большое за толчок в нужную сторону

[Andrei]

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

Из книги "Библия для программиста в среде Delphi" Фленов Михаил

Вопроос: Как это можно проделать в программном коде? т.е. по нажатию на button1 я могу присвоить adoTable имя таблицы, свойтво Connection и т.п. а как добавить все поля из подключенной таблицы.
Надеюсь объяснил понятно.

Чтобы добавить все поля подключенной таблицы ничего больше делать не надо. Просто активируйте AdoTable. AdoTable сам автоматически создаст нужный список полей.

Если же вам для работы нужны только определенные поля, то лучше и проще подключиться к таблице через AdoQuery используя SQL запрос как советовал Stilet.