|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
