Nome das tabelas do GDB
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:
Será que alguem pode me ajudar com isso?
CAD_EMPRESA CAD_CLIENTE CAD_FORNECEDOR CAD_PRODUTOS etc...
Será que alguem pode me ajudar com isso?
Marcelo
Curtidas 0
Respostas
Vinicius2k
10/09/2004
Colega,
Veja o tópico :
http://delphiforum.icft.com.br/forum/viewtopic.php?t=46307
Espero ter ajudado...
T+
Veja o tópico :
http://delphiforum.icft.com.br/forum/viewtopic.php?t=46307
Espero ter ajudado...
T+
GOSTEI 0
Edmarss
10/09/2004
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....
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....
GOSTEI 0