Написал приложение, которое подключается к базе данных и должно отображать данные таблиц (пока что одной). На DataModule накидал IBQuery (select * from clients), IBDataSource, IBDataSet, IBDataSetProvider связал их с IBDatabase, находящееся на другой форме. При открытии окна с DBGrid (связанным по DataSource c IBDataSource) возникает ошибка
IBQuery1: Cannot perform this operation on an open dataset.
Отладка показала, что эта ошибка возникает на строке
mydm.IBQuery1.ExecSQL;
в следующем блоке кода
procedure TfmTableData.FormActivate(Sender: TObject);
var openTable : TTableSpec;
CountColumns : integer;
I: Integer;
begin
openTable:=TTableSpec(DBSchema.Tables.FindComponent(fmListOfTables.Listbox1.Items.Strings[fmListOfTables.Listbox1.ItemIndex]));
CountColumns:=openTable.Fields.ComponentCount;
//DBGrid1.Columns.:=CountColumns;
{for I := 0 to CountColumns-1 do
begin
DBGrid1.Columns.Add;
DBGrid1.Columns[i].Title.Caption:=openTable.Fields.Components[i].Name;
end; }
MainWindow.IBDatabase1.Connected:=true;
//IBTable1.TableName:='CLIENTS';
mydm.IBDataSet1.Close;
mydm.IBQuery1.Open;
mydm.IBQuery1.ExecSQL;
//IBDataSet1.Open;
//IBTable1.
//fmTableData.DataSource1.DataSet:=IBDataset1;
//fmTableData.DBGrid1.DataSource:=fmTableData.IBDataset1;
end;