LISTAR TABELAS ACCESS
Bom dia!!
Gostaria de saber como se faz Via VB a listagem das tabelas que existem em um MDB que eu selecionar, ou seja:
Seleciono um mdb e ele deve me mostrar em um listbox por ex. as tabelas que existem neste .mdb.
Abracos!
Gostaria de saber como se faz Via VB a listagem das tabelas que existem em um MDB que eu selecionar, ou seja:
Seleciono um mdb e ele deve me mostrar em um listbox por ex. as tabelas que existem neste .mdb.
Abracos!
BEM DE BARBADA OLHA SÓ ISTO AQUI:
Set BANCO = OpenDatabase(CAMINHO)
For X = 0 To BANCO.TableDefs.Count - 1
If BANCO.TableDefs(X).Name <> "MSysACEs" And _
BANCO.TableDefs(X).Name <> "MSysModules2" And _
BANCO.TableDefs(X).Name <> "MSysModules" And _
BANCO.TableDefs(X).Name <> "MSysQueries" And _
BANCO.TableDefs(X).Name <> "MSysObjects" And _
BANCO.TableDefs(X).Name <> "MSysRelationships" And _
BANCO.TableDefs(X).Name <> "MSysAccessObjects" Then
NOMETABELA = BANCO.TableDefs(X).Name
End If
Next
Set BANCO = OpenDatabase(CAMINHO)
For X = 0 To BANCO.TableDefs.Count - 1
If BANCO.TableDefs(X).Name <> "MSysACEs" And _
BANCO.TableDefs(X).Name <> "MSysModules2" And _
BANCO.TableDefs(X).Name <> "MSysModules" And _
BANCO.TableDefs(X).Name <> "MSysQueries" And _
BANCO.TableDefs(X).Name <> "MSysObjects" And _
BANCO.TableDefs(X).Name <> "MSysRelationships" And _
BANCO.TableDefs(X).Name <> "MSysAccessObjects" Then
NOMETABELA = BANCO.TableDefs(X).Name
End If
Next
Da uma olhadinha neste exemplo ele faz justamente o que vc quer:
Tópico encerrado , respostas não são mais permitidas