[Resolvido] array com todos os nomes da tabela em uma base de dados

[xanburzum 169]

A Função Tabelas retorna um array com todos os nomes da tabela em uma base de dados. Existe

um argumento necessário, connstring que deve ser uma conexão de dados OLE válido

string.

 

sintaxe:

 

array = Tabelas(connstring)

exemplo:

 

<%
dim i, a, cn

cn = 	"Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=" & server.mappath("/conexao/dados.mdb") & ";"

a = Tabelas(cn)

for i = 0 to ubound(a) - 1
	 ' write each table name to the browser
	response.write a(i) & "<BR>"
next
%>

code:

 

<%
Private Function Tabelas(byval connstring)
	Dim adox, i, strTabelas
	Set adox = Server.CreateObject("ADOX.Catalog")
	adox.ActiveConnection = connstring
	for i = 0 to adox.tables.count - 1
		if UCase( adox.tables(i).type ) = "TABELA" then
			strTabelas = strTabelas & adox.tables(i).name & vbCrLf
		end if
	next
	Set adox = nothing
	Tabelas = split( strTabelas, vbCrLf )
End Function
%>