AllStoredProcedures 集合包含 CurrentData 或 CodeData 對象中每個存儲過程的 AccessObject 對象。
CurrentData 或 CodeData 對象具有一個 AllStoredProcedures 集合,其中包含描述由 CurrentData 或 CodeData 指定的所有存儲過程的實例的 AccessObject 對象。例如,可以在 Visual Basic 中列舉 AllStoredProcedures 集合來設置或返回該集合中單個 AccessObject 對象的屬性值。
可以引用 AllStoredProcedures 集合中的單個 AccessObject 對象,方法是:按照名稱引用對象,或引用集合中對象的索引。如果要引用 AllStoredProcedures 集合中特定的對象,最好按照名稱引用存儲過程,因為存儲過程的集合索引可能會更改。
AllStoredProcedures 集合的索引是從零開始的。如果通過索引來引用存儲過程,則第一個存儲過程是 AllStoredProcedures(0),第二個存儲過程是 AllStoredProcedures(1),依此類推。
注釋
? | AllStoredProcedures 集合僅包含 Microsoft Access 項目 (.adp) 中的 AccessObject 對象。Microsoft Access 數(shù)據(jù)庫 (.mdb) 中不含任何存儲過程。請參閱 AllMacros 集合。 |
? | 若要列出項目中所有打開的存儲過程,可使用 AllStoredProcedures 集合中每個 AccessObject 對象的 IsLoaded 屬性。然后,可使用每個單獨的 AccessObject 對象的 Name 屬性返回存儲過程的名稱。 |
? | 無法在 AllStoredProcedures 集合中添加或刪除 AccessObject 對象。 |
下面的示例將打印 AllProcedures 集合中每個打開的 AccessObject 對象的名稱。
Sub AllStoredProcedures()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in
' AllStoredProcedures collection.
For Each obj In dbs.AllStoredProcedures
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub