|
Displaying Source Code(s)
|
|
Procs Function
--------------------------------------------------------------------------------
Description : The Procs Function returns an array containing the
names of all procedures in a database. There is one required
argument, connstring which must be a valid OLE database
connection string.
<%
Private Function Procs(ByVal connstring)
Dim adox, i, strProcs
Set adox = Server.CreateObject("ADOX.Catalog")
adox.ActiveConnection = connstring
For i = 0 To adox.procedures.count - 1
strProcs = strProcs & adox.procedures(i).name & vbCrLf
Next
Set adox = Nothing
Procs = Split( strProcs, vbCrLf )
End Function
%> |
|
|
123
Eng