DBgrid некорректно отображает данные из БД

[jirtreck]

Сделал БД на основе Access. В файл новые данные добавляются без проблем, но сама программа их не читает.

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


Код 3 форм. Так получилось, что основной юнит, с которого запускается программа, третий, а не первый

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, Menus, Grids, DBGrids, StdCtrls;

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.N2Click(Sender: TObject);
begin
form3.ADOQuery1.Append;
form1.Show;
end;

procedure TForm3.N3Click(Sender: TObject);
begin
form1.Show;
end;

procedure TForm3.N4Click(Sender: TObject);
begin
form2.Show;
end;

end.



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Транспорт: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Form3.ADOQuery1.Modified then form3.ADOQuery1.Post;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close;
end;

end.



unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form3.ADOQuery1.Delete;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Close;
end;

end.

[jirtreck]

Возможно это важно:

Каждый раз когда открываю проект, выскакивает ошибка о том, что не удается найти файл.
Приходится прожимать заново ConnectionString в ADOConnection, и ставить галочку на Active в ADOQuery.

SQL такой: Select * from DBTel ORDER BY fam

[jirtreck]

Максимально полно уже ответили

[Serge_Bliznykov]

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

Максимально полно уже ответили

Простите, не понял. Кто ответил? Проблема уже решена?

[Ernest027]

Запустил твой проект. У тебя данные в таблице dbgrid не отображались.
Удалил dbgrid, кинул новый dbgrid, подключил и все заработало.
Установи пакет ehlib, классное дополнение.

[evg_m]

Вернее читает, но выводит заместо данных пустые строки.

В списке показа (колонках) DBGrid указаны не те поля.
Для указания заголовков колонок ОТЛИЧНЫХ от имен полей используется Title.Caption

Удалил dbgrid, кинул новый dbgrid

И не стал настраивать статический список колонок показа!...

, подключил и все заработало.