¿Cómo se recuperan las tablas de una base de datos en Access del esquema desde ASP? Pues así.

Public Function TablasRecuperar()

On Error Resume Next

If (ConexionStatus()) = False Then
TablasRecuperar = False
Exit Function
End If

Set ConexionObjeto = Server.Createobject(“ADODB.Connection”)
ConexionObjeto.Open ConexionDatosGet()
Const adSchemaTables = 20

If Err.Number = 0 Then
strFiltro = Array(Empty,Empty,Empty,”TABLE”)
set rsTablas = ConexionObjeto.OpenSchema(adSchemaTables,strFiltro)

Tablas = “”
Do Until rsTablas.EOF
If Tablas = “” Then
Tablas = rsTablas(“TABLE_NAME”)
Else
Tablas = Tablas & “;” & rsTablas(“TABLE_NAME”)
End If
rsTablas.MoveNext
Loop
Set rsTablas = Nothing
ConexionObjeto.Close
Set ConexionObjeto = Nothing

TablasRecuperar = Split(Tablas, “;” )
Else
TablasRecuperar = False
End If
End Function