Trả về một mảng chứa toàn bộ thủ tục có trong một DB › Procedures › ASP Functions › Function Library

Chức năng: Trả về một mảng chứa toàn bộ thủ tục có trong một DB
Ngôn ngữ: asp - Nhóm: database

CÚ PHÁP

 array = Procedures(connstring)

Hàm Procedures trả về một mảng chứa tên của tất cả các thủ tục có trong một DB.
Đối số connstring là một OLE DB đang được kết nối.

VÍ DỤ

<%
  dim i, ar, cn
  
    cn =     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data  Source=" & server.mappath("/database/mydata.mdb") & ";"
  
    ar = Procedures(cn)
  
  for i = 0 to ubound(ar) - 1
       '--- write each  procedure name to the browser
      response.write ar(i) & "<BR>"
  next
%>

ASP Code

<%
  Private Function Procedures(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
      Procedures = Split( strProcs, vbCrLf )
  End Function '--- Procedures
%>