Ошибка при чтении БД из файла!!

[sting]

товарищи вот сделал запрос
Вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;

    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



{$R *.dfm}



procedure TForm1.FormActivate(Sender: TObject);
begin
try
 ADOConnection1.Open;
 ADODataSet1.Active :=True;
 except
 on
 e:Exception    do begin
 DBGrid1.Enabled:=False;
 MessageDlg('Ош', mtError, [mbok],0);
 end;
 end;
end;

end.

а он мне ошибку!
вот файлики!

тока расположение БД поменяйте!

[Mitriy08]

У тебя есть только 1 табличка по именем "1"
Поменяй название....

[sting]

ААААААА!

А на какое???

и как ты узнал в чём проблема??

обясни плиз

[Mitriy08]

Открыл твою БД и посмотрел какие там ьаблицы есть))))
в компоненте ADODataSet1 исправь в свойстве CommandText на

select Name, Phone FROM 1 Order BY Name

Либо поменяй имя таблицы

[sting]

спасиб большое всё ок! если чё я сюда напишу!!))