Как получить коментарий к полю?

← →
SergP © (2004-11-07 07:54) [0]

Есть БД. Есть в ней таблица, у которой у каждого поля есть коментарий.
Как мне добраться до этих коментариев (хотя бы только для чтения) из своей программы?

БД - Access
доступ через ADO

← →
Vit@ly © (2004-11-07 10:30) [1]

Так же как и до любого другого поля таблицы. В чем, собственно, проблема?

← →
Dell3r © (2004-11-07 10:33) [2]

А не пробовал эти комментарии перенести в отдельну колонку и оттуда их считывать, и даже редактировать.

← →
Vit@ly © (2004-11-07 10:34) [3]

2 Vit@ly © (07.11.04 10:30) [1]
Извиняюсь, не верно понял вопрос :(

При создании таблицы в конструкторе указываются имя поля, тип данных и описание...
Вот это описание мне и нужно...
Допустим я редактирую гридом какой-нить кусок таблицы выбраный select"ом.
В таблице полей очень много. Чтобы юзеру было понятнее что где, я хочу сделать внизу StatusBar где бы отображался коментарий к текущему полю, т.е. что за данные там находятся. Могу в принципе и в самой программе сделать массив с этими коментариями и пользоваться ним, могу в базе создать отдельную таблицу специально для этого, но это все не то.
Тем более что если полям можно давать коментарии, то почему бы их не использовать. Вот только как, не знаю.

← →
Ученик (2004-11-07 13:55) [5]

В оригинале TADOConnection.GetFieldNames

procedure TADOConnection.GetFieldNamesAndLabels(const TableName: string; aNames, aLabels: TStrings); const COLUMN_NAME = "COLUMN_NAME"; { Do not localize } COLUMN_LABEL = "DESCRIPTION"; var Fields: _Recordset; P : Integer; ColumnName, ColummLabel, TempTableName, TempSchemaName : Variant; begin CheckActive; P := Pos(".", TableName); if P > 0 then begin TempSchemaName := Copy(TableName, 1, P - 1); TempTableName := Copy(TableName, P + 1, Length(TableName) - P); end else begin TempTableName := TableName; TempSchemaName := Null; end; Fields := ConnectionObject.OpenSchema(adSchemaColumns, VarArrayOf([Null, TempSchemaName, TempTableName]), EmptyParam); aNames.BeginUpdate; try aNames.Clear; aLabels.BeginUpdate; try aLabels.Clear; ColumnName := Fields.Fields[COLUMN_NAME]; ColummLabel := Fields.Fields[COLUMN_LABEL]; while not Fields.EOF do begin aNames.Add(ColumnName.Value); aLabels.Add(ColummLabel.Value); Fields.MoveNext; end finally aLabels.EndUpdate end finally aNames.EndUpdate end end;

Как получить коментарий к полю? Найти похожие ветки