USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página