Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Подскажите как я могу узнать сколько таблиц в БД

Автор: e-gorka 12.4.2005, 03:36

Подскажите как я могу узнать сколько таблиц в БД
по средством SQL средствами Делфи?

нужно организовать открытие выбранной Аксесовской таблицы, из Делфи.

Автор: SPrograMMer 12.4.2005, 19:12

У меня уже спрашивали. Тут список таблиц в TreeView загоняется...

Код


procedure AddNewItem(Item:String);
Begin
  With Form1 Do
    If TreeView1.Items.Count=0 Then
      TreeView1.Items.Add(Nil,Item)
    Else
      TreeView1.Items.AddChild(TreeView1.Items[0],Item)
End;

procedure TForm1.Button2Click(Sender: TObject);
  Var
    I:Byte;
    ListTabl:TStringList;
begin
  TreeView1.Items.Clear;
  AddNewItem('Список таблиц:');
  ListTabl:=TStringList.Create;
  ADOConnection1.GetTableNames(ListTabl);
  For I:=0 To Pred(ListTabl.Count) Do
    AddNewItem(ListTabl[I]);
  ListTabl.Free
end;

Автор: e-gorka 13.4.2005, 11:15

SPrograMMer
Спасибо, от души!)))
выручил.