изменение визуального имени столбца в таблице бд

[Nikai]

Доброго времени суток,форумчане!!
у меня вот такая проблема сегодня:
создал datamodule,на него закинул adoconnection,adotable и datasource,на форме разместил dbgrid.
программным путём у меня выбирает,какую базу будет загружать,по-этому список столбцов пуст в adotable и изменить визуальное имя столбца не могу через property,а только программно.вот,собственно код:

datamodule3.DataConnection1.Connected:=false;
datamodule3.DataConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+ptb+';Persist Security Info=False;';
datamodule3.DataConnection1.Connected:=true;
datamodule3.AVOTable1.TableName:='AVO';
datamodule3.AVOTable1.Active:=true;
datamodule3.AVOTable1.Fields.FieldByName('date').DisplayName:='Дата';

выдаёт ошибку "cannot assign to a read-only property".кто знает,к каким свойствам и где надо изменить только чтение на read-write,или кто знает другое решение проблемы,подскажите плз..



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

[Прик]

На компоненте DBGrid щелкнуть два раза (или в Object Inspector в свойстве Columns нажать кнопку с тремя точками). В появившемся списке (пустом) добавить столько колонок, сколько должно отображаться в гриде. В свойствах каждой добавленной колонки указать FieldName, а в свойстве Title, подсвойстве Caption, ввести "визуальное имя" столбца. Там же, если требуется, указать ширину столбца (подсвойство Width).

[maLoy*508]

так в dbgride столбцы переименуй...
примерно так:

DBGrid1.Columns[0].Title.Caption := 'Your_Name';

p.s. Оформляй код тегами, знак решетки #... а то получишь штраф...

[Slym]

я когда то делал через схему но нужно заполнять в таблицах Примечание/Описание

procedure TDM.ShowDict(const TableName, Caption: string);
var
  Table:TADOTable;
  DS:TADODataSet;
  i:integer;
  GridEdit:TGridEdit;
begin
  Table:=TADOTable.Create(nil);
  try
    Table.Connection:=Conn;
    Table.TableName:=TableName;
    Table.ReadOnly:=not DM.adm;
    Table.Open;
    DS:=TADODataSet.Create(nil);
    try
      Conn.OpenSchema(siColumns,EmptyParam,EmptyParam,DS);
      with DS.FindField('DESCRIPTION') do
        for i:=0 to Table.FieldCount-1 do
          if DS.Locate('TABLE_NAME;COLUMN_NAME',VarArrayOf([TableName,Table.Fields[i].FieldName]),[]) then
            Table.Fields[i].DisplayLabel:=AsString;
    finally
      DS.Free;
    end;
    GridEdit:=TGridEdit.Create(self);
    try
      GridEdit.Caption:=Caption;
      GridEdit.DataSource.Dataset:=Table;
      GridEdit.ShowModal;
    finally
      GridEdit.Free;
    end;
  finally
    Table.Free;
  end;
end;

[Slym]

Вот еще от туда полезный блок

procedure TDM.ValidateTable(DataSet: TDataSet;const ATableName:string='');
var
  TableName:string;
  Strings:TStringList;
  DS:TADODataSet;
  IsNullable,Description:TField;
  i:integer;
begin
  if ATableName<>'' then TableName:=ATableName else TableName:=DataSet.Name;
  Strings:=TStringList.Create;
  try
    DS:=TADODataSet.Create(nil);
    try
      Conn.OpenSchema(siColumns,EmptyParam,EmptyParam,DS);
      IsNullable:=DS.FieldByName('IS_NULLABLE');
      Description:=DS.FieldByName('DESCRIPTION');
      for i:=0 to DataSet.FieldCount-1 do
      with DataSet.Fields[i] do
      begin
        if IsNull and not ReadOnly then
        begin
          if not DS.Locate('TABLE_NAME;COLUMN_NAME',VarArrayOf([TableName,FieldName]),[]) then
            Continue;
          if IsNullable.AsBoolean then Continue;
          if not Description.IsNull then
            Strings.Add('"'+Description.AsString+'"')
          else
            Strings.Add('"'+FieldName+'"');
        end;
      end;
    finally
      DS.Free;
    end;
    if Strings.Count>0 then
    begin
      Strings.Insert(0,'Не заполнены обязательные поля:');
      Application.MessageBox(Strings.GetText,'Ошибка!',MB_ICONERROR);
      Abort;
    end;
  finally
    Strings.Free;
  end;
end;

[ТипичныйСтудент]

ОГРОМНОЕ СПАСИБО!