Access, Delphi

[Антон Лысенко]

Здравствуйте! У меня возник такой вопрос: как дать возможность пользователю выбирать таблицу с БД? Как дать пользователю выбрать базу данных я знаю, а вот таблицы с этой базы... Есть какие-то свойства в ADOConection или ADOQuery где есть этот список таблиц и как к нему добраться?

[Stilet]

Из хелпа D6:

var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      Table1.Insert;
      Table1.FieldByName('Name').AsString := SL[index];
      if ADOTable1.Active then ADOTable1.Close;
      ADOTable1.TableName := SL[index];
      ADOTable1.Open;
      Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;

      Table1.Post;
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;
end;

Обрати внимание на ADOConnection1.GetTableNames(SL, False);

[Антон Лысенко]

Спасибо за помощь!