Mostrar tablas de una BD... SOLO ESO!

goblin135
26 de Junio del 2003
Buenas.
Seguro que es muy fácil, pero no se como hacerlo.
Solo quiero obtener una lista de las tablas que existen en la base de datos a la cual tengo hecha la conexion. Con un Recordset puedo recorrer los campos de una tabla con un bucle "For each x in Rs.Fields" por ejemplo.
Deseo hacer lo mismo pero con los nombres de las tablas, en vez de con los campos. Cómo se supone que he de hacerlo?
Muchas gracias.

goblin135
26 de Junio del 2003
Ya encontré! Ahí va:

<%Set cnn1 = server.createobject("ADODB.Connection")
Cnn1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/xxxx.mdb"))


Set oRS = cnn1.OpenSchema(4)
tablax=""
Do Until ors.EOF
if tablax<>ors("TABLE_NAME") then
tablax=ors("TABLE_NAME")
response.write ors("TABLE_NAME") &"<br>"
end if
ors.MoveNext
Loop
ors.Close
cnn1.Close
SET cnn1=nothing
%>

Esto lo que hace es sacar un listado de las tablas de la BD, lo que es genial, pero también saca los nombres de las consultas. Alguien sabe si se puede diferenciar entre unas y otras.. Sólo desearía que me sacara las tablas.

Gracias.