Matriz De Todos Os Nomes Na Tabela De Um Bd

[xanburzum 169]

A Função retorna uma matriz de todos os nomes na tabela de um banco de dados. Existe um argumento necessário, connstring que deverá ser válido OLE uma ligação de dados string.

 

como usar:

 

 

<%
dim i, a, cn

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

a = Tables(cn)

for i = 0 to ubound(a) - 1
response.write a(i) & "<BR>"
next
%>

código:

 

 

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

[Salgado 4]

Favor citar as fontes quando inserir conteúdo de terceiros: FONTE

[xanburzum 169]

Salgado, como lhe disse, tenho varios códigos,dicas,artigos, etc,

para estudo, coisas novas e antigas sem referencia.

[Mário Monteiro 179]

Mas se for colocar um codigo que nao é seu é bom primeiramente procurar a fonte e postar junto