[Resolvido] array contendo os nomes dos procedimentos em um BD

[xanburzum 169]

A função Proced retorna um array contendo os nomes de todos os procedimentos em um

banco de dados. Existe um argumento necessário, connstring que deve ser uma conexao válida OLE

de dados .

 

sintaxe:

 

array = Proced(connstring)

exemplo:

 

<%
dim i, a, cn

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

a = Proced(cn)

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

code:

 

<%
Private Function Proced(byval connstring)
	Dim adox, i, strProceds
	Set adox = Server.CreateObject("ADOX.Catalog")
	adox.ActiveConnection = connstring
	for i = 0 to adox.procedures.count - 1
		strProceds = strProceds & adox.procedures(i).name & vbCrLf
	next
	Set adox = nothing
	Proced = split( strProceds, vbCrLf )
End Function
%>