Заполнение DBGrid из SQL-таблицы

[Dmitri1alfa]

Всем доброго времени суток! Решил воспользоваться компонентом DBGrid для отображения данных из sql-таблицы.
Добавил я значит на форму компоненты DBGrid, DataSource, ADOConnection и ADODataSet. Связал их между собой. Создал кнопку с SQL-запросом.
Код кнопки:

procedure TForm1.Button2Click(Sender: TObject);
begin
  AdoDataSet1.Active:=False;
    AdoDataSet1.CommandText:='select * from Table1';
  AdoDataSet1.Active:=True;
  AdoDataSet1.Open;
End;

При нажатии на кнопку в DBGrid ничего не выводится.
Подскажите, пожалуйста, что необходимо дописать, чтобы компонент отображал данные из SQL-таблицы? Заранее спасибо!

[Stilet]

Не использую этот компонент, поэтому скажу: ADODataSet меняй на ADQuery.

procedure TForm1.Button2Click(Sender: TObject);
begin
  with AdoQuery1 do begin
    Active:=False;
    SQL.Text:='select * from Table1';
   Open;
  end;
...
end;

DataSource свяжешь с ним.

[Dmitri1alfa]

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

Не использую этот компонент, поэтому скажу: ADODataSet меняй на ADQuery.

procedure TForm1.Button2Click(Sender: TObject);
begin
  with AdoQuery1 do begin
    Active:=False;
    SQL.Text:='select * from Table1';
   Open;
  end;
...
end;

DataSource свяжешь с ним.

Прописал данный код в кнопку, только вот почему-то после компиляции нажимаю на эту кнопку, а грид отображает только пустые строки, причем количество строк эквивалентно количеству строк в sql-таблице, вот только в гриде в строках данных нет. Подскажите, в чем может быть проблема?

[mirkul]

Вместо Open Добавь

...
Active:=true;
...

[Dmitri1alfa]

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

Вместо Open Добавь

...
Active:=true;
...

Не помогло

[mirkul]

...
procedure TForm1.Button2Click(Sender: TObject);
begin
  with AdoQuery1 do begin
    DBGrid1.DataSource:=DataSource1;
    Active:=False;
    SQL.Clear;
    SQL.Text:='select * from Table1';
    Active:=true;
  end;
...
end;
...

[Dmitri1alfa]

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

...
procedure TForm1.Button2Click(Sender: TObject);
begin
  with AdoQuery1 do begin
    DBGrid1.DataSource:=DataSource1;
    Active:=False;
    SQL.Clear;
    SQL.Text:='select * from Table1';
    Active:=true;
  end;
...
end;
...

Да не, ребят, привязку к DataSource в гриде я в Object Inspector'е сделал. Можно и программно канеш, но не суть. Дело не в этом...

[evg_m]

ADODataSet1.Close;
ADODataSet1.commandText:='....';
Dbgrid1.columns.Clear;
Dbgrid1.Datasource:=DataSource1;
Dbgrid1.DataSource.DataSet:=AdoDataSet1;
DBgrid1.Datasource.DataSet.Open;
showMessage( Inttostr(DBGrid1.Datasource.DataSet.RecordCount));

[Аватар]

А в Table1 той данные не пустые хоть есть?
И в гриде если есть созданные колонки убери
Да, Active:=True и Open одно и то же, считай синонимы

[Dmitri1alfa]

Прошу прощения. Тему можно закрывать. Оленем оказался я. Проблема решилась созданием нового грида, наверное в старом чет в опциях намудрил. Всем спасибо.