|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Listar tabelas, campos, indexes e consultas do Banco de Dados
|
 |
|
|
|
Postada em 3/2/2003 por Salgadinho
'Declarações...
Dim Tbl as TableDef
Dim Fld as Field
Dim Idx as Index
Dim Qry as QueryDefs
'Listar tabelas...
For Each Tbl in BD.TableDefs
'Verifica se nao eh tabela do sistema...
If left(tbl.name,4)<>"MSys" and left(tbl.name,4)<>"USys" then
Debug.Print Tbl.Name
'Listar campos...
For Each Fld in Tbl.Fields
Debug.Print Fld.Name
Next
'Listar indexes...
For Each Idx in Tbl.Indexes
Debug.Print Idx.Name
Next
End If
Next
'Listar consultas...
For Each Qry in DB.QueryDefs
Debug.Print Qry.Name 'Para saber o nome ....ou
Debug.Print Qry.SQL 'Para saber a estrutura SQL
Next
Bruno Salgado
|
|
|
|
|
