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:  Listando o Nome de Todas as Tabelas de um BD - ADO & DAO
Postada em 22/11/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'*** Usando ADO ***

'No evento que você desejar:
  Dim ADOXCat As New ADOX.Catalog
  ADOXCat.ActiveConnection = "PROVIDER=Microsoft.Jet." & _
                             "OLEDB.4.0;Data Source=" & _
                             "C:\Banco.MDB;"
  For i = 0 To ADOXCat.Tables.Count - 1
    Debug.Print ADOXCat.Tables.Item(i).Name
  Next i

'Depois desta rotina ter sido executada, o nome de TODAS as tabelas do banco de dados estará na janela Immediate Windows...

'*** Usando DAO ***

'No evento que você desejar:
  Dim DB As DAO.Database
  Dim i As Integer
  Set DB = Workspaces(0).OpenDatabese("C:\Banco.MDB")
  For i = 0 To DB.TableDefs.Count - 1
    If (DB.TableDefs(i).Attributes And _
       dbSystemObject) <> dbSystemObject Then
      Print DB.TableDefs(i).Name
    End If
  Next
 


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