|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Pegar os nomes das tabelas de um Banco de dados .mdb
|
 |
|
|
|
Postada em 13/11/2001 por Maze
mazesyst@ig.com.br
Pegar os nomes das tabelas de um Banco de dados .mdb e também verifica se existe uma determinada tabela: (este codigo funciona com DAO 360.dll)
Dim MyDb As Database, mYrS As Recordset
Dim tdf As TableDef, I As Integer
Set MyDb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\MeuBanco.mdb")
For I = 0 To MyDb.TableDefs.Count - 1
'*** pega os nomes de todas as tabelas do banco
'
MsgBox MyDb.TableDefs(I).Name
' *** Verifica se uma tabela existe no banco de dados
'
'If UCASE$(MyDb.TableDefs(I).Name) = UCASE$("Nome da tabela que voce quer saber se existe") Then
' MsgBox "A tabela *** " & MyDb.TableDefs(I).Name & " *** EXISTE !"
''Else
'' MsgBox "A tabela NÃO EXISTE"
'End If
Next I
mYrS.Close
MyDb.Close
|
|
|
|
|
