Обращение к ~.mdb через AdoTable

[Apostol13]

Как мне скопировать название Столбца из ~.mdb в StringGrid1, если я работаю через AdoTable1 с данной базой - нужно просто присвоить StringGrid1.Cells[1,0] ИМЯ данного столбца базы данных ~.mdb

Безымянный.png
http://www.programmersforum.ru/attac...1&d=1316095081

заранее благодарен, Алексей.

[Lesha]

омг , назовите поля в базе по-английски, имхо потом проблем меньше будет

за название отвечает displayLabel в свойствах полей ADOTable

в DbGrid за название отвечает columns.title.caption

[Surgeon]

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

просто присвоить StringGrid1.Cells[1,0] ИМЯ данного столбца базы данных ~.mdb

надеюсь точно StringGrid нужен.

вот например следующий код по выбору в комбобоксе определенной таблицы запрашивает у компонента ADOConnection список имен полей указанной таблицы и помещает его в Items ListBox'а:

procedure TMainForm.cbADOAvailTablesClick(Sender: TObject);
var
  tablenamestr:string;
begin
  MainADOTable.Active:=false;
  tablenamestr:='';
  tablenamestr:=cbADOAvailTables.Items[cbADOAvailTables.ItemIndex];
  MainADOTable.TableName:=tablenamestr;
  try
   MainADOTable.Active:=true;
  except
   Application.MessageBox(Pchar('Не удалось подключить выбранную таблицу '+tablenamestr),PCHAR('ИМПОРТЕР'),MB_OK);
  end;
if MainADOTable.Active=true then
 begin
   ADOConnection.GetFieldNames(MainADOTable.TableName,cbADOAvailFields.Items);
   lstbADOFields.Items.Clear;
 end;
end;

Еще можно получить имя по номеру поля, например при обходе в цикле:

...
var
stringfieldname:string;
...
stringfieldname:=MainADOTable.Fields[i].FieldName;
...

[Surgeon]

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

омг , назовите поля в базе по-английски, имхо потом проблем меньше будет

кстати да, совершенно согласен

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

за название отвечает displayLabel в свойствах полей ADOTable

все-же DisplayLabel - лишь отображаемая надпись, не всегда соответствующая имени поля.

[_SERGEYX_]

все-же DisplayLabel - лишь отображаемая надпись, не всегда соответствующая имени поля.

Разумеется. А за название поля отвечает свойство FieldName.

[Apostol13]

Всем спасибо за участие - методом тыка нашел то, что нужно и этим чем то была строчка:

StringGrid1.Cells[x,y]:=AdoTable1.Fields[1].FieldName;

а в чем разница в использовании BDGrid и StringGrid ? если работа осуществляеца только с базами ~.mdb ?

[Аватар]

Ну вообще-то с DBGrid c данными из базы горазду удобнее работать

[Surgeon]

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

а в чем разница в использовании BDGrid и StringGrid ? если работа осуществляеца только с базами ~.mdb ?

Кх-м вопрос с подвохом что-ли?
DBGrid - прицепляется к datasource и отображает данные из его dataset(запрос, таблица не суть), данные организованы в Columns являющиеся отображением Fields со всеми их ограничениями.
А StringGrid - более "вольный стрелок", отображает что хочешь без ограничений, но лишь отображает, читать и писать данные надо самостоятельно.
Как-то так...

[Apostol13]

n:=4;
    AdoTable1.First;

    for colnum:=StrToInt(Edit1.Text) to (StrToInt(Edit2.Text)) do
        begin
        AdoTable1.Append;
        AdoTable1.Fields.Fields[n].FieldName:=IntToStr(colnum)+' - '+IntToStr(colnum);
        n:=n+1;
        AdoTable1.Post;
        end;

В Edit1 и Edit2 пишем интервал например [3,5] и в БД формируются столбцы с именами соответственно заданному интервалу. Но я что то не так делаю.

[Surgeon]

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

n:=4;
    AdoTable1.First;

    for colnum:=StrToInt(Edit1.Text) to (StrToInt(Edit2.Text)) do
        begin
        AdoTable1.Append;
        AdoTable1.Fields.Fields[n].FieldName:=IntToStr(colnum)+' - '+IntToStr(colnum);
        n:=n+1;
        AdoTable1.Post;
        end;

В Edit1 и Edit2 пишем интервал например [3,5] и в БД формируются столбцы с именами соответственно заданному интервалу. Но я что то не так делаю.

Как-то справку читать надо :"TFields holds the field (TField) objects that represent the physical fields underlying a dataset or an object field such as TADTField and TArrayField.".
Не должен этот фокус проканать.

А вообще зачем это???????? Имена полям присваиваются же не просто так? При разработке базы. Если она вообще была...