Delphi - DBGrid не отображает содержимое таблицы ADO

Поэтому я попытался загрузить все свои таблицы ADO в соответствующие DBGrids во время выполнения. Я не получаю ошибок, но ничего не отображается в сетке? Что я здесь делаю неправильно?

Код, который я использую:

procedure TfrmEntry.FormActivate(Sender: TObject);
begin
  GridSetupContainer;
end;

procedure TfrmEntry.GridSetupContainer;
begin

  with dmArchive do
  begin
    GridSetup(dbgA16,dsr1660);
    GridSetup(dbgA2P1,dsrTwoPointOne);
    GridSetup(dbgAXKarts,dsrXKarts);
    GridSetup(dbgAHM,dsrHeavyMetals);
    GridSetup(dbgAHR,dsrHotrods);
    GridSetup(dbgAMIDA,dsrMidA);
    GridSetup(dbgAMIDB,dsrMidB);
    GridSetup(dbgAMinis,dsrMinis);
    GridSetup(dbgAPink,dsrPinkrods);
    GridSetup(dbgASpr,dsrSprints);
    GridSetup(dbgASR,dsrStockrods);
    GridSetup(dbgADev,dsrDev);
    GridSetup(dbgAV8,dsrV8);
    GridSetup(dbgALM,dsrLateModels);
  end;

  with dmRacers do
  begin
    GridSetup(dbgR16,dsr1660);
    GridSetup(dbgR2P1,dsrTwoPointOne);
    GridSetup(dbgRXKarts,dsrXKarts);
    GridSetup(dbgRHM,dsrHeavyMetals);
    GridSetup(dbgRHR,dsrHotrods);
    GridSetup(dbgRMIDA,dsrMidA);
    GridSetup(dbgRMIDB,dsrMidB);
    GridSetup(dbgRMini,dsrMinis);
    GridSetup(dbgRPink,dsrPinkrods);
    GridSetup(dbgRSP,dsrSprints);
    GridSetup(dbgRSR,dsrStockrods);
    GridSetup(dbgRDev,dsrDev);
    GridSetup(dbgRV8,dsrV8);
    GridSetup(dbgRLM,dsrLateModels);
  end;

end;

procedure TfrmEntry.GridSetup(grid: TDBGrid; source: TDataSource);
begin
  grid.DataSource:=source;
end;

Заранее спасибо за помощь!

С уважением, ПраймБит.


delphi ado dbgrid
person PrimeBeat    schedule 04.02.2021    source источник
comment
Вы показали код, который связывает сетки БД с источниками данных. Но связаны ли эти источники данных с наборами данных? Как активировать наборы данных?   -  person Peter Wolf    schedule 04.02.2021

Ответы (1)


arrow_upward
2
arrow_downward

попробуй это:

procedure TfrmEntry.GridSetup(grid: TDBGrid; source: TDataSource);
begin
  grid.DataSource:=source;
  source.dataset.open; //this line!!! perhaps you don't open the table!, edited has sugested by Peter Wolf
end;
person Diego Muñoz    schedule 04.02.2021