Nome das tabelas do GDB

Question

Ol�! Gostaria de saber como extrair o nome de todas as tabelas de um GDB! Por exemplo, exibi-los em um TMemo1 apenas o nome de todas as tabelas, assim:

CAD_EMPRESA
CAD_CLIENTE
CAD_FORNECEDOR
CAD_PRODUTOS
etc...

Ser� que alguem pode me ajudar com isso?

Vinicius2k · Answer

Colega,Veja o t�pico : //delphiforum.icft.com.br/forum/viewtopic.php?t=46307Espero ter ajudado...T+...

Edmarss · Answer

procedure Busca_Tabelas_Fisicas(ListTab: TStringList);
Begin
ListTab.Clear;
If DBExpress Then Begin
SqlDataSet.SQLConnection.GetTableNames(ListaTab,false);
End;
If Zeos Then Begin
ZSQLMetadata.Close;
ZSQLMetadata.MetadataType:=mdTables;
ZSQLMetadata.Open;
While Not SQLMetadata.Eof Do Begin
ListTab.Add(SQLMetadata.Fields[2].AsString);
SQLMetadata.Next;
End;
End;
If BDE
DataBase.GetTableNames(�nome_alias�,��,false,true,ListaTab);
End;
End;

Espero ter ajudado....