ADO: Consultar nombres de tablas de una BD

Diana
23 de Octubre del 2003
Hola, quiero sacar por código los nombres de las tablas de una base de datos de acces mediante ADO, pero no sé si se puede. ¿Alguien me podría ayudar?

sdemingo
23 de Octubre del 2003
[email protected],
Si que se puede.


Sub cargaLista()

Dim rs As New ADODB.Recordset

Set rs = oConexion.OpenSchema(adSchemaTables)
Do Until rs.EOF
If Not esTablaSistema(rs("TABLE_NAME")) Then
MsgBox rs("TABLE_NAME")
End If
rs.MoveNext
Loop
rs.Close

End Sub

Function esTablaSistema(nombreTabla As String) As Boolean
Dim tablaSistema As String

tablaSistema = Left(nombreTabla, 4)
If tablaSistema = "MSys" Then
esTablaSistema = True
Else
esTablaSistema = False
End If

End Function

Donde oConexion es la connection a la BBDD

Un saludo
sdemingo