Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить коментарий к полю? [D6, WinME]


SergP ©   (2004-11-07 07:54:00) 

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

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


Ученик   (2004-11-07 13:55:00) [1]

В оригинале 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;


SergP   (2004-11-07 11:02:00) [2]

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


Vit@ly   (2004-11-07 10:34:00) [3]

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


Dell3r   (2004-11-07 10:33:00) [4]

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


Vit@ly   (2004-11-07 10:30:00) [5]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо